Error msg when using NotInList property

[dbanker]

Hello all,

Everytime i try to write an event procedure in the NotInList property of a combo box when I test it I get this error msg:

"The Expression On Not In List you entered as the event property setting produced the following error: A problem occurred while Microsoft Access was communicating with the OLE Server or ActiveX Control."

"* The expression may not result in the name of a macro, the name of a user-defined function, or [Event Procedure]."

"* There may have been an error evaluating the function event or macro."

The code i have in the event procedure is as follows:

Private Sub ComboCompName_NotInList(NewData As String, Response As Integer)
Response = MsgBox("'" & NewData & "' is not recognized in the list. Please Check spelling " + Chr(13) & _
"or use the drop down box to enter name. If company name isn't in the list, please " + Chr(13) & _
"go to New Company form and enter it as a new company first", vbOKOnly)
End Sub


If anyone has some suggestions please help.

 

[genomon]

If response is an integer it's possible that the msgbox is returning a long datatype.

The early bird may get the worm, but the second mouse gets the cheese in the trap.

 

[PHV]

Response should be set to either acDataErrDisplay, acDataErrContinue or acDataErrAdded !


Hope This Helps, PH.
FAQ219-2884
FAQ181-2886