{"id":55000362,"date":"2017-08-01T00:00:00","date_gmt":"2020-01-24T15:59:51","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=362"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Alle_Ereignisse_im_Hauptformular","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Alle_Ereignisse_im_Hauptformular.html","title":{"rendered":"Alle Ereignisse im Hauptformular"},"content":{"rendered":"

Wenn Sie mit Haupt- und Unterformularen arbeiten und Ereignisprozeduren sowohl in der Code behind-Klasse des Haupt- und des Unterformulars angelegt haben, kann es manchmal unübersichtlich werden. Das ist vor allem dann der Fall, wenn Ereignisse im Unterformular sich auf die Abläufe im Hauptformular auswirken. Dieser Artikel zeigt, wie Sie die Ereignisse, die durch ein Unterformular ausgelöst werden, im Klassenmodul des Hauptformulars implementieren. Damit können Sie Ereignisse, Objekte und Variablen in nur noch einem Modul nutzen.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1704_EreignisseImHauptformular.accdb<\/b>.<\/p>\n

Beispielkonfiguration<\/h2>\n

In unserem Beispiel wollen wir die Einträge einer Tabelle namens tblArtikel <\/b>in einem Unterformular anzeigen. Das Hauptformular soll Steuer-elemente zum Hinzufügen eines neuen Artikels, zum Löschen eines Artikels oder zum Bearbeiten eines bestehenden Artikels enthalten. Dazu ist es aus Gründen der Ergonomie notwendig, dass die Schaltflächen zum Anzeigen eines Datensatzes zum Bearbeiten und zum Löschen des aktuell markierten Datensatzes nur aktiviert sind, wenn der Benutzer auch einen Datensatz im Datenblatt markiert hat.<\/p>\n

Das Unterformular versehen wir daher mit der Tabelle tblArtikel <\/b>als Datenherkunft und ziehen alle Felder dieser Tabelle aus der Feldliste in den Detailbereich des Entwurfs. Außerdem stellen wir die Eigenschaft Standardansicht <\/b>des Formulars auf Datenblatt <\/b>ein (siehe Bild 1). Speichern Sie das Unterformular unter dem Namen sfmArtikeluebersicht<\/b> und schließen Sie es. Dann legen Sie ein neues Formular namens frmArtikeluebersicht <\/b>an und ziehen das Unterformular sfmArtikeluebersicht <\/b>aus dem Navigationsbereich in den Detailbereich des neuen Formulars.<\/p>\n

\"Entwurf<\/a><\/p>\n

Bild 1: Entwurf des Unterformulars mit der Datenblattansicht<\/p>\n

Außerdem fügen Sie noch drei Schaltflächen namens cmdNeu, cmdBearbeiten <\/b>und cmdLoeschen<\/b> zu diesem Hauptformular hinzu. Ordnen Sie die Steuer-elemente wie in Bild 2 an und stellen Sie außerdem die beiden Eigenschaften Horizontaler Anker <\/b>und Vertikaler Anker <\/b>des Unterformular-Steuerelements aus Beide <\/b>ein. Für die unter diesem Steuer-element befindlichen Schaltflächen müssen Sie entsprechend Horizontaler Anker <\/b>auf Unten <\/b>einstellen, damit sich das Unterformular beim Vergrößern des Hauptformulars nicht über die Schaltflächen legt.<\/p>\n

\"Haupt-<\/a><\/p>\n

Bild 2: Haupt- und Unterformular in der Entwurfsansicht<\/p>\n

Da das Hauptformular selbst keine Daten anzeigt, können Sie dessen Eigenschaften Navigationsschaltflächen<\/b>, Datensatzmarkierer<\/b>, Trennlinien <\/b>und Bildlaufleisten <\/b>auf Nein <\/b>einstellen sowie Automatisch zentrieren <\/b>auf Ja<\/b>.<\/p>\n

Nun wollen wir dafür sorgen, dass die beiden Schaltflächen cmdBearbeiten und cmdLoeschen deaktiviert werden, wenn der Datensatzzeiger im Unterformular nicht auf einen Datensatz zeigt – also beispielsweise der neue Datensatz markiert ist wie in Bild 3.<\/p>\n

\"Die<\/a><\/p>\n

Bild 3: Die beiden Schaltflächen cmdBearbeiten und cmdLoeschen sollen deaktiviert sein, wenn im Unterformular kein Datensatz markiert ist.<\/p>\n

Klassisch erledigen wir das wie folgt: Wir nutzen das Ereignis Beim Anzeigen <\/b>des Unterformulars, indem wir die entsprechende Eigenschaft den Wert [Ereignisprozedur] <\/b>auswählen und dann auf die Schaltfläche mit den drei Punkten rechts von der Eigenschaft klicken. Dann ergänzen wir die im VBA-Editor angelegte Ereignisprozedur wie in Listing 1. Das Ereignis wird jeweils beim Verschieben des Datensatzzeigers auf einen der Datensätze ausgelöst, auch beim Verschieben auf den leeren, neuen Datensatz.<\/p>\n

Private Sub <\/span>Form_Current()\r\n     Me.Parent!cmdBearbeiten.Enabled = Not<\/span> IsNull(Me!ArtikelID)\r\n     Me.Parent!cmdLoeschen.Enabled = Not<\/span> IsNull(Me!ArtikelID)\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Diese Prozedur aktiviert und deaktiviert die Schaltflächen.<\/p>\n
In der Ereignisprozedur stellen wir die Eigenschaft Enabled <\/b>der beiden Schaltflächen jeweils auf den Wert des Ausdrucks Not IsNull(Me!ArtikelID) <\/b>ein. Me!Artikel <\/b>hat immer einen Wert, wenn der Datensatzzeiger auf einen Datensatz zeigt, im Falle des leeren, neuen Datensatzes liefert dies jedoch den Wert Null<\/b>. In diesem Fall werden die beiden Schaltflächen dann wie in der Abbildung deaktiviert. Beim Wechsel zu einem anderen Datensatz aktiviert die Ereignisprozedur die beiden Schaltflächen jedoch wieder.<\/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