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

[smasak]

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

[nasos23]

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

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

[smasak]

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

[nasos23]

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

[smasak]

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