Warum noch ein Access-Buch?
Für wen ist das Buch?
Jetzt bestellen
+ direkter Download des eBooks!
Nur EUR 59,95!
Fehler gefunden?
Bitte melden!
Wünsche an das Buch?
Her damit!
Was denken die Leser über dieses Buch?
Lesen Sie aktuelle Rezensionen!
Kapitel des noch nicht veröffentlichten Buchs zum Downloaden, Probelesen und Kommentieren
Beispieldatenbanken
Zusätzliches Material

Das Buch im HTML-Format

Für unbestimmte Zeit bieten Addison-Wesley und André Minhorst den kompletten Inhalt des Buchs als Download an. Schauen Sie rein und informieren Sie sich über den Inhalt! Und wenn Ihnen das Buch nützlich erscheint und Sie glauben, dass Sie etwas gelernt haben oder durch das Gelesene sogar etwas Zeit und somit Geld bei Ihrer Arbeit einsparen konnten, können Sie sich ja beim Autor und beim Verlag revanchieren - beispielsweise durch den Kauf dieses Buchs.

Am schönsten wäre es natürlich, wenn Sie das Buch direkt hier bestellen - Sie erhalten das Buch dann direkt vom Verlag, und der Autor und Verlag haben dann noch mehr davon, als wenn Sie es anderswo kaufen.

Danke für Ihr Interesse!

7.7.3 For...Next- Schleifen

7.7.4 For Each-Schleifen

/b> Each-Schleifen durchlaufen alle Elemente von Auflistungen. Auch hier ist die Anzahl der Durchläufe vor dem ersten Durchlauf bekannt. Damit können Sie beispielsweise die in den unterschiedlichen Objektmodellen enthaltenen Auflistungen durchlaufen. Das folgende Beispiel gibt alle Formulare des aktuellen Projekts aus:

Public Sub FormulareAusgeben()

    Dim frm As AccessObject

    For Each frm In CurrentProject.AllForms
        Debug.Print frm.Name
    Next frm

End Sub

Listing 7.12: Ausgabe von Auflistungselementen per For Each-Schleife

Damit lassen sich For Each-Schleifen in vielen Fällen alternativ zu For...Next-Schleifen einsetzen. Das ist immer dann der Fall, wenn eine passende Auflistung vorhanden ist. Die obige Funktionalität ließe sich auch mit einer For...Next-Schleife nachbilden:

Public Sub FormulareAusgebenMitForNext()

    Dim intAnzahlFormulare As Integer
    Dim i As Integer
    Dim frm As AccessObject

    intAnzahlFormulare = CurrentProject.AllForms.Count

    For i = 0 To intAnzahlFormulare - 1
        Debug.Print CurrentProject.AllForms(i).Name
    Next i

End Sub

Listing 7.13: Auflistung mit einer For...Next-Schleife durchlaufen

Nächster Abschnitt:

7.7.5 Do...Loop-Schleifen und Varianten

© 2006-2008 André Minhorst Alle Rechte vorbehalten.