U ovom vodiču naučit ćete kako pronaći prvi zapis koji zadovoljava određene ulazne kriterije.
U nastavku imamo tablicu pod nazivom ProductsT:
Korištenje programa FindFirst s VBA
Sintaksa metode .FindFirst je izraz.FindFirst (kriteriji) gdje:
izraz - Zbirka podataka od interesa.
Kriteriji - niz koji se koristi za identifikaciju zapisa. Slično je klauzuli WHERE u SQL -u.
Bilješka: Moramo koristiti metodu Recordset.FindFirst u kombinaciji s IF ELSE izrazom i metodom .NoMatch. Ovo govori VBA -u što treba učiniti ako se pronađe podudaranje.
Sljedeći kôd pokazat će vam kako pronaći prvi naziv proizvoda čija je cijena veća od 15 USD:
Pod UpotrebaFindFirst () Zatamnite našu bazu podataka kao bazu podataka Zatamnite našu snimljenu skupinu kao skup zapisa Postavite našu bazu podataka = CurrentDb Postavite naš zapisni zapis = našu bazu podataka.OpenRecordset ("ProductsT", Vrsta: = RecordsetTypeEnum.dbOpenDynaset) S našimRecordset .FindFirst "ProductPricePert" MsgBox "Nije pronađeno podudaranje" Inače MsgBox "Proizvod je pronađen i njegov naziv je:" & ourRecordset! ProductName End If End with DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
Rezultat je:
