Anzeige
Anzeige
Anzeige
Lesedauer 2 Min.

Datum der letzten Änderung festhalten - Access

Ich möchte dass Access automatisch das Datum der letzten Änderung einfügt und festhält. Das Feld soll jedoch nicht beim normalen Blättern durch die Datensätze verändert werden.
© Quelle: PCtipp.ch

Als erstes müssen Sie der bestehenden Tabelle ein Feld hinzufügen. Geben Sie diesem Feld den Namen "LetzteAenderung" und setzten Sie den Datentyp auf "Datum/Zeit" mit dem Format "Datum/kurz".

© Quelle: PCtipp.ch

Danach öffnen Sie das Formular im Entwurfsmodus und ziehen dieses Feld aus der Feldliste ins Formular. In den Eigenschaften dieses Feldes auf der Registerkarte "Daten" setzen Sie die "Aktiviert" auf "Nein" und "Gesperrt" auf "JA". So schliessen Sie manuelle Aenderungen an diesem Feld aus

© Quelle: PCtipp.ch

Zum Schluss geben Sie die folgende Anweisung in der Ereignis-Prozedur "vor Aktualisierung" (BeforeUpdate) des Formulars ein. Beachten Sie hier bitte, dass Sie nicht das von Access vorgeschlagene Code-Gerüst verwenden, denn dieses bezieht sich nur auf das FELD "LetzteAenderung" anstatt wie gewünscht auf das gesamte Formular. Kopieren Sie den unten bereitgestellten Code vollständig in ihre Datenbank, nicht nur die mittlere Zeile!

© Quelle: PCtipp.ch
© Quelle: PCtipp.ch
© Quelle: PCtipp.ch

Da diese Ereignis-Prozedur nur aufgerufen wird, wenn im aktuellen Datensatz etwas verändert wurde, lässt sich nun damit das Datum der letzten Änderung auf eine einfache Weise festhalten.

Beachten Sie das Änderungsdatum in folgendem Datensatz, nachdem eine Änderung im Vornamen vorgenommen wurde:

© Quelle: PCtipp.ch
© Quelle: PCtipp.ch

--------------------------------------

CODE ZUM KOPIEREN

--------------------------------------

Sub Form_BeforeUpdate (Cancel As Integer)

Me.[LetzteAenderung] = Now

End Sub

--------------------------------------

Kommentare

Office Cloud Datenverwaltung Software Internet & Sicherheit Software & Tools
Anzeige
Anzeige

Neueste Beiträge

AI Frontier Hackathon
Neurodiverse IT-Lernende entwickeln bei Microsoft eigene KI-Agenten
Über 40 neurodiverse IT-Lernende und Ausbildner, darunter Lernende im Autismus-Spektrum und mit ADHS, entwickelten beim AI Frontier Hackathon von Kauz Informatik Medien AG und Microsoft Schweiz eigene KI-Agenten.
3 Minuten
21. Jun 2026
Fun
Mini-Cup-Game in der Google-Suche spielen
So finden Sie das Easter Egg von Google und üben sich im Elfmeterschiessen.
2 Minuten
19. Jun 2026
Vernehmlassung
Angepasste Unternehmensabgabe für Radio und TV
Der Bundesrat will das Tarifmodell der Unternehmensabgabe für Radio und Fernsehen anpassen und damit einen Entscheid des Bundesgerichts umsetzen. Die Vernehmlassung zur Teilrevision der Radio- und Fernsehverordnung wird am 23. Juni 2026 eröffnet.
2 Minuten
19. Jun 2026

Das könnte Sie auch interessieren

Linux-Praxis
Ubuntu 26.04 LTS ist da!
Die jüngste Langzeitversion von Ubuntu richtet sich sowohl an Einsteiger als auch an Nutzer, die besonderen Wert auf Stabilität legen. Wir erklären, was neu ist und wie Sie das System installieren beziehungsweise ein Upgrade durchführen. 
5 Minuten
12. Jun 2026
Tipps & Tricks
Schweizer Handy-Nummer: So finden Sie sie heraus
Wenn man einen Kollegen oder einen Firmenkontakt sucht und nicht an seine Handy-Nummer herankommt, hilft manchmal ein einfacher Google-Suchtrick.
3 Minuten
29. Jan 2019
Outlook-Tipps
Das neue Outlook
Microsoft hat seine beliebte E-Mail- und Organisations-Software Outlook komplett überarbeitet. Wir zeigen Ihnen Schritt für Schritt, wie Sie die neue Version einrichten, bedienen und optimal auf Ihre Bedürfnisse anpassen.
9 Minuten
10. Apr 2024
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Kommentare