![\"übergeben](\"..\/tl_files\/images\/pic_250_001.png\")
<\/a><\/p>\nBild 1: übergeben eines Wertes von einem Formular zum nächsten<\/p>\n
frm1 <\/b>enthält ein Textfeld namens txtZuUebergeben <\/b>und eine Schaltfläche namens cmdWertUebergeben<\/b>, frm2 <\/b>enthält ein Textfeld namens txtUebergebenerWert<\/b>.<\/p>\n
Damit die Schaltfläche beim Anklicken die gewünschte Ereignisprozedur ausführt, wählen Sie für die Ereigniseigenschaft Beim Klicken <\/b>des Steuerelements den Eintrag [Ereignisprozedur] <\/b>aus und klicken dann auf die Schaltfläche rechts von der Eigenschaft. Es erscheint die leere Ereignisprozedur im VBA-Editor, die Sie wie in Listing 1 ergänzen. Die einzige Anweisung liest den Wert des Textfeldes txtZuUebergeben <\/b>des Formulars frm1 <\/b>aus. frm1 <\/b>kann über den Ausdruck Me <\/b>referenziert werden, da es sich im gleichen Formular befindet, zu dem das Klassenmodul mit dieser Prozedur gehört.<\/p>\n Listing 1: übergeben eines Wertes zwischen zwei Formularen<\/p>\n Wenn Sie den Wert des Ausdrucks Me!txtZuUebergeben <\/b>nun an ein Textfeld in einem anderen Formular übergeben möchten, können Sie nicht mit dem Ausdruck Me <\/b>auf das Zielformular zugreifen – schließlich handelt es sich um ein anderes Formular. Also referenzieren wir dieses Formular über die Auflistung Forms <\/b>und dessen Element frm2 <\/b>(Forms!frm2<\/b>). Das Zielsteuerelement hängen wir, durch ein weiteres Ausrufezeichen angeführt, an diesen Ausdruck an (Forms!frm2!txtUebergebenerWert<\/b>). Die Zuweisung sieht nun so aus:<\/p>\n Es gibt noch eine ganze Menge weiterer Schreibweisen, um das Zieltextfeld zu referenzieren. Die folgende ist noch relativ einfach:<\/p>\n Diese Version ist die ausführlichste:<\/p>\n Hier identifizieren wir das Zielformular über die Item<\/b>-Eigenschaft der Forms<\/b>-Auflistung. Dieses wiederum hat eine Controls<\/b>-Auflistung, die ebenfalls eine Item<\/b>-Eigenschaft für den Zugriff auf das gewünschte Element bietet.<\/p>\n Schließlich verwenden wir die Eigenschaft Value<\/b>, um auf den Wert des Steuerelements zuzugreifen. Dabei handelt es sich um die Standardeigenschaft, die Sie normalerweise nicht anzugeben müssen.<\/p>\n Sie können das Zielformular auch vorher mit einer Variable des Typs Form <\/b>referenzieren, was den Ausdruck etwas übersichtlicher macht – hier für eine zweite Schaltfläche namens cmdWertUebergebenII <\/b>hinterlegt. Die Variable heißt frmZiel <\/b>und wird mit dem Verweis auf Forms!frm2 <\/b>gefüllt (alternativ Forms(„frm2“)<\/b> oder Forms.Item(„frm2“)<\/b>):<\/p>\n Normalerweise werden Sie den Wert gleich beim öffnen eines Formulars vom öffnenden Formular an das geöffnete Formular übergeben wollen. Der Versuchsaufbau ist dem aus dem vorherigen Beispiel sehr ähnlich. Die Formulare heißen nun frm3 <\/b>und frm4<\/b> (siehe Bild 2).<\/p>\n Bild 2: Aufruf eines Formulars mit direkter übergabe eines Wertes<\/p>\n Der Unterschied liegt in der Zuständigkeit der verschiedenen Aufgaben. Während im ersten Beispiel der Wert innerhalb einer einzigen Anweisung von Formular zu Formular übergeben wurde, ist hier etwas mehr Aufwand erforderlich.<\/p>\n Die Schaltfläche cmdOeffnenUndWertUebergeben <\/b>des Formulars frm3 <\/b>soll diesmal das Formular frm4 <\/b>öffnen und diesem gleich den entsprechenden Wert übergeben. Kein Problem, wie die Prozedur aus Listing 2 zeigt: Wir öffnen einfach das Formular frm4 <\/b>mit dem Aufruf der Methode DoCmd.OpenForm <\/b>mit dem Namen des zu öffnenden Formulars als Parameter, also frm4<\/b>.<\/p>\n Listing 2: Aufruf eines weiteren Formulars mit übergabe eines Wertes<\/p>\n Direkt nach dieser Anweisung übergeben wir wie im vorherigen Beispiel den Wert aus dem Textfeld an das entsprechende Textfeld des aufgerufenen Formulars.<\/p>\n Nun kann es ja sein, dass Sie das Formular frm4 <\/b>als modalen Dialog öffnen, damit der Benutzer zunächst die Eingaben in dieses Formular vornimmt und erst nach dem Schließen von frm4 <\/b>mit der Bearbeitung in frm3 <\/b>fortfahren kann.<\/p>\n In diesem Fall ändern wir die Parameter der DoCmd.OpenForm<\/b>-Methode wie folgt:<\/p>\n Allerdings zeigt dies nicht die gewünschte Wirkung: Das Formular frm4<\/b> wird zwar geöffnet, das Textfeld aber nicht mit dem Wert aus dem Textfeld von frm3<\/b> gefüllt (siehe Bild 3).<\/p>\n Bild 3: Dies gelingt nicht, wenn das Formular als modaler Dialog geöffnet wird.<\/p>\n Darüberhinaus tritt nach dem Schließen von frm4<\/b> auch noch ein Fehler auf (siehe Bild 4) – und zwar in der Zeile, welche die Zuweisung durchführen soll. Dies zeigt auch gleich, worin das Problem bei dieser Vorgehensweise liegt: Wenn die Prozedur das Formular frm4 <\/b>mit dem Parameter WindowMode:=acDialog <\/b>öffnet, wird die aufrufende Prozedur an dieser Stelle unterbrochen und erst dann fortgeführt, wenn der Benutzer das Formular frm4 <\/b>wieder schließt.<\/p>\n Bild 4: Fehler nach dem Schließen des modal geöffneten Formulars<\/p>\n In diesem Moment führt die Prozedur aus frm3 <\/b>die Anweisung aus, welche das Textfeld in frm4 <\/b>mit dem Wert des Textfeldes aus frm3 <\/b>füllen soll. Dies führt dann zu einem Fehler, da frm4 <\/b>ja gar nicht mehr vorhanden ist!<\/p>\n Auch für diese Konstellation gibt es eine Lösung, die aber ein wenig aufwendiger zu programmieren ist. Sie sollten sich die notwendigen Schritte dennoch merken, denn Sie werden diese vermutlich sehr oft benötigen.<\/p>\n In diesem Falle ändern wir die Prozedur cmdOeffnenUndWertUebergeben <\/b>erneut. Dabei entfernen wir die Anweisung, welche das Textfeld in frm4 <\/b>direkt mit dem Inhalt des Textfeldes aus frm3 <\/b>füllte. Dafür versehen wir die DoCmd.OpenForm<\/b>-Anweisung mit einem weiteren Parameter, nämlich OpenArgs<\/b>. Für diesen legen wir den Inhalt des Textfeldes als als Parameterwert fest (siehe Listing 3).<\/p>\n Listing 3: Aufruf als modaler Dialog und übergabe eines Wertes als öffnungsargument<\/p>\n Solange Sie nun am aufgerufenen Formular keine änderungen vornehmen, tut sich dort nach dem öffnen durch eine Klick auf die Schaltfläche cmdOeffnenUndWertUebergeben <\/b>zunächst einmal nichts.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Private Sub <\/span>cmdWertUebergeben_Click()\r\n Forms!frm2!txtUebergebenerWert = Me!txtZuUebergeben\r\nEnd Sub<\/span><\/pre>\nForms!frm2!txtUebergebenerWert = Me!txtZuUebergeben<\/pre>\n
Forms(\"frm2\")(\"txtUebergebenerWert\")<\/pre>\n
Forms.Item(\"frm2\").Controls.Item( \"txtUebergebenerWert\").Value<\/pre>\n
Private Sub <\/span>cmdWertUebergebenII_Click()\r\n Dim <\/span>frmZiel As <\/span>Form\r\n Set<\/span> frmZiel = Forms!frm2\r\n frmZiel!txtUebergebenerWert = Me!txtZuUebergeben\r\nEnd Sub<\/span><\/pre>\nWert beim öffnen übergeben<\/h2>\n
<\/a><\/p>\nPrivate Sub <\/span>cmdOeffnenUndWertUebergeben_Click()\r\n DoCmd.OpenForm \"frm4\"\r\n Forms!frm4!txtUebergebenerWert = Me!txtZuUebergeben\r\nEnd Sub<\/span><\/pre>\nübergabe an modalen Dialog<\/h2>\n
DoCmd.OpenForm \"frm4\", WindowMode:=acDialog<\/pre>\n
<\/a><\/p>\n<\/a><\/p>\nWertübergabe per öffnungsargument<\/h2>\n
Private Sub <\/span>cmdOeffnenUndWertUebergeben_Click()\r\n DoCmd.OpenForm \"frm4\", WindowMode:=acDialog, OpenArgs:=Me!txtZuUebergeben\r\nEnd Sub<\/span><\/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