Dim rst As DAO.Recordset
Set rst = Forms![Form1].FrmTclientBatch.Form.RecordsetClone
rst.FindFirst "abiCode='" & SaveCode & "'"
If Not rst.NoMatch Then
  Forms![Form1].FrmTclientBatch.Form.Bookmark = rst.Bookmark
Else
  MsgBox ("Not found")
End If

Select all