<\/p>\n
Wenn Sie auf das Rückgängigmachen von änderungen an den Daten eines Formulars reagieren wollen, haben Sie mehrere Möglichkeiten. Sie können die beiden Undo-Ereignisse des Formulars selbst und des aktiven Steuerelements nutzen (zumindest theoretisch). Oder Sie verwenden die Tastatur-Ereignisse, um die zum Rückgängigmachen von änderungen bevorzugt verwendete Escape-Taste abzufangen. Wir stellen die beiden Techniken vor und erklären Vor- und Nachteile.<\/b><\/p>\nWarum Undo abfangen<\/h2>\n
Als Erstes stellt sich die Frage, warum man Undo<\/b>-Ereignisse überhaupt abfangen sollte. Ein gängiger Anwendungsfall ist, den Benutzer vor dem Verwerfen umfangreicher änderungen an den Daten eines Datensatzes in einem Formular zu fragen, ob er die änderungen wirklich verwerfen will.<\/p>\n
Einen anderen Anwendungsfall schauen wir uns im Beitrag Datensatzänderungen auf einen Blick <\/b>an (www.access-im-unternehmen.de\/1085<\/b>). Hier wollen wir zu einem Textfeld, dessen Inhalt der Benutzer geändert hat, ein weiteres Textfeld einblenden, das den ursprünglichen Inhalt des Textfeldes anzeigt.<\/p>\n
Wenn der Benutzer beispielsweise die Escape-Taste verwendet, um die änderungen rückgängig zu machen, sollen die Textfelder, welche die Version vor der änderung anzeigen, natürlich auch wieder ausgeblendet werden.<\/p>\n
Access kennt zwei Undo<\/b>-Ereignisse. Eines kann für das aktuelle Formular implementiert werden, das andere für beliebige Steuerelemente, welche an Felder der Datenherkunft gebunden werden können.<\/p>\n
Wir wollen das Formular aus der Lösung zum oben genannten Beitrag als Beispielformular nutzen. Es verwendet eine Tabelle namens tblKunden <\/b>als Datenherkunft und zeigt alle Felder dieser Tabelle im Detailbereich an (s. Bild 1).<\/p>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2017_03\/pic_1086_001.png\")
<\/p>\n
Bild 1: Formular in der Entwurfsansicht<\/span><\/b><\/p>\n Die Escape-Taste ist das erste Mittel, wenn es darum geht, die änderungen in einem Formular rückgängig zu machen. Dabei gibt es verschiedene Stufen.<\/p>\n Wenn wir einen Datensatz in der Formularansicht des Formulars anzeigen und dann den Wert eines Feldes dieses Datensatzes ändern, zeigt der Datensatzmarkierer einen Stift als Symbol für den Zustand „In Bearbeitung“ an (s. Bild 2). Wenn Sie nun änderungen an weiteren Feldern vornehmen, ändert der Datensatzmarkierer sein Aussehen nicht mehr. Intern jedoch gibt es bezüglich der Betätigung der Escape-Taste zwei Stufen der Bearbeitung:<\/p>\n Bild 2: Datensatz in Bearbeitung<\/span><\/b><\/p>\n <\/p>\n Dies können Sie leicht anhand des Beispielformulars frmKunden <\/b>nachvollziehen.<\/p>\n Nun wollen wir uns anschauen, wie wir durch Betätigen der Escape-Schaltfläche die beiden Undo<\/b>-Ereignisse auslösen können. Dazu legen wir zunächst eine Ereignisprozedur für das Ereignis Bei Rückgängig <\/b>eines Textfeldes an – in Bild 3 beispielsweise für das Textfeld txtFirma<\/b>.<\/p>\n Bild 3: Anlegen des Undo-Ereignisses für ein Textfeld<\/span><\/b><\/p>\n Die dafür hinterlegte Ereignisprozedur soll zunächst nur eine Meldung im Direktbereich des VBA-Editors ausgeben:<\/p>\n Die gleiche Prozedur legen wir für die übrigen Textfelder an:<\/p>\n Schließlich markieren Sie das Formular und legen auch für dieses für die Ereigniseigenschaft Bei Rückgängig <\/b>eine Ereignisprozedur wie die folgende an:<\/p>\n Damit können wir nun experimentieren:<\/p>\n Auf diese Weise können wir nun Anweisungen zu den verschiedenen Undo<\/b>-Ereignisprozeduren hinzufügen, mit denen Sie den Benutzer fragen, ob er die änderungen wirklich wie beabsichtigt rückgängig machen will. Genaugenommen verwenden wir eine Prozedur, die von allen Ereignisprozeduren aufgerufen wird, die durch das Undo<\/b>-Ereignis eines Textfeldes ausgelöst werden. Diese sieht so aus:<\/p>\n Die Undo<\/b>-Ereignisprozeduren der Textfelder rufen diese Prozedur wie folgt auf:<\/p>\n Bild 4 zeigt ein Beispiel für die Anzeige des Meldungsfensters mit der Rückfrage an den Benutzer.<\/p>\nUndo per Escape<\/h2>\n
![\"Datensatz](\"..\/fileadmin\/_temp_\/2017_03\/pic_1086_002.png\")
<\/p>\n\n
Auslösen der Undo-Ereignisse<\/h2>\n
![\"Anlegen](\"..\/fileadmin\/_temp_\/2017_03\/pic_1086_003.png\")
<\/p>\nPrivate Sub <\/span>txtFirma_Undo(Cancel As Integer<\/span>)\r\n Debug.Print<\/span> \"txtFirma_Undo\"\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>txtNachname_Undo(Cancel As Integer<\/span>)\r\n Debug.Print<\/span> \"txtNachname_Undo\"\r\nEnd Sub<\/span>\r\n...<\/pre>\nPrivate Sub <\/span>Form_Undo(Cancel As Integer<\/span>)\r\n Debug.Print<\/span> \"Form_Undo\"\r\nEnd Sub<\/span><\/pre>\n\n
Rückfrage vor änderungen<\/h2>\n
Private Sub <\/span>Textbox_Undo(Cancel As Integer<\/span>)\r\n If <\/span>MsgBox<\/span>(\"änderungen in diesem Textfeld rückgängig machen\", vbOKCancel) = vbCancel Then<\/span>\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>txtFirma_Undo(Cancel As Integer<\/span>)\r\n Textbox_Undo Cancel\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>txtNachname_Undo(Cancel As Integer<\/span>)\r\n Textbox_Undo Cancel\r\nEnd Sub<\/span>\r\n... weitere Undo-Prozeduren<\/pre>\n![\"Rückfrage](\"..\/fileadmin\/_temp_\/2017_03\/pic_1086_004.png\")
<\/p>\n