<\/p>\n
Wenn man mit SDI-Forms arbeiten, also mit solchen Formularen, die als einzelne Fenster geöffnet werden, möchte man manchmal eine der folgenden beiden Aufgaben erledigen – oder auch beide: Das aufrufende Formular soll Daten an das aufgerufene Formular übergeben, beispielsweise um den Primärschlüssel eines im Detailformular anzuzeigenden Datensatzes zu übergeben. Oder man möchte ein Formular zum Abfragen von Daten öffnen und diese dann vom aufrufenden Formular aus aufrufen. Wie beides gelingt und welche unterschiedlichen Wege es dazu gibt, schauen wir uns in diesem Artikel an. Außerdem betrachten wir, welche Arten von Daten man grundsätzlich übertragen können sollte.<\/b><\/p>\n
Es wird immer wieder Anlässe geben, bei denen wir einen Button auf einer Form verwenden, um eine andere Form damit zu öffnen. In manchen Fällen reicht dies aus – wir verwenden die andere Form dann für einen Zweck, der in sich abgeschlossen ist. In vielen Fällen wird es jedoch so sein, dass wir Daten von einem zum anderen Fenster übergeben wollen – und vielleicht auch wieder zurück. Ein Beispiel sind Forms, die an Daten gebunden sind. Wenn wir etwa ein Form-Objekt nutzen, um darauf eine Liste von Produkten anzuzeigen, wollen wir meist auch ein weiteres Form verwenden, um die Details eines einzelnen Produkts zu liefern – beispielsweise um diese bearbeiten zu können. Wenn wir dann einen der Einträge in der Liste markieren und auf eine Schaltfläche klicken, um die Form mit den Details anzuzeigen, müssen wir dieser Form auf irgendeine Weise die Information übergeben, zu welchem Produkt es die Detaildaten anzeigen soll.<\/p>\n
Andersherum wollen wir nach dem Bearbeiten des Produkts oder auch nach dem Anlegen eines neuen Produkts und dem Schließen des Detailfensters Informationen an das aufrufende Fenster zurückgeben – zum Beispiel, weil wir den soeben bearbeiteten oder angelegten Datensatz in der Liste markieren wollen oder weil die Änderungen in den Daten direkt in den dort angezeigten Eintrag übernommen werden sollen.<\/p>\n
Es gibt auch noch einfachere Beispiele, die es bereits gibt – zum Beispiel das mit der Funktion MsgBox <\/b>angezeigte Meldungsfenster oder das mit InputBox <\/b>angezeigte Eingabefenster für einen einfachen Text.<\/p>\n
Wenn wir einmal Daten vom Benutzer abfragen wollen, die zu umfangreich sind als jene, die wir mit MsgBox <\/b>und InputBox <\/b>ermitteln können, müssen wir eigene Forms dafür entwickeln – und die dort ermittelten Daten wollen wir auf irgendeine Weise für die Weiterverarbeitung auslesen.<\/p>\nWeitere Beispiele für das Übertragen von Daten<\/h2>\n
Beispiele für das Übertragen von Daten zwischen zwei Form-Objekten sind die folgenden:<\/p>\n
Im Folgenden schauen wir uns verschiedene Möglichkeiten an, wie wir Daten vom aufrufenden Form<\/b>-Objekt zum aufgerufenen Form<\/b>-Objekt und zurück übergeben können:<\/p>\n Die Verwendung einer globalen Variablen ist ein Weg, mit dem wir Daten zwar nicht direkt von einer Form zur nächsten übertragen, aber wir können so einen Wert von der ersten Form aus so zur Verfügung stellen, dass die aufgerufene Form diesen auch nutzen kann. Der Nachteil ist, dass dieser Wert nicht nur von den beiden Forms gelesen und geschrieben werden kann, die ihn nutzen, sondern auch noch von anderen Stellen aus. Hier ist also sicherzustellen, dass diese Variable nur für diesen speziellen Zweck verwendet wird – beispielsweise durch einen eindeutigen Namen.<\/p>\n Für das Beispiel benötigen wir als Erstes eine globale Variable, in der wir den zu übergebenden Wert speichern können. Diese legen wir in einem neuen Modul namens mdlGlobal <\/b>unter dem Namen strGlobal <\/b>an (siehe Bild 1). Da wir nur Texte von einem Textfeld zum nächsten übertragen wollen, reicht der Datentyp String aus.<\/p>\n Bild 1: Globale Variable<\/span><\/b><\/p>\n Im Formular frmMain <\/b>haben wir ein Textfeld namens txtValue <\/b>erstellt, in das wir den zu übertragenden Wert eintragen. Für die Schaltfläche cmdSendViaGlobalVariable <\/b>haben wir den folgenden Code hinterlegt:<\/p>\n Dieser prüft, ob überhaupt ein Text enthalten ist – falls nicht, erscheint eine entsprechende Meldung. Anderenfalls schreibt die Prozedur den Inhalt des Textfeldes in die Variable strGlobal<\/b> und ruft die Form frmGlobalVariable <\/b>auf. Diese Form enthält ebenfalls ein Textfeld namens txtValue <\/b>sowie eine Schaltfläche namens cmdOK<\/b>. Das Textfeld txtValue <\/b>soll mit dem Wert aus dem gleichnamigen Textfeld des aufrufenden Formulars gefüllt werden.<\/p>\n Dazu legen wir in der aufgerufenen Form eine Ereignisprozedur für das Ereignis Load <\/b>an. Dieses sieht wie folgt aus:<\/p>\n Damit erhalten wir das Ergebnis aus Bild 2.<\/p>\n Bild 2: Text per globaler Variable zum aufgerufenen Formular übertragen<\/span><\/b><\/p>\n Die nächste Möglichkeit setzt voraus, dass der zu übergebende Wert in einem Steuerelement im aufrufenden Form<\/b>-Element angezeigt wird – wie in unserem Beispiel im Textfeld txtValue<\/b>. Wir rufen dann die zweite Form auf und können dann von dort aus dem Wert des Textfeldes auslesen und in das Textfeld der Zielform eintragen. Dazu fügen wir frmMain <\/b>eine zweite Schaltfläche namens cmdReadValueFromControl <\/b>zu, die folgende Prozedur aufruft:<\/p>\n Sie soll also einfach die Form frmReadValueFromControl <\/b>aufrufen. Für die Load<\/b>-Ereigniseigenschaft dieser Form könnten wir einfach die folgende Ereignisprozedur hinterlegen:<\/p>\n Das funktioniert, sofern die aufrufende Form frmMain <\/b>aktuell geöffnet ist. Wenn die aufgerufene Form frmReadValueFromControl <\/b>allerdings von einem anderen Form<\/b>-Objekt geöffnet wird und frmMain <\/b>nicht geöffnet ist, erhalten wir einen Fehler.<\/p>\n Diesen können wir allerdings umgehen, indem wir prüfen, ob die Form geöffnet ist. Dazu erweitern wir die Prozedur wie folgt:<\/p>\n Die Funktion IsFormOpen <\/b>ist allerdings keine eingebaute Funktion, wir müssen diese selbst programmieren. Die Funktion erwartet den Namen des zu untersuchenden Formulars und gibt den Wert True <\/b>zurück, wenn es geöffnet ist. Sie durchläuft in einer For…Next<\/b>-Schleife alle Zahlen von 0 <\/b>bis zur Anzahl der geöffneten Formulare minus 1<\/b>. In dieser Schleife vergleicht sie den Namen des aktuell durchlaufenen Formulars mit dem zu untersuchenden. Sind beide gleich, ist das Formular geöffnet und die Funktion kann den Wert True <\/b>zurückgeben, bevor sie beendet wird.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>\n
Von Form zu Form mit einer globalen Variablen<\/h2>\n
![\"Globale](\"..\/fileadmin\/_temp_\/2023_05\/pic_397_002.png\")
<\/p>\nPrivate Sub <\/span>cmdSendViaGlobalVariable_Click()\r\n If <\/span>Not<\/span> Len<\/span>(txtValue) = 0 Then<\/span>\r\n strGlobal = txtValue\r\n frmGlobalVariable.Show\r\n Else<\/span>\r\n MsgBox<\/span> \"Textfeld ist leer.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Me.txtValue = strGlobal\r\nEnd Sub<\/span><\/pre>\n![\"Text](\"..\/fileadmin\/_temp_\/2023_05\/pic_397_001.png\")
<\/p>\nAuslesen des zu übergebenden Wertes aus einem Steuerelement<\/h2>\n
Private Sub <\/span>cmdReadValueFromControl_Click()\r\n If <\/span>Not<\/span> Len<\/span>(txtValue) = 0 Then<\/span>\r\n frmReadValueFromControl.Show\r\n Else<\/span>\r\n MsgBox<\/span> \"Textfeld ist leer.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Me.txtValue.Text = frmMain.txtValue\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n If <\/span>IsFormOpen(\"frmMain\") Then<\/span>\r\n Me.txtValue.Text = frmMain.txtValue\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>IsFormOpen(strForm As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n For i = 0 To Forms.Count - 1\r\n If <\/span>Forms(i).Name = strForm Then<\/span>\r\n Return True<\/span>\r\n Exit Function<\/span>\r\n End If<\/span>\r\n Next<\/span> i\r\nEnd Function<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 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