Innholdsfortegnelse
I denne opplæringen lærer du hvordan du finner den første posten som oppfyller visse inngangskriterier.
Vi har et bord kalt ProductsT vist nedenfor:
Bruke FindFirst med VBA
Syntaksen for .FindFirst -metoden er expression.FindFirst (kriterier) der:
uttrykk - Rekordsett av interesse.
Kriterier - en streng som brukes til å identifisere en post. Det ligner WHERE -leddet i SQL.
Merk: Vi må bruke Recordset.FindFirst -metoden i kombinasjon med IF ELSE -setning og .NoMatch -metode. Dette forteller VBA hva de skal gjøre hvis en kamp blir funnet.
Følgende kode viser deg hvordan du finner det første produktnavnet hvis pris er større enn $ 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 "No Match Found" Else MsgBox "Produktet er funnet og navnet er:" & ourRecordset! ProductName End If End With DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
Resultatet er:
