Uzyskaj dostęp do VBA Findfirst

W tym samouczku dowiesz się, jak znaleźć pierwszy rekord, który spełnia określone kryteria wejściowe.

Mamy tabelę o nazwie ProductsT pokazaną poniżej:

Używanie FindFirst z VBA

Składnia metody .FindFirst to wyrażenie.FindFirst(kryteria) gdzie:

wyrażenie - interesujący zestaw rekordów.

Kryteria - ciąg znaków służący do identyfikacji rekordu. Jest podobny do klauzuli WHERE w SQL.

Notatka: Musimy użyć metody Recordset.FindFirst w połączeniu z instrukcją IF ELSE i metodą .NoMatch. To mówi VBA, co zrobić, jeśli zostanie znalezione dopasowanie.

Poniższy kod pokaże Ci, jak znaleźć pierwszą nazwę produktu, którego cena jest większa niż 15 USD:

Sub UsingFindFirst() Dim ourDatabase As Database Dim ourRecordset As Recordset Set ourDatabase = CurrentDb Set ourRecordset = ourDatabase.OpenRecordset("ProductsT", Type:=RecordsetTypeEnum.dbOpenDynaset) With ourRecordset .FindFirst "ProductPricePerUnit" & ">15" If. MsgBox "Nie znaleziono dopasowania" Else MsgBox "Produkt został znaleziony i jego nazwa to: " & ourRecordset!ProductName End If End With DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub 

Wynik to: