Beitrag aus SmartTools Access Weekly
Datum der letzten Bearbeitung festhalten
Access 365 2024 2021 2019 2016 2013 2010
FRAGE Ich habe in meiner Access-Datenbank in einem Formular mit Kundendaten ein Textfeld eingefügt, das mir das aktuelle Datum anzeigt. Nun soll der Inhalt dieses Datumsfeldes in der Tabelle gespeichert werden und damit das Datum der letzten Bearbeitung festhalten. Beim Aufruf des Formular steht das Datum im Formular, aber ich habe keine Möglichkeit gefunden, es automatisch in die Tabelle zu übertragen.
L. Urban
ANTWORT Erweitern Sie zunächst die Tabelle mit Ihren Kundendaten um ein Feld "ZuletztBearbeitet" vom Datentyp "Datum/Zeit". Stellen Sie im Formular beim Datumsfeld für die Eigenschaft "Vor Aktualisierung" den Eintrag "[Ereignisprozedur]" ein, klicken Sie auf die Schaltfläche mit den drei Punkten und geben Sie folgende Anweisungen im VBA-Editor ein:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.ZuletztBearbeitet = Now
End Sub
Wenn nun am Datensatz eine Änderung erfolgt ist - und nur dann -, speichert Access automatisch das Datum dieser Änderung im Feld "ZuletztBearbeitet" bzw. in der Tabelle.