Datensatzänderungen im Formular anzeigen

Das Formular beim Datensatzwechselzurücksetzen

Beim Datensatzwechsel müssen Sie dafür sorgen, dass die vorher eingeblendeten Steuerelemente wieder ausgeblendet werden, damit sie nur dann sichtbar werden, wenn der Benutzer im zugehörigen Feld den Wert geändert hat. Dazu erstellen Sie eine Ereignisprozedur für das Current- Ereignis (Beim Anzeigen) des Formulars (Listing 2).

Private Sub Form_Current()
Me.IDAlt.Visible = False
Me.VornameAlt.Visible = False
Me.NachnameAlt.Visible = False
Me.GeburtstagAlt.Visible = False
End Sub

Ein Button zum Wiederherstellen der alten Daten

Schön wäre es jetzt, wenn Sie dem Benutzer noch eine Möglichkeit bieten könnte, wie er die alten Daten wieder in den Datensatz schreiben kann. Dazu fügen Sie einfach einen Button mit einer entsprechenden Aufschrift in das Formular ein und erstellen dafür eine Ereignisprozedur für das Click-Ereignis (Listing 3).

Bild 1: Das Formular zur Laufzeit nach Änderung der Felder Vorname und Nachname.
Bild 1: Das Formular zur Laufzeit nach Änderung der Felder Vorname und Nachname.

Private Sub bttWiederherstellen_Click()
Me.ID.Value = Me.IDAlt.Value
Me.Vorname.Value = Me.VornameAlt.Value
Me.Nachname.Value = Me.NachnameAlt.Value
Me.Geburtstag.Value = Me.GeburtstagAlt.Value
End Sub