Kazalo
V tej vadnici se boste naučili, kako najti prvi zapis, ki izpolnjuje določena vhodna merila.
Spodaj imamo tabelo z naslovom ProductsT:
Uporaba FindFirst z VBA
Sintaksa metode .FindFirst je izraz.FindFirst (merila), kjer:
izraz - Zbirka zanimivosti.
Kriteriji - niz, ki se uporablja za identifikacijo zapisa. Podobno je klavzuli WHERE v SQL.
Opomba: Uporabiti moramo metodo Recordset.FindFirst v kombinaciji z izjavo IF ELSE in metodo .NoMatch. To pove VBA, kaj naj stori, če se najde ujemanje.
Naslednja koda vam bo pokazala, kako najti prvo ime izdelka, katerega cena je večja od 15 USD:
Pod UporabiteFindFirst () Zatemnite našo bazo podatkov kot bazo podatkov Zatemnite našo snemalno skupino kot nabor zapisov Nastavite našo podatkovno bazo = CurrentDb Nastavite našoRecordset = našo zbirko podatkovnih baz.OpenRecordset ("ProductsT", Vrsta: = RecordsetTypeEnum.dbOpenDynaset) Z našimRecordset .FindFirst "ProductPricePert" MsgBox "Ni ujemanja" Drugače MsgBox "Izdelek je bil najden in njegovo ime je:" & ourRecordset! ProductName End Če se konča z DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
Rezultat je:
