Obsah
V tomto návode sa naučíte, ako nájsť prvý záznam, ktorý spĺňa určité vstupné kritériá.
Nasleduje tabuľka s názvom ProductsT:
Použitie FindFirst s VBA
Syntax metódy .FindFirst je výraz.FindFirst (kritériá), kde:
výraz - sada záujmov.
Kritériá - reťazec, ktorý sa používa na identifikáciu záznamu. Je to podobné ako v klauzule WHERE v SQL.
Poznámka: Musíme použiť metódu Recordset.FindFirst v kombinácii s príkazom IF ELSE a metódou .NoMatch. To VBA hovorí, čo má robiť, ak sa nájde zhoda.
Nasledujúci kód vám ukáže, ako nájsť prvý názov produktu, ktorého cena je vyššia ako 15 dolárov:
Sub UsingFindFirst () Dim ourDatabase As Database Dim ourRecordset as Recordset Set ourDatabase = CurrentDb Set ourRecordset = ourDatabase.OpenRecordset ("ProductsT", Type: = RecordsetTypeEnum.dbOpenDynaset) With ourRecordset .FindFirst "". MsgBox "Nenašla sa žiadna zhoda" Inak MsgBox "Produkt bol nájdený a jeho názov je:" & ourRecordset! NázovProduktu Koniec Ak DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
Výsledkom je:
