Dies hält den Code der aufrufenden Prozedur an. Sie würden das aufgerufene Formular dann beim Klick auf die Schaltfläche OK <\/b>mit der folgenden Anweisung unsichtbar machen:<\/p>\n Die aufrufende Prozedur würde dies dann als Beenden des Dialog interpretieren, prüfen, ob das Formular zwar unsichtbar, aber noch geöffnet ist, und die gewünschten Daten auslesen, bevor sie das Formular endgültig schließt:<\/p>\n Zu dieser Vorgehensweise gibt es eine elegante Alternative, die es nicht erfordert, das aufgerufene Formular erst noch unsichtbar zu schalten und dann im aufrufenden Formular zu prüfen, ob dieses überhaupt noch vorhanden ist.<\/p>\n Wir wollen uns diese beiden Vorgehensweisen im Vergleich anschauen. Dazu legen wir ein Formular namens frmZiel <\/b>an, welches zwei Schaltflächen zum öffnen zweier Formulare mit jeweils einer der beiden Methoden enthält. Außerdem besitzt dieses Formular zwei Textfelder, in welche die in die geöffneten Formulare eingegebenen Texte beim Schließen übertragen werden sollen (siehe Bild 1).<\/p>\n Bild 1: Formular, das andere Formular aufruft und vor dem Schließen deren Werte einliest<\/p>\n Die erste Schaltfläche namens cmdOpenForm <\/b>verwendet die folgende Prozedur, um das Formular frmQuelle1 <\/b>mit der DoCmd.OpenForm<\/b>-Methode als modalen Dialog zu öffnen:<\/p>\n Nach dem öffnen gibt der Benutzer einen Text in das einzige Textfeld dieses Formulars ein und klickt auf die Schaltfläche OK<\/b>, um das Formular wieder zu schließen. Dies lässt die aufrufende Prozedur weiterlaufen, die dann mit der Hilfsfunktion IstFormularGeoeffnet <\/b>aus dem Modul mdlTools <\/b>prüft, ob das geöffnete Formular überhaupt noch geöffnet ist. Falls ja, wurde der modale Modus durch Setzen der Eigenschaft Visible <\/b>auf den Wert True <\/b>aufgehoben.<\/p>\n In diesem Fall trägt die erste Zeile innerhalb der If…Then<\/b>-Bedingung den Wert des Textfeldes txtEingabe <\/b>des Formulars frmQuelle1 <\/b>in das Textfeld txtZiel1 <\/b>des Formular frmZiel <\/b>ein. Die zweite Anweisung schließt das noch geöffnete, aber unsichtbare Formular frmQuelle <\/b>nun endgültig.<\/p>\n Der Ablauf sieht so wie in Bild 2 aus. Die Schaltfläche cmdOK <\/b>von frmQuelle1 <\/b>löst die folgende Ereignisprozedur aus:<\/p>\n Bild 2: Aufruf und übergabe des Textes von Formular zu Formular<\/p>\n Die zweite Methode ist ähnlich aufgebaut, aber verwendet einen etwas anderen Code. Voraussetzung für das Funktionieren ist die Deklaration einer Variablen, mit dem wir das zu öffnende Formular referenzieren können. Die Deklaration muss im Kopf des Klassenmoduls Form_frmZiel <\/b>erfolgen, damit die Variable nach dem Initialisieren immer noch verfügbar ist. Zusätzlich benötigen wir ein spezielles Schlüsselwort, nämlich WithEvents<\/b> – mehr dazu gleich:<\/p>\n Die zweite Schaltfläche namens cmdNewInstance <\/b>löst nun beim Anklicken die folgende Ereignisprozedur aus:<\/p>\n Diese erstellt eine neue Instanz des Formulars frmQuelle2<\/b>, wozu es das New<\/b>-Schlüsselwort mit dem Klassenmodul dieses Formulars verwendet. Das Ergebnis landet in der Variablen frm<\/b>. Für diese legen wir nun die Eigenschaft Modal <\/b>auf den Wert True <\/b>fest, damit das Formular als modaler Dialog geöffnet wird. Mit Visible = True <\/b>wird das noch unsichtbare Formular eingeblendet. Danach folgt eine Anweisung, die mit dem zuvor verwendeten Schlüsselwort WithEvents<\/b> in Zusammenhang steht:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Me.Visible = False<\/span><\/pre>\nDoCmd.Close acForm, \"frmQuelle\"<\/pre>\n
Beispielformular<\/h2>\n
![\"Formular,](\"..\/tl_files\/images\/pic_339_001.png\")
<\/a><\/p>\nMethode 1: öffnen mit DoCmd.OpenForm<\/h2>\n
Private Sub <\/span>cmdOpenForm_Click()\r\n DoCmd.OpenForm \"frmQuelle1\", WindowMode:=acDialog\r\n If <\/span>IstFormularGeoeffnet(\"frmQuelle1\") Then<\/span>\r\n Me!txtZiel1 = Forms!frmQuelle1!txtEingabe\r\n DoCmd.Close acForm, \"frmQuelle1\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\nPrivate Sub <\/span>cmdOK_Click()\r\n Me.Visible = False<\/span>\r\nEnd Sub<\/span><\/pre>\nMethode 2: öffnen per New und Reaktion auf das Schließen per Implementierung von OnClose<\/h2>\n
Dim <\/span>WithEvents frm As <\/span>Form<\/pre>\nPrivate Sub <\/span>cmdNewInstance_Click()\r\n Set<\/span> frm = New<\/span> Form_frmQuelle2\r\n With<\/span> frm\r\n .Modal = True<\/span>\r\n .Visible = True<\/span>\r\n .OnClose = \"[Event Procedure]\"\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nfrm.OnClose = \"[Event Procedure]\"<\/pre>\n
\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