Lang L: none (table-of-contents)
Selles õpetuses saate teada, kuidas leida esimene kirje, mis vastab teatud sisendkriteeriumidele.
Allpool on tabel ProductsT:
FindFirsti kasutamine koos VBA -ga
Meetodi .FindFirst süntaks on avaldis. FindFirst (kriteeriumid), kus:
väljend - huvipakkuv kirje.
Kriteeriumid - string, mida kasutatakse kirje tuvastamiseks. See on sarnane SQL -i WHERE klausliga.
Märge: Peame kasutama meetodit Recordset.FindFirst koos IF ELSE avalduse ja .NoMatch meetodiga. See ütleb VBA -le, mida teha, kui vaste leitakse.
Järgmine kood näitab teile, kuidas leida esimene toote nimi, mille hind on suurem kui 15 dollarit:
Sub UsingFindFirst () Dim ourDatabase andmebaasina Dim ourRecordset As Recordset Määra meieDatabase = CurrentDb Set ourRecordset = ourDatabase.OpenRecordset ("ProductsT", Type: = RecordsetTypeEnum.dbOpenDynaset) koos meieRecordset. MsgBox "Vastet ei leitud" Muu MsgBox "Toode on leitud ja selle nimi on:" & ourRecordset! ProductName End if End with DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
Tulemuseks on:
