Obsah
V tomto kurzu se naučíte, jak najít první záznam, který splňuje určitá vstupní kritéria.
Níže uvádíme tabulku s názvem ProductsT:
Použití FindFirst s VBA
Syntaxe metody .FindFirst je výraz.FindFirst (kritéria), kde:
výraz - Záznamová sada zájmu.
Kritéria - řetězec, který slouží k identifikaci záznamu. Je to podobné jako klauzule WHERE v SQL.
Poznámka: Musíme použít metodu Recordset.FindFirst v kombinaci s příkazem IF ELSE a metodou .NoMatch. To říká VBA, co má dělat, pokud je nalezena shoda.
Následující kód vám ukáže, jak najít první název produktu, jehož cena je vyšší než 15 $:
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 "Nebyla nalezena shoda" Jiný MsgBox "Produkt byl nalezen a jeho název je:" & ourRecordset! NázevProduktu Konec s DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub
Výsledek je:
