Toegang tot VBA Findfirst

In deze zelfstudie leert u hoe u het eerste record kunt vinden dat aan bepaalde invoercriteria voldoet.

We hebben een tabel met de naam ProductsT hieronder weergegeven:

FindFirst gebruiken met VBA

De syntaxis van de .FindFirst-methode is expression.FindFirst(criteria) waarbij:

expressie - de recordset van belang.

Criteria - een tekenreeks die wordt gebruikt om een ​​record te identificeren. Het is vergelijkbaar met de WHERE-clausule in SQL.

Opmerking: We moeten de Recordset.FindFirst methode gebruiken in combinatie met een IF ELSE statement en de .NoMatch methode. Dit vertelt VBA wat te doen als er een overeenkomst wordt gevonden.

De volgende code laat u zien hoe u de eerste productnaam kunt vinden waarvan de prijs hoger is dan $ 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 Then "ProductPricePerUnit If" & ">15" MsgBox "No Match Found" Else MsgBox "Het product is gevonden en de naam is: " & ourRecordset!ProductName End If End With DoCmd.Close acTable, "ProductsT", acSaveNo DoCmd.OpenTable "ProductsT" End Sub 

Het resultaat is: