How to alert user when this code gets no match

[dlsd619]

I use the following code in a text box to jump to a certain record. The way it is now, if there is no record that matches, then it jumps to the first record in the table.

How can I trap or identify when this code returns no match?

I know it would be easy if it were a combo box (NotInList), but there is just to many records to use a combo.

Thank you for any suggestions.

Private Sub txtDateSearch_AfterUpdate()
On Error GoTo Err_txtDateSearch_AfterUpdate
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ActivityDate] = #" & Me![txtDateSearch] & "#"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Exit_txtDateSearch_AfterUpdate:
Exit Sub
Err_txtDateSearch_AfterUpdate:
MsgBox Err.Number & Err.Description
Resume Exit_txtDateSearch_AfterUpdate
End Sub

 

[MajP]

The recordset has a "nomatch" property

http://msdn2.microsoft.com/en-us/library/bb208495.aspx

 

[MajP]

after the findfirst
if rs.nomatch then
do something
end if

 

[dlsd619]

Okay...I am still stuck a little. I use the following code, and it works as far as letting the user know there was no match. However, it still goes to the first record. How can I get it to do nothing? Do I need to do something in the Before_Update event?

Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ActivityDate] = #" & Me![txtDateSearch] & "#"
If rs.NoMatch Then
MsgBox "No Match"
Response = acDataErrContinue
Else
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If

 

[MajP]

untested


Dim rs As Object
dim varBookMark as variant
Set rs = Me.Recordset.Clone
varBookMark = rs.bookmark
rs.FindFirst "[ActivityDate] = #" & Me![txtDateSearch] & "#"
If rs.NoMatch Then
MsgBox "No Match"
Response = acDataErrContinue
me.bookmark = varBookMark
Else
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If