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).
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