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