Com utilitzar el mètode FindFirst de VBA en Access ?

El mètode FindFirst localitza el primer registre, en un conjunt de registres, que compleix una determinada condició.

El següent exemple utilitza el mètode FindFirst per trobar un registre en un formulari que coincideixi amb el cirteri de búsqueda establert en un quadre combinat ( que en aquest cas utilitzem com un quadre de búsqueda ràpida ) i mostrar-lo.

Private Sub cboCodiArticle_AfterUpdate ()

Dim registre as DAO.Recordset
Dim strCriteri as String

If IsNull (cboCodiArticle) Then
    Exit Sub
End If

Set registre = Me.RecodsetClone
strCriteri = "[CodiArticle] =" & cboCodiArticle.value

registre.FindFirst strCriteri

If Not registre.NoMatch = True Then
    Me.Bookmark = registre.Bookmark
End if

registre.close
Set registre = nothing

End Sub