[Tasos]

Μάρω καλησπέρα!
Στον πίνακα που περιέχει την αρχική ημερομηνία πρόσθεσε ένα πεδίο τύπου Ναι/Όχι
με το όνομα: DateIsLocked.
Κατόπιν πέρασε το και στη φόρμα σου δίπλα στο πεδίο της αρχικής ημερομηνίας.

Έστω το όνομα του πεδίου της αρχικής ημερομηνίας = EntryDates

Στο συμβάν του EntryDates "Πριν την ενημέρωση" βάλε:

Private Sub EntryDates_BeforeUpdate(Cancel As Integer)
    If Me.DateIsLocked Then
      Cancel = True
      Me.EntryDates.Undo
    End If
End Sub

και στο συμβάν του EntryDates "Μετά την ενημέρωση" βάλε:

Private Sub EntryDates_AfterUpdate()
      Me.DateIsLocked = Not IsNull(Me.EntryDates)
End Sub

που σημαίνει ότι μετά την ενημέρωση του πεδίου θα τσεκάρεται το DateIsLocked.
Αυτό έχει σαν αποτέλεσμα να μη μπορείς να επεξεργαστείς το πεδίο της ημερομηνίας ξανά αφού
σε οποιαδήποτε περεταίρω επεξεργασία παρεμβαίνει το συμβάν EtryDates_BeforeUpdate και ακυρώνει την αλλαγή.

Θα χρειαστεί να ξετσεκάρεις το DateIsLocked για να μπορέσεις να επεξεργαστείς την ημερομηνία.

Φιλικά

Τάσος