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.7.9 Die Seek-Methode zum Suchen in Table-Recordsets

9.7.10 Die Find-Methoden zum Suchen in Dynaset- und Snapshot-Recordsets

In Dynaset- und Snapshot-Recordsets lässt sich die Seek-Methode nicht einsetzen. Dafür gibt es dort mehrere Suchmethoden, die zwar nicht so performant sind, aber durch flexiblere Einsetzbarkeit glänzen. Es gibt nämlich insgesamt vier Methoden zum Suchen in Recordsets: FindFirst, FindNext, FindPrevious und FindLast. Da diese Methoden sich nicht auf einen Index beziehen, geben Sie hier direkt den Namen des Feldes an, in dem gesucht werden soll. Der Feldname wird zusammen mit dem Vergleichsoperator und dem Vergleichswert in einem Ausdruck zusammengefasst und der entsprechenden Find...-Methode als Parameter mitgegeben. Die folgende Routine sucht nach dem ersten Datensatz, dessen Feld Nachname den Wert Minhorst enthält:

Public Sub SucheMitFindNext()

    Dim db As DAO.Database
    Dim rst As DAO. Recordset2
    Dim strKriterium As String

    Set db = CurrentDb
    Set rst = db.OpenRecordset("tblMitarbeiter", dbOpenDynaset)

    strKriterium = "Nachname = 'Minhorst'"

    rst.FindFirst strKriterium

    If Not rst.NoMatch Then
        Debug.Print rst!Vorname & " " & rst!Nachname

    Else
        Debug.Print "Kein passender Datensatz gefunden."
    End If

    rst.Close

    Set rst = Nothing
    Set db = Nothing

End Sub

Listing 9.35: Suche nach einem Datensatz per FindNext-Methode

Auch hier müssen Sie unbedingt die NoMatch-Eigenschaft auswerten. Nur der Wert False weist auf eine erfolgreiche Suche hin, anderenfalls bleibt der Datensatzzeiger auf der aktuellen Position stehen.

Nächster Abschnitt:

9.7.11 Alle Datensätze mit einem bestimmten Kriterium finden

© 2006-2008 André Minhorst Alle Rechte vorbehalten.