Piekļūstiet VBA Findfirst

Šajā apmācībā jūs uzzināsit, kā atrast pirmo ierakstu, kas atbilst noteiktiem ievades kritērijiem.

Tālāk ir parādīta tabula ar nosaukumu ProductsT:

FindFirst izmantošana kopā ar VBA

.FindFirst metodes sintakse ir izteiksme. FindFirst (kritēriji), kur:

izteiksme - interešu ieraksts.

Kritēriji - virkne, kas tiek izmantota ieraksta identificēšanai. Tas ir līdzīgs klauzulai WHERE SQL.

Piezīme: Mums jāizmanto metode Recordset.FindFirst kombinācijā ar IF ELSE paziņojumu un metodi .NoMatch. Tas norāda VBA, kas jādara, ja tiek atrasta atbilstība.

Šis kods parādīs, kā atrast pirmo produkta nosaukumu, kura cena ir lielāka par 15 ASV dolāriem:

Sub UsingFindFirst () Dim ourDatabase kā datu bāze Dim ourRecordset As Recordset Iestatiet ourDatabase = CurrentDb Set ourRecordset = ourDatabase.OpenRecordset ("ProductsT", Type: = RecordsetTypeEnum.dbOpenDynaset) Ar ourRecordset .FitFirstProduct MsgBox "Nav atrasta" Else MsgBox "Produkts ir atrasts un tā nosaukums ir:" & ourRecordset! ProductName End if End with DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub 

Rezultāts ir šāds: