Kürzer und gebräuchlicher sind jedoch diese Versionen (siehe Bild 1):<\/p>\n
Bild 1: Referenzieren eines Formulars<\/p>\n Mit der Ausrufezeichen-Syntax greifen Sie auf alle Elemente von Auflistungen zu, die benutzerdefiniert sind, die Sie also selbst erstellt haben. Das gilt im Folgenden auch für Steuerelemente.<\/p>\n Wenn das Formular gerade das einzige geöffnete Formular ist, können Sie auch diese Syntax nutzen:<\/p>\n Beachten Sie, dass dies immer funktioniert, wenn das betroffene Formular geöffnet ist – egal, in welcher Ansicht. Sie können also auch Eigenschaften von Formularen in der Entwurfsansicht über diese Anweisung ausgeben.<\/p>\n Sie können so von außen, also vom Direktfenster oder auch von einem anderen Formular aus, Eigenschaften lesen und einstellen. Wenn Sie beispielsweise einen Filter für ein Formular festlegen möchten, verwenden Sie diese beiden Anweisungen:<\/p>\n Um den Filter zu deaktivieren, stellen Sie die Eigenschaft Filter <\/b>auf den ursprünglichen Wert ein, also eine leere Zeichenkette:<\/p>\n FilterOn <\/b>wird dabei automatisch auf False <\/b>eingestellt, was sich leicht prüfen lässt:<\/p>\n Wenn Sie wie im Beispiel oben mehrfach auf ein referenziertes Objekt zugreifen, können Sie die Referenz auch in einer Variablen des entsprechenden Objekttyps speichern und auf die Variable zugreifen, statt immer wieder neu zu referenzieren. Für ein Formular deklarieren Sie die Variable wie folgt:<\/p>\n Sobald Sie mit Variablen arbeiten, fügen Sie die Anweisungen praktischerweise in eine Prozedur ein, die Sie wie in folgendem Beispiel in einem Standardmodul anlegen (mdlFormReferenzen<\/b>):<\/p>\n Wenn Sie innerhalb des Klassenmoduls eines Formulars auf Formular-Eigenschaften zugreifen möchten, können Sie dies ebenfalls über die oben vorgestellten Referenzierungen durchführen.<\/p>\n Die Schaltfläche cmdNameAusgeben <\/b>löst bei Mausklick eine Prozedur aus, die den Namen des Formulars frmBeispiel <\/b>ausgibt:<\/p>\n Für den Zugriff auf ein Formular-Objekt innerhalb des Klassenmoduls des Formulars gibt es jedoch eine Vereinfachung.<\/p>\n Statt Forms! Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>![\"Referenzieren](\"..\/tl_files\/images\/pic_84_001.png\")
<\/a><\/p>\nDebug.Print<\/span> Forms(\"frmBeispiel\").Name\r\nDebug.Print<\/span> Forms!frmBeispiel.Name<\/pre>\nDebug.Print<\/span> Forms(0).Name<\/pre>\nBeispiel: Filter<\/h2>\n
Forms!frmBeispiel.Filter = \"Artikelname = 'Chang'\"\r\nForms!frmBeispiel.FilterOn = True<\/span><\/pre>\nForms!frmBeispiel.Filter = \"\"<\/pre>\n
Forms!frmBeispiel.FilterOn\r\nFalsch<\/pre>\n
Referenz speichern<\/h2>\n
Dim <\/span>frm As <\/span>Form<\/pre>\nPublic Sub <\/span>FormReferenz()\r\n Dim <\/span>frm As <\/span>Form\r\n Set<\/span> frm = Forms!frmBeispiel\r\n frm.Filter = \"Artikelname = 'Chang'\"\r\n frm.FilterOn = True<\/span>\r\nEnd Sub<\/span><\/pre>\nSich selbst referenzieren<\/h2>\n
Private Sub <\/span>cmdNameAusgeben_Click()\r\n MsgBox<\/span> Forms!frmBeispiel.Name\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdNameAusgeben_Click()\r\n MsgBox<\/span> Me.Name\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