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!

9.2.2 Deklarieren und Instanzieren

9.2.3 Auf Auflistungen zugreifen

In Listing 9.2 haben Sie bereits ein Beispiel für das Durchlaufen einer Auflistung des DAO-Objektmodells kennen gelernt. Es gibt zwei Möglichkeiten, die zahlreichen Auflistungen dieses Objektmodells zu durchlaufen: die For...Next-Schleife und die For Each-Schleife.

Die For...Next-Schleife erscheint als eines der in fast allen Programmiersprachen vertretenen Konstrukte möglicherweise intuitiver:

Public Sub TabellenfelderMitForNext()
    ...
    Dim i As Integer

    Set db = CurrentDb
    Set tdf = db.TableDefs("tblMitarbeiter")

    For i = 0 To tdf.Fields.Count - 1
        Set fld = tdf.Fields(i)
        Debug.Print fld.Name
    Next i
    ...
End Sub

Listing 9.3: Auflistung per For...Next-Schleife durchlaufen

Alternativ dazu finden Sie hier die For Each-Variante. Diese Variante spart die Laufvariable i, die Ermittlung der Anzahl der Elemente der Auflistung und die explizite Zuweisung des Field-Objekts ein.

Dafür ist die folgende Prozedur aber unmerklich langsamer als die vorherige:

Public Sub TabellenfelderKurz()
    ...
    Set db = CurrentDb
    Set tdf = db.TableDefs("tblMitarbeiter")

    For Each fld In tdf.Fields
        Debug.Print fld.Name
    Next fld
    ...
End Sub

Listing 9.4: Zugriff auf eine Auflistung per For Each-Schleife

Nächster Abschnitt:

9.2.4 Punkte und Ausrufezeichen

© 2006-2008 André Minhorst Alle Rechte vorbehalten.