Elite Veteran
Beiträge: 874
Ort: Wien | Hallo, Michael!
Heims - 29.05.13
Hab 6 Felder angelegt
Das heist jeweils
3 Felder für Name ÄndName, ÄndName1, ÄndName2 untereinander
3 Felder für Datum ÄndDatum, ÄndDatum1, ÄndDatum2 untereinander.
Die Aktuellste Änderung sollte immer oben stehen.
Nach der 4 Änderung sollte die älteste unter raus fallen.
Falls ich richtig verstehe, kannst du den Code ca. so ändern:
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.Bookmark = Me.Bookmark
rs.Edit
rs!ÄndName2 = rs!ÄndName1
rs!ÄndDatum2 = rs!ÄndDatum1
rs!ÄndName1 = rs!ÄndName
rs!ÄndDatum1 = rs!ÄndDatum
rs!ÄndName = Me!User_Login()
rs!ÄndDatum = Now
rs.Update
Set rs = Nothing
Noch einmal der Hinweis, dass man Umlaute und andere Sonderzeichen in Objekt- oder Feldnamen meiden sollte.
s.a. den Punkt 1.5 im http://www.donkarl.com/?katalog
----- Servus
Karl
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek - Jetzt anmelden für 19./20.10. in Nürnberg
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |