In diesem Artikel schauen wir uns beide Varianten an.<\/p>\n
Formularereignisse als Ausgangspunkt<\/h2>\n
Während es etwa unter dem SQL Server Trigger gibt, denen Sie Code zum Protokollieren von änderungen zuweisen können, müssen Sie in reinen Access-Datenbanken (also solchen, die ihre Daten wiederum in einer Access-Datenbank speichern – egal, ob in einer einzigen Datei oder aufgeteilt in Frontend und Backend) entsprechende Ereignisprozeduren zu den Formularen hinzufügen, in welchen die änderungen durchgeführt werden.<\/p>\n
In den meisten Fällen werden Sie die änderungen beim Speichern des Datensatzes protokollieren. Der richtige Zeitpunkt ist das Ereignis Vor Aktualisierung <\/b>des Formulars. Es wird unmittelbar vor dem Speichern ausgelöst – und vor dem Ereignis Nach Aktualisierung<\/b>.<\/p>\n
Der Vorteil des Ereignisses Vor Aktualisierung <\/b>ist: Sie können zu diesem Zeitpunkt sowohl auf den vorherigen als auch auf den aktuellen Wert eines Feldes der Datenherkunft zugreifen – und zwar über die Eigenschaften OldValue <\/b>und Value <\/b>(weitere Informationen hierzu finden Sie im Artikel Textfelder: Value, OldValue und Text<\/b>.<\/p>\nWas soll protokolliert werden<\/h2>\n
Die Protokollierung soll so erfolgen, dass alle zur Kontrolle und sogar zur Wiederherstellung der geänderten Daten notwendigen Informationen gespeichert weden. Dazu legen Sie eine Tabelle namens tblAenderungen <\/b>an, die im Entwurf wie in Bild 1 aussieht.<\/p>\n
Bild 1: Die Tabelle tblAenderungen in der Entwurfsansicht<\/p>\n Dabei kommen die folgenden Felder zum Einsatz:<\/p>\n Diese Art der Protokollierung erzeugt natürlich eine Menge Daten: Es wird tatsächlich zu jedem geänderten Feld ein eigener Datensatz in der Tabelle tblAenderungen<\/b> angelegt.<\/p>\n Wenn wir nun im Formular frmArtikel <\/b>beispielsweise den Wert des Feldes Artikelname <\/b>von Chai <\/b>in Chai (Tee) <\/b>ändern, soll die Tabelle einen Datensatz wie in Bild 2 erhalten.<\/p>\n Bild 2: Die Tabelle tblAenderungen mit einer ersten änderung<\/p>\n Nun benötigen wir nur noch eine Ereignisprozedur, die genau dies erledigt.<\/p>\n Wir gehen zunächst vereinfachend davon aus, dass wir nur änderungen am Feld Artikelname <\/b>in der Tabelle speichern möchten. Dazu legen Sie für das Ereignis Vor Aktualisierung <\/b>des Formulars die folgende Ereignisprozedur an:<\/p>\n Diese Ereignisprozedur erstellt ein Recordset auf Basis der Tabelle tblAenderungen<\/b>, das allerdings wegen des Kriteriums (1=2<\/b>) keinen einzigen Datensatz enthält. Dies ist auch nicht nötig, denn wir wollen ja nur einen neuen Datensatz hinzufügen.<\/p>\n Der übersichtlichkeit halber legen wir diesen Datensatz zunächst mit der AddNew<\/b>-Methode an und weisen alle Feldwerte einzeln zu. Die meisten Zuweisungen sind selbsterklärend. Die Zeit wird mit der Funktion Now <\/b>ermittelt, der aktuelle Access-Benutzer mit CurrentUser <\/b>(hier könnte man noch den aktuellen Windows-Benutzer referenzieren – zumindest da Access seit der Version 2007 das Sicherheitssystem nicht mehr unterstützt). Den alten und den neuen Wert des gebundenen Steuerelements erhalten wir mit den Eigenschaften OldValue <\/b>und Value<\/b>.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>![\"Die](\"..\/tl_files\/images\/pic_198_001.png\")
<\/a><\/p>\n\n
<\/a><\/p>\nänderung in Tabelle schreiben<\/h2>\n
Private Sub <\/span>Form_BeforeUpdate(Cancel As Integer<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblAenderungen WHERE 1 = 2\", dbOpenDynaset)\r\n If Not<\/span> Me!txtArtikelname.Value = _\r\n Me!txtArtikelname.OldValue Then\r\n rst.AddNew<\/span>\r\n rst!Tabelle = \"tblArtikel\"\r\n rst!Aktion = \"Edit\"\r\n rst!Feld = \"Artikelname\"\r\n rst!PKName = \"ArtikelID\"\r\n rst!PKWert = Me!ArtikelID\r\n rst!Zeit = Now\r\n rst!Benutzer = CurrentUser\r\n rst!AlterWert = Me!txtArtikelname.OldValue\r\n rst!NeuerWert = Me!txtArtikelname.Value\r\n rst.Update\r\n End If<\/span>\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\nAlle Felder protokollieren<\/h2>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t