Cuprins
În acest tutorial, veți afla cum să găsiți prima înregistrare care îndeplinește anumite criterii de introducere.
Avem un tabel numit ProductsT prezentat mai jos:
Utilizarea FindFirst cu VBA
Sintaxa metodei .FindFirst este expression.FindFirst (criterii) unde:
expresie - setul de înregistrări de interes.
Criterii - un șir care este utilizat pentru a identifica o înregistrare. Este similar cu clauza WHERE din SQL.
Notă: Trebuie să folosim metoda Recordset.FindFirst în combinație cu o instrucțiune IF ELSE și metoda .NoMatch. Aceasta îi spune VBA ce trebuie să facă dacă se găsește o potrivire.
Următorul cod vă va arăta cum să găsiți primul nume de produs al cărui preț este mai mare de 15 USD:
Sub UsingFindFirst () Dim ourDatabase as Database Dim ourRecordset As Recordset Set ourDatabase = CurrentDb Set ourRecordset = ourDatabase.OpenRecordset ("ProductsT", Type: = RecordsetTypeEnum.dbOpenDynaset) With ourRecordset .FindFirst "ProductPricePerPerUn. MsgBox "No Match Found" Altele MsgBox "Produsul a fost găsit și numele său este:" & Setul nostru de înregistrări! Numele produsului Încheie dacă se termină cu DoCmd.Închide acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
Rezultatul este:
