Automatisches Erfassungs- und Änderungsdatum in Formularen

Das Änderungsdatum eines Datensatzes kann man mit Hilfe zweier Datumsfelder, die in einem Formular einfügt wurde, festhalten. Diese werden bei jeder Änderung des Datensatzes aktualisiert.
Hierfür werden in einer Tabelle zwei getrennte Felder für Erfassungs- und Änderungsdatum und eine kleine Ereignisprozedur angelegt.

• In dem Formular, in dem diese beiden Daten erfasst werden sollen, werden zunächst die Felder Erfassungsdatum und Änderungsdatum aus der Tabelle als Datenquelle festgelegt.

  

• das Formular wird im Entwurfsmodus geöffnet
• mit einem rechten Mausklick auf die quadratische Fläche in der linken oberen Ecke die Eigenschaften des Formulars geöffnet
• im Register Ereignis, im Feld Vor Aktualisierung der Eintrag Ereignisprozedur ausgewählt

  

• über einen Mausklick auf die kleine Schaltfläche mit den drei Punkten wird der Editor geöffnet
• im VBA wird folgendes Makro eingetippt:
  
  Private Sub Form_BeforeUpdate(Cancel As Integer)
  If Me.NewRecord = True Then
  Me!Erfassungsdatum = Date
  Else
  Me!Änderungsdatum = Date
  End If
  End Sub
  
  Mit diesem Makro wird überprüft, ob es sich um einen neuen Datensatz handelt. Falls das der Fall ist, wird das aktuelle Datum in das Feld Erfassungsdatum eingetragen. Andernfalls wird das Feld Änderungsdatum aktualisiert.