I'm using the following to bring a person details using a Barcode .
It works fine.
But if I'm using the same barcode again on the already found person,
for some reason it brings me a person that is not related to this barcode.
In the third attempt it will bring me the right person... and so on.
Private Sub Barcode_AfterUpdate()
Dim rst As DAO.Recordset
Dim strCriteria As String
strCriteria = "[Bar_Code] = " & Me.Barcode
Set rst = Me.RecordsetClone
rst.FindFirst strCriteria
If rst.NoMatch Then
MsgBox "No entry found.", vbInformation
Else
Me.Bookmark = rst.Bookmark
End If
Set rst = Nothing
End Sub
am I missing something?