Die Funktion DateAdd bietet diverse Möglichkeiten, Datumswerte zu kalkulieren. Die Funktion nimmt einen Format-Parameter an, der bestimmt, was zum Datum addiert werden soll (z.B. Jahre, Monate usw.).
In der Ereignisprozedur Nach Aktualisierung könnte man beispielsweise folgenden VBA-Code schreiben, um 3 Jahre in der Zukunft zu berechnen:
Private Sub Datum1_AfterUpdate()
If Not IsNull(Me!Datum1) Then
Datum2 = DateAdd("yyyy, 3, Datum1)
End If
End Sub
Das Ergebnis der DateAdd-Funktion wird in das zweite Textfeld kopiert.