How to exit from a not in list error

I have a combo box into which the user types a id number. If the number is not found it displays an error message. (see code). However it will not let the user exit. the combo box drops down and you are forced to pick something from the list and then you can push the exit button. How do remedy this to let the person either enter a new number  or exit the form ?
Private Sub Combo17_NotInList(NewData As String, Response As Integer)
MsgBox "Record Not Found", vbOKOnly, "Oh Dear"
    Response = acDataErrContinue

Open in new window

Serena2345Asked:
Who is Participating?
 
Rey Obrero (Capricorn1)Connect With a Mentor Commented:
see this link

Use NotInList Event to Add a Record to Combo Box

http://support.microsoft.com/?kbid=197526


0
 
Serena2345Author Commented:
Thanks Cappy
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.