Nyissa meg a VBA Findfirst alkalmazást

Ebben az oktatóanyagban megtudhatja, hogyan találhatja meg az első rekordot, amely megfelel bizonyos beviteli feltételeknek.

Az alábbiakban a ProductsT nevű táblázatot láthatjuk:

A FindFirst használata a VBA -val

A .FindFirst metódus szintaxisa a kifejezés.FindFirst (feltételek) ahol:

kifejezés - az érdekelt rekordok.

Feltételek - karakterlánc, amely a rekord azonosítására szolgál. Hasonló a WHERE záradékhoz az SQL -ben.

Jegyzet: A Recordset.FindFirst metódust IF ELSE utasítással és .NoMatch metódussal együtt kell használni. Ez megmondja a VBA -nak, hogy mit kell tennie, ha találatot talál.

A következő kód megmutatja, hogyan találhatja meg az első olyan terméknevet, amelynek ára meghaladja a 15 USD -t:

Sub UsingFindFirst () Dim ourDatabase as Database Dim ourRecordset As Recordset Set ourDatabase = CurrentDb Set ourRecordset = ourDatabase.OpenRecordset ("ProductsT", Type: = RecordsetTypeEnum.dbOpenDynaset) A miRecordset .FitFirst> Product.dat.index.html. MsgBox "Nincs egyezés" Else MsgBox "A terméket megtaláltuk, és a neve:" & ourRecordset! ProductName End If End with DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub 

Az eredmény: