{"id":55000087,"date":"2012-08-01T00:00:00","date_gmt":"2020-01-24T15:58:00","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=87"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"For_EachSchleifen","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/For_EachSchleifen.html","title":{"rendered":"For Each-Schleifen"},"content":{"rendered":"

Die For…Next-Schleife ist Ihnen längst bekannt. Etwas weniger oft nutzt man die For Each-Schleife. Der Hauptgrund ist, dass diese nur mit Auflistungen zusammenarbeitet, also mit Objekten, die meiste mehrere gleichartige Objekte zusammenfassen. Beispiele sind die Formulare einer Datenbank oder die Steuerelemente eines Formulars. Anhand dieser Beispiele lernen Sie in diesem Beitrag die Verwendung von For Each-Schleifen kennen.<\/p>\n

Beispieldatenbank<\/h2>\n

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

Jeder nur einmal!<\/h2>\n

Die For Each<\/b>-Schleife ist bestens dazu geeignet. Elemente von Auflistungen unter VBA zu durchlaufen. Auflistungen Was für Auflistungen Nun: In objektorientierten Sprachen, wie es auch VBA teilweise ist, gibt es nicht nur Objekte mit bestimmten Eigenschaften (wie Formulare, Steuerelemente, Datenbanken oder Tabellen), sondern auch Objekte, die den Zugriff auf solche Elemente etwa über die Angabe eines Indexes erlauben.<\/p>\n

Offene Formulare durchlaufen<\/h2>\n

Wenn Sie beispielsweise einmal wissen möchten, welche Formulare aktuell in Ihrer Datenbank geöffnet sind, hilft Ihnen eine For Each<\/b>-Schleife weiter. Die Auflistung AllForms <\/b>des CurrentProject-Objekts liefert die notwendigen Daten. Mit der folgenden Anweisung können Sie etwa im Direktfenster die Anzahl der Formulare der aktuellen Datenbank abfragen:<\/p>\n

  CurrentProject.AllForms.Count\r\n 4 <\/pre>\n
Nun wollen Sie aber alle Formulare durchlaufen und deren Namen ausgeben. Um dies innerhalb einer For Each<\/b>-Schleife durchzuführen, brauchen Sie zunächst einmal eine Objektvariable als Laufvariable. In diesem Fall verwenden Sie dazu ein Objekt des Typs AccessObject<\/b>:<\/p>\n
Dim <\/span>frm As <\/span>AccessObject<\/pre>\n
Wie finden Sie den Typ heraus Ganz einfach: öffnen Sie den Objektkatalog von Access mit der Tastenkombination F2<\/b>, suchen Sie dort nach der Auflistungsklasse (hier AllForms<\/b>) und klicken Sie auf die Eigenschaft, die so aussieht, als ob sie einen Verweis auf eines der enthaltenen Elemente zurückliefern könnte – in diesem Fall also Item<\/b>. Ganz unten erfahren Sie dann, dass Item <\/b>den Typ AccessObject <\/b>besitzt (siehe Bild 1).<\/p>\n
\"Der<\/a><\/p>\n
Bild 1: Der Objektkatalog hilft, den Typ eines Auflistungsobjekts zu ermitteln.<\/p>\n
Damit können Sie dann die For Each<\/b>-Schleife zusammensetzen, die wie folgt aussieht:<\/p>\n
For Each frm In CurrentProject.AllForms\r\n     Debug.Print<\/span> frm.Name\r\nNext<\/span> frm<\/pre>\n
Diese Schleife durchläuft alle Elemente der AllForms<\/b>-Auflistung und weist das jeweils aktuelle Element der Variablen frm <\/b>zu. Damit können Sie dann innerhalb der Schleife anstellen, was Sie möchten. Gut, es gibt eine Ausnahme: das Löschen der enthaltenen Elemente geht auf diese Weise schief.<\/p>\n
Geöffnete Formulare durchlaufen<\/h2>\n
Viele Objekte können Sie auf verschiedene Arten durchlaufen. Wenn Sie beispielsweise nur die aktuell geöffneten Elemente referenzieren möchten, nutzen Sie die Forms<\/b>-Auflistung und durchlaufen alle darin enthaltenen Objekte des Typs Form<\/b>. Das sieht dann so aus:<\/p>\n
Dim <\/span>frm As <\/span>Form\r\nFor Each frm In Forms\r\n     Debug.Print<\/span> frm.Name\r\nNext<\/span> frm<\/pre>\n
Alternative mit For…Next<\/h2>\n
Das Gleiche gelingt auch mit einer For…Next<\/b>-Schleife – die For Each<\/b>-Schleife ist nur etwas eleganter. Mit For…Next<\/b> sieht das Durchlaufen der Formulare wie folgt aus:<\/p>\n
Dim <\/span>i As Integer<\/span>\r\nFor i = 0 To Forms.Count - 1\r\n     Debug.Print<\/span> Forms(i).Name\r\nNext<\/span> i<\/pre>\n
Und wenn Sie auch hier ein Form<\/b>-Objekt nutzen möchten, füge Sie noch ein paar Zeilen hinzu:<\/p>\n
Dim <\/span>frm As <\/span>Form\r\nDim <\/span>i As Integer<\/span>\r\nFor i = 0 To Forms.Count - 1\r\n     Set<\/span> frm = Forms(i)\r\n     Debug.Print<\/span> frm.Name\r\nNext<\/span> i<\/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