Inhaltsverzeichnis
In diesem Tutorial erfahren Sie, wie Sie den ersten Datensatz finden, der ein bestimmtes Eingabekriterium erfüllt.
Wir haben eine Tabelle namens ProductsT, die unten gezeigt wird:
Verwenden von FindFirst mit VBA
Die Syntax der Methode .FindFirst ist expression.FindFirst(criteria), wobei:
Ausdruck - der Datensatz von Interesse.
Kriterien - eine Zeichenfolge, die verwendet wird, um einen Datensatz zu identifizieren. Sie ähnelt der WHERE-Klausel in SQL.
Notiz: Wir müssen die Recordset.FindFirst-Methode in Kombination mit einer IF ELSE-Anweisung und der .NoMatch-Methode verwenden. Dies sagt VBA, was zu tun ist, wenn eine Übereinstimmung gefunden wird.
Der folgende Code zeigt Ihnen, wie Sie den ersten Produktnamen finden, dessen Preis mehr als $15 beträgt:
Sub UsingFindFirst() Dim ourDatabase As Database Dim ourRecordset As Recordset Set ourDatabase = CurrentDb Set ourRecordset = ourDatabase.OpenRecordset("ProductsT", Type:=RecordsetTypeEnum.dbOpenDynaset) With ourRecordset .FindFirst "ProductPricePerUnit" & ">15" Then ..NoMatch MsgBox "Keine Übereinstimmung gefunden" Else MsgBox "Das Produkt wurde gefunden und sein Name lautet: " & ourRecordset!ProductName End If End With DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
Das Ergebnis ist: