{"id":55000203,"date":"2013-12-01T00:00:00","date_gmt":"2020-01-24T15:58:53","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=203"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Ereignisse_abgreifen","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Ereignisse_abgreifen.html","title":{"rendered":"Ereignisse abgreifen"},"content":{"rendered":"

Normalerweise implementieren Sie die Ereignisprozeduren von Formularen und Steuerelementen jeweils im Klassenmodul des jeweiligen Formulars. Aber wussten Sie, dass Sie die Ereignisse auch in anderen Klassenmodulen implementieren können Falls nicht: Es funktioniert! Und für diese Technik gibt es auch noch sinnvolle Einsatzzwecke. Wie dies gelingt und welche Einsatzzwecke es dafür gibt, erfahren Sie im vorliegenden Artikel. <\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1306_EreignisseAbgreifen.mdb<\/b>.<\/p>\n

Ereignisse implementieren<\/h2>\n

Bestimmte Prozeduren werden durch Ereignisse ausgelöst. Einige haben Sie in Access [basics] <\/b>bereits kennengelernt – zum Beispiel das Ereignis Beim Klicken <\/b>einer Schaltfläche oder Formularereignisse wie Beim öffnen<\/b>, Beim Anzeigen<\/b>, Beim Laden <\/b>oder Beim Entladen <\/b>eines Formulars.<\/p>\n

Diese können Sie nutzen, indem Sie erstens für die Ereigniseigenschaft festlegen, dass das Ereignis eine Ereignisprozedur auslösen soll. Dies erledigen Sie durch Eintragen des Wertes [Ereignisprozedur] <\/b>für die entsprechende Ereigniseigenschaft.<\/p>\n

Zusätzlich benötigen Sie eine Ereignisprozedur, deren erste Zeile eine spezielle, vom Namen des Objekts (also des Formulars oder Steuerelements) und vom Ereignis abhängige Syntax aufweisen muss. Diese sieht etwa für das Laden eines Formulars wie folgt aus:<\/p>\n

Private Sub <\/span>Form_Load()<\/pre>\n
Die erste Zeile mancher Ereignisprozeduren enthält noch Parameter, die verschiedene Informationen liefern, die beim Durchführen der Prozedur hilfreich sein können. In manchen Fällen nehmen die Parameter auch Rückgabewerte entgegen, mit denen sich das weitere Verhalten von Access steuern lässt.<\/p>\n
Einfache Beispiele<\/h2>\n
Die Konstellation aus Bild 1 liefert ein paar Beispiele für Ereignisprozeduren. Die Schaltfläche cmdForm2-Oeffnen <\/b>löst die folgende Prozedur aus und öffnet damit das zweite Formular:<\/p>\n
\"Formular<\/a><\/p>\n
Bild 1: Formular 1 öffnet Formular 2, Formular 2 wird wieder geschlossen<\/p>\n
Private Sub <\/span>cmdForm2Oeffnen_Click()\r\n     DoCmd.OpenForm \"frm2\"\r\nEnd Sub<\/span><\/pre>\n
Die Schaltfläche cmdForm2-Schliessen <\/b>im zweiten Formular schließt das Formular wieder und gibt eine Meldung aus, dass Formular 2 geschlossen wird:<\/p>\n
Private Sub <\/span>cmdForm2Schliessen_Click()\r\n    DoCmd.Close acForm, Me.Name\r\n    MsgBox<\/span> \"Formular 2 wird geschlossen.\"\r\nEnd Sub<\/span><\/pre>\n
Formular 1 beim Schließen von Formular 2 informieren<\/h2>\n
Das ist alles kein Problem, wenn die Formulare unabhängig voneinander sind. Wenn Formular 1 aber nun Werte anzeigt (beispielsweise in einem Unterformular in der Datenblattansicht), die in Formular 2 bearbeitet werden, soll das Unterformular von Formular 1 nach dem Schließen von Formular 2 tunlichst aktualisiert werden, damit es den aktuellen Stand des bearbeiteten Datensatzes anzeigt.<\/p>\n
Formular 1 muss also irgendwie informiert werden, wenn der Benutzer Formular 2 schließt. Dies können Sie auf folgende Art erledigen: Dabei öffnet Formular 1 das Formular 2 mit dem Wert acDialog <\/b>für den Parameter WindowMode<\/b>. Dies bewirkt, dass Access den aufrufenden Code erst fortsetzt, wenn Formular 2 den Fokus verliert. Dies kann durch zwei Ereignisse geschehen – wenn der Benutzer das Formular schließt oder wenn es nicht mehr sichtbar ist.<\/p>\n
Schauen wir uns dies für die Beispielformulare frm1_1 <\/b>und frm2_1 <\/b>an. Die Schaltfläche in frm1_1 <\/b>löst die Ereignisprozedur aus Listing 1 aus. Formular 2 wird dadurch als modaler Dialog geöffnet, die zweite Anweisung der Prozedur wird noch nicht ausgeführt.<\/p>\n
Private Sub <\/span>cmdForm2Oeffnen_Click()\r\n     DoCmd.OpenForm \"frm2_1\", WindowMode:=acDialog\r\n     MsgBox<\/span> \"Formular 2 ist geschlossen oder unsichtbar\"\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Formular modal öffnen<\/p>\n
Erst wenn der Benutzer Formular 2 schließt, zeigt die Prozedur die Meldung mit dem Text Formular 2 ist geschlossen <\/b>an.<\/p>\n
Der Nachteil bei dieser Vorgehensweise ist, dass der Benutzer erst nach dem Schließen von Formular 2 wieder auf Formular 1 oder andere Formulare zugreifen kann. Das kann aber auch zum Vorteil werden – nämlich dann, wenn das aufrufende Formular die im aufgerufenen Formulare eingegebenen Daten oder Aktionen erwartet.<\/p>\n
Ereignisse abgreifen<\/h2>\n
Es geht aber noch etwas eleganter: Beim folgenden Beispiel ruft die Schaltfläche in Formular 1 wiederum Formular 2 auf, diesmal allerdings nicht im modalen Modus. Als Beispiele dienen die Formulare frm1_2 <\/b>und frm2_2<\/b>.<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t