{"id":55000084,"date":"2012-08-01T00:00:00","date_gmt":"2020-01-24T15:57:59","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=84"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Formulare_und_Steuerelemente_referenzieren","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Formulare_und_Steuerelemente_referenzieren.html","title":{"rendered":"Formulare und Steuerelemente referenzieren"},"content":{"rendered":"

Je mehr Sie VBA zur Steuerung von Formularen und Steuerelementen einsetzen, desto öfter greifen Sie dabei per Code auf die Inhalte oder Eigenschaften dieser Elemente zu – beispielsweise, um den Wert eines Feldes auszulesen oder einen Eintrag eines Kombinationsfeldes auszuwählen. Dieser Artikel liefert eine übersicht, wie Sie von verschiedenen Stellen aus Formulare und Steuerelemente referenzieren.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1110_FormulareReferenzieren.mdb<\/b>.<\/p>\n

Global referenzieren<\/h2>\n

Wir beginnen mit den Verweisen, die Sie von beliebigen Stellen aus nutzen können. Damit ist das Testen für den Anfang am einfachsten: Sie können die folgenden Anweisungen einfach in das Direktfenster des VBA-Editors eingeben, dass Sie mit Strg + G <\/b>sichtbar machen.<\/p>\n

Beginnen wir mit dem nackten Formular. Ein Formular referenzieren Sie mit einem Verweis auf ein Element der Forms<\/b>-Auflistung.<\/p>\n

Wenn Sie beispielsweise den Namen eines Formulars ermitteln möchten, können Sie die folgende Anweisung absetzen:<\/p>\n

Debug.Print<\/span> Forms.Item(\"frmBeispiel\").Name<\/pre>\n
Kürzer und gebräuchlicher sind jedoch diese Versionen (siehe Bild 1):<\/p>\n
\"Referenzieren<\/a><\/p>\n
Bild 1: Referenzieren eines Formulars<\/p>\n
Debug.Print<\/span> Forms(\"frmBeispiel\").Name\r\nDebug.Print<\/span> Forms!frmBeispiel.Name<\/pre>\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
Debug.Print<\/span> Forms(0).Name<\/pre>\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
Beispiel: Filter<\/h2>\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
Forms!frmBeispiel.Filter = \"Artikelname = 'Chang'\"\r\nForms!frmBeispiel.FilterOn = True<\/span><\/pre>\n
Um den Filter zu deaktivieren, stellen Sie die Eigenschaft Filter <\/b>auf den ursprünglichen Wert ein, also eine leere Zeichenkette:<\/p>\n
Forms!frmBeispiel.Filter = \"\"<\/pre>\n
FilterOn <\/b>wird dabei automatisch auf False <\/b>eingestellt, was sich leicht prüfen lässt:<\/p>\n
  Forms!frmBeispiel.FilterOn\r\nFalsch<\/pre>\n
Referenz speichern<\/h2>\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
Dim <\/span>frm As <\/span>Form<\/pre>\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
Public 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>\n
Sich selbst referenzieren<\/h2>\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
Private Sub <\/span>cmdNameAusgeben_Click()\r\n     MsgBox<\/span> Forms!frmBeispiel.Name\r\nEnd Sub<\/span><\/pre>\n
Für den Zugriff auf ein Formular-Objekt innerhalb des Klassenmoduls des Formulars gibt es jedoch eine Vereinfachung.<\/p>\n
Statt Forms!<\/b> verwenden Sie einfach das Schlüsselwort Me<\/b>. Die obige Prozedur könnte also auch so aussehen:<\/p>\n
Private Sub <\/span>cmdNameAusgeben_Click()\r\n     MsgBox<\/span> Me.Name\r\nEnd Sub<\/span><\/pre>\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