Indholdsfortegnelse
I denne vejledning lærer du, hvordan du finder den første post, der opfylder et bestemt inputkriterium.
Vi har et bord kaldet ProductsT vist herunder:
Brug af FindFirst med VBA
Syntaksen for .FindFirst -metoden er expression.FindFirst (kriterier), hvor:
udtryk - Rekordsættet af interesse.
Kriterier - en streng, der bruges til at identificere en post. Det ligner WHERE -klausulen i SQL.
Bemærk: Vi skal bruge Recordset.FindFirst -metoden i kombination med en IF ELSE -sætning og .NoMatch -metoden. Dette fortæller VBA, hvad de skal gøre, hvis der findes et match.
Følgende kode viser dig, hvordan du finder det første produktnavn, hvis pris er større end $ 15:
Sub UsingFindFirst () Dim ourDatabase As Database Dim ourRecordset As Recordset Set ourDatabase = CurrentDb Set ourRecordset = ourDatabase.OpenRecordset ("ProductsT", Type: = RecordsetTypeEnum.dbOpenDynaset) With ourRecordset .FindFirst "Produkt". MsgBox "Ingen match fundet" Ellers MsgBox "Produktet er fundet, og dets navn er:" & ourRecordset! ProductName End If End With DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
Resultatet er: