Prevent error& access message for combo Not_In_List

  • Thread starter Thread starter Gina
  • Start date Start date
G

Gina

Hi all.

I am trying not to get this access triggered error message if an item is not
part of the list
_____________________________________________________________
Private Sub cboSearch_NotInList(NewData As String, Response As Integer)

MsgBox "Customer " & NewData & " is not part of this DB." & vbCrLf & _
"To create a new customer please press corresponding button
first or choose from list ."
cboSearch.Undo

End Sub

___________________________

If I set the cboSearch.text = "" I get a 'Null' error on the following event
in line -->
_________________________
Private Sub cboSearch_AfterUpdate()
Dim rs As Object

Set rs = Me.Recordset.Clone

If Not IsNull(rs) Then
--> rs.FindFirst "[CustID] = " & Str(Me![cboSearch])
Me.Bookmark = rs.Bookmark
End If
End Sub
______________________

any help highly welcome - like always ;)

Thanks,
Gina
 
Back
Top