Innehållsförteckning
I den här självstudien lär du dig hur du hittar den första posten som uppfyller vissa ingångskriterier.
Vi har en tabell som heter ProductsT som visas nedan:
Använda FindFirst med VBA
Syntaxen för .FindFirst -metoden är expression.FindFirst (kriterier) där:
uttryck - posten av intresse.
Kriterier - en sträng som används för att identifiera en post. Det liknar WHERE -satsen i SQL.
Notera: Vi måste använda metoden Recordset.FindFirst i kombination med ett IF ELSE -uttalande och .NoMatch -metoden. Detta berättar för VBA vad de ska göra om en matchning hittas.
Följande kod visar hur du hittar det första produktnamnet vars pris är högre än $ 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 matchning hittades" Annan MsgBox "Produkten har hittats och dess namn är:" & ourRecordset! ProductName End If End With DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
Resultatet är: