Forum - ΚΑΝΟΝΑΣ ΠΕΡΙΟΡΙΣΜΟΥ ΗΜΕΡΟΜΗΝΙΑΣ ΜΕ ΒΑΣΗ ΤΟ ΠΑΡΑΣΤΑΤΙΚΟ

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - ΚΑΝΟΝΑΣ ΠΕΡΙΟΡΙΣΜΟΥ ΗΜΕΡΟΜΗΝΙΑΣ ΜΕ ΒΑΣΗ ΤΟ ΠΑΡΑΣΤΑΤΙΚΟ (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/4550-kanonas-periorismoy-hmeromhnias-me-bash-parastatiko.html)

Νάσο δεν πρόλαβα να το δω με τον κώδικα που προτείνεις,εγώ το έφτιαξα όπως το παράδειγμα που ανεβάζω.Πες μου την αποψή σου.

Δοκίμασε αυτό:

Κώδικας:

Private Sub ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ_AfterUpdate()

Dim strMsg, RES3 As String

If IsNull(Me.[ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ]) Then

 

     Exit Sub

    End If

    If IsNull(DMax("[AP]", "[tblEispraxi]", "Year([ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ])=" & Year([ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ]) & _

    " and[id_seiraPar]=" & Me.[id_seiraPar] & "and[id_type]=" & Me.[id_type] & "")) Then

           RES3 = MsgBox("Θέλετε να αλλάξετε αρίθμηση;Αν ΝΑΙ δώστε την νέα", vbQuestion + vbYesNo, "ΕΡΩΤΗΣΗ")

            If RES3 = vbYes Then

           Me.AP.BackColor = 10092543

           Me.AP.SetFocus

          End If

 If RES3 = vbNo Then

 

Me.AP = (DMax("[AP]", "[tblEispraxi]", "Year([ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ])=" & Year([ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ]) & _

    " and[id_seiraPar]=" & Me.[id_seiraPar] & "and[id_type]=" & Me.[id_type] & "")) + 1

  End If

        Else

        Me.AP = Nz(DMax("[AP]", "[tblEispraxi]", "Year([ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ])=" & Year([ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ]) & _

            " and[id_seiraPar]=" & Me.[id_seiraPar] & "and[id_type]=" & Me.[id_type] & "")) + 1

          End If

 

End Sub

Νάσο δίνοντας όχι δεν παίρνει αρίθμηση, παραδόξως με τον κώδικα που είχα εγώ δουλεύει κανονικά.

Σάκη για δες αν σου κάνει

Οκ Νάσο, έκανα μία αλλαγή του [Τύπος] σε id_type και δουλεύει. Καλή συνέχεια.