[kapetang]

Καλή χρονιά.

Δοκίμασε αν σε καλύπτει ο παρακάτω κώδικας:

Private Sub fDate1_AfterUpdate()
    If Nz(Me.[fDate2], 0) = 0 Then Me.[fDate2] = Me.[fDate1]
End Sub

Στον κώδικα υπέθεσα ότι το 1ο πεδίο ημερομηνίας ονομάζεται fDate1 και το 2ο fDate2.

Ο κώδικας επισυνάπτεται στο συμβάν: "Μετά από ενημέρωση" (AfterUpdate) του πεδίου fDate1 της φόρμας.

Είναι πολύ απλός (μία γραμμή) και πιστεύω θα μπορέσεις να τον προσαρμόσεις στα δικά σου δεδομένα.