Datensatzänderungen im Formular anzeigen

Bei Änderung die alten Werte anzeigen

Nun müssen Sie natürlich dafür sorgen, dass bei Änderung eines Wertes der alte Wert im Eingabefeld angezeigt wird. Dazu erstellen Sie für jedes gebundene Steuerelement des Formulars eine Ereignisprozedur für das Ereignis Bei Geändert (Dirty). Innerhalb der Prozedur setzen Sie dann die Visible-Eigenschaft des Steuerelements auf True und weisen ihm den Wert des gebundenen Steuerelements zu (Listing 1).

Private Sub Geburtstag_Dirty(Cancel As Integer)
Me.GeburtstagAlt.Value = Geburtstag.OldValue
Me.GeburtstagAlt.Visible = True
End Sub
Private Sub ID_Dirty(Cancel As Integer)
Me.IDAlt.Value = ID.OldValue
Me.IDAlt.Visible = True
End Sub
Private Sub Nachname_Dirty(Cancel As Integer)
Me.NachnameAlt.Value = Nachname.OldValue
Me.NachnameAlt.Visible = True
End Sub
Private Sub Vorname_Dirty(Cancel As Integer)
Me.VornameAlt.Value = Vorname.OldValue
Me.VornameAlt.Visible = True
End Sub
Private Sub Geburtstag_Change()
Me.GeburtstagAlt.Value = Geburtstag.OldValue
Me.GeburtstagAlt.Visible = True
End Sub
Private Sub ID_Change()
Me.IDAlt.Value = ID.OldValue
Me.IDAlt.Visible = True
End Sub
Private Sub Nachname_Change()
Me.NachnameAlt.Value = Nachname.OldValue
Me.NachnameAlt.Visible = True
End Sub
Private Sub Vorname_Change()
Me.VornameAlt.Value = Vorname.OldValue
Me.VornameAlt.Visible = True
End Sub

Da Access 2000 das Dirty-Ereignis noch nicht kennt, sollten Sie zusätzlich auch Ereignisprozeduren für das Change-Ereignis mit dem gleichen Inhalt erstellen, damit die Anzeige auch in Access 2000 funktioniert.