habe eben eine Klasse AuditTrail.cls hochgeladen: form/data/AuditTrail.cls
Der Begriff AuditTrail ist denk ich klar.
Die Besonderheit bei dieser Klasse ist, dass sie sehr aufgeräumt ist. Keine riesigen Prozeduren die nach Steuerelementtypen filtern, wie man es von anderen AuditTrail Beispielen kennt.
Die Klasse ist imo uneingeschränkt Unterformularfähig, obwohl ich nur mit 1 Unterformular getestet habe.
Die Implementierung erfolgt im Projekt, indem folgender Code in die betreffenden Formulare geschrieben wird:
- Code: Alles auswählen
Dim myAudit As clsAuditTrail
Private Sub Form_Load()
Set myAudit = New clsAuditTrail
Set myAudit.FormObj = Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set myAudit = Nothing
End Sub
Die zu überwachende Steuerelemente sind mit der Marke "Audit" zu versehen - ohne Anführungszeichen natürlich.
Die Log wird in eine Tabelle mit Namen "tblAuditTrail" geschrieben mit folgender Struktur:
- AuditTrailID (AutoWert)
- DateTime (Datum/Zeit)
- UserName (Text)
- FormName (Text)
- Action (Text)
- RecordID (Text)
- FieldName (Text)
- OldValue (Text)
- NewValue (Text)
Es sei jetzt noch erwähnt, daß das Projekt ursprünglich auf http://www.fontstuff.com/access/acctut21.htm basierte,
welches aber nicht richtig funktioniert und imo ziemlich schlechten Code hat.
Gruß Andreas