Pasiekite „VBA Findfirst“

Šioje pamokoje sužinosite, kaip rasti pirmąjį įrašą, atitinkantį tam tikrus įvesties kriterijus.

Turime lentelę „ProductsT“, parodyta žemiau:

„FindFirst“ naudojimas su VBA

Metodo .FindFirst sintaksė yra išraiška. „FindFirst“ (kriterijai), kur:

išraiška - interesų įrašų rinkinys.

Kriterijai - eilutė, naudojama įrašui identifikuoti. Tai panašu į WHERE sąlygą SQL.

Pastaba: Turime naudoti metodą Recordset.FindFirst kartu su IF ELSE teiginiu ir .NoMatch metodu. Tai nurodo VBA, ką daryti, jei randama atitiktis.

Šis kodas parodys, kaip rasti pirmąjį produkto pavadinimą, kurio kaina didesnė nei 15 USD:

Sub UsingFindFirst () Dim ourDatabase as Database Dim ourRecordset As Recordset Nustatykite ourDatabase = CurrentDb Nustatykite ourRecordset = ourDatabase.OpenRecordset ("ProductsT", Type: = RecordsetTypeEnum.dbOpenDynaset) Su ourRecordset .FitFirst "Product>" Find ". „MsgBox“ neatitiko „Else MsgBox“ Produktas buvo rastas ir pavadintas taip: „& ourRecordset! ProductName End if End with DoCmd.Close acTable," ProductsT ", acSaveNo DoCmd.OpenTable" ProductsT "End Sub 

Rezultatas yra toks: