A
Afrosheen via AccessMonster.com
I found this program on this board for a filtered "Find" command:
Private Sub txtFind_AfterUpdate()
If Len(txtFind) > 0 Then
Me.Filter = "[lname] Like ""*" & txtFind & "*"""
Me.FilterOn = True
Else
Me.FilterOn = False
End If
End Sub
What it is doing is if it finds the record and I skip through to the next and
the next it doesn't stop at the last record. It wants to add a new record. Is
there a way of stopping this?
Thanks for the help
Private Sub txtFind_AfterUpdate()
If Len(txtFind) > 0 Then
Me.Filter = "[lname] Like ""*" & txtFind & "*"""
Me.FilterOn = True
Else
Me.FilterOn = False
End If
End Sub
What it is doing is if it finds the record and I skip through to the next and
the next it doesn't stop at the last record. It wants to add a new record. Is
there a way of stopping this?
Thanks for the help