Return to VBA Code Examples

Access VBA Findfirst

In this tutorial, you will learn how to find the first record that meets a certain input criteria.

We have a table called ProductsT shown below:

Access Source Table

Using FindFirst with VBA

The syntax of the .FindFirst method is expression.FindFirst(criteria) where:

expression –  the Recordset of interest.

Criteria – a string that is used to identify a record. It is similar to the WHERE clause in SQL.

Note: We have to use the Recordset.FindFirst method in combination with an IF ELSE statement and the .NoMatch method. This tells VBA what to do if a match is found.

The following code will show you how to find the first product name whose price is greater than $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 "ProductPricePerUnit" & ">15"
If .NoMatch Then

MsgBox "No Match Found"
MsgBox "The product has been found and its name is: " & ourRecordset!ProductName

End If
End With

DoCmd.Close acTable, "ProductsT", acSaveNo
DoCmd.OpenTable "ProductsT"

End Sub

The result is:

Using FindFirst in Access VBA to Match a Record