[nasos23]

Καλησπέρα Σάκη προσοχή στην προέλευση των δεδομένων..

Private Sub ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ_AfterUpdate()
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
           MsgBox "Επιλέξτε απο ποιό APιθμό ΠAPαστατικού θέλετε να ξεκινήσει το έτος", vbInformation
           Me.AP.BackColor = 10092543
           Me.AP.SetFocus
           
            Else
            
            Me.AP = Nz(DMax("[AP]", "[tblEispraxi]", "Year([ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ])=" & Year([ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ]) & _
            " and[id_seiraPar]=" & Me.[id_seiraPar] & "and[id_type]=" & Me.[id_type] & "")) + 1
            Me.AP.BackColor = 16777215
           End If
End Sub

Private Sub ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ_BeforeUpdate(Cancel As Integer)
 If Not IsNull(Me.[ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ]) Then
   If Me.[ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ] < DMax("[ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ]", "tblEispraxi", "Year([ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ])=" & Year([ΗΜΕΡΟΜΗΝΙΑ_ΧΡΕΩΣΗΣ]) & _
  " and [id_seiraPar]=" & Me.[id_seiraPar] & " and [id_type]=" & Me.[id_type] & "") Then
                MsgBox "Η ημερομηνία δεν μπορεί να είναι μικρότερη των ήδη καταχωρηθεισών για το έτος", vbCritical, "ΠAPακαλώ διορθώστε!!"
                  Cancel = True
                  End If
             
              Else
              Exit Sub
              End If
End Sub

ΥΓ.Καλόπιστα πάντα... είμαι ο τελευταίος που θα μπορούσα να δώσω συμβουλές.
Καλό είναι να κοιτάμε πρώτα την ουσία και μετά την δημιουργία μιας εντυπωσιακής βάσης.
Θα μπορούσε να είναι πιό απλή στην κατασκευή της και πιο λειτουργική