[kapetang]

Αν περιοριστούμε μόνο στις νέες εγγραφές ο παρακάτω κώδικας είναι αρκετός:

Private Sub Start_BeforeUpdate(Cancel As Integer)

'Η έναρξη πρέπει να είναι μεγαλύτερη από τη μέγιστη ημερομηνία [ΛήξηΆδειας]
    If Me.NewRecord Then
        If Me.Start <= Nz(DMax("[ΛήξηΆδειας]", "[qry_Adeies]", "[Μητρώο] ='" & Me.Μητρώο & "'"), 0) Then
            MsgBox "Η ημερομηνία δεν υπερβαίνει τις προηγούμενες"
            Cancel = True
        End If
    End If
End Sub