Change system message

[Guest]

When you have a combo box where you must choose something from a list and the
list to list property is set to Yes the message that comes up is "The text
you entered isn't an item in the list. Select an item from the list, or
enter text that matches one of the listed items" I would like to personalize
that message based on the control (this so I can change the message depending
on the control - different control different message). Is there a way to do
this? Thanks.

 

[UpRider]

Sarah, use something like this in the NotInList event for the combobox:

Private Sub Combo10_NotInList(NewData As String, Response As Integer)
MsgBox " You must enter valid data .", vbOKOnly, " G O O D D A T A
R E Q U I R E D "
Me.Undo
Response = acDataErrContinue
End Sub

UpRider

 

[Guest]

When I put this is the form ignors it and the other message still appears. I
put it on the control where the incorrect data can be entered.
??????

 

[John W. Vinson]

When I put this is the form ignors it and the other message still appears. I
put it on the control where the incorrect data can be entered.

Be sure the combo's Limit to List property is set to Yes.

John W. Vinson [MVP]

 

[UpRider]

Sarah:
Open the form in design view.
Press F4 to get the property sheet
Click on your combo box
On the property sheet, click the EVENT tab
In the line for 'on not in list', drop down and choose 'EVENT PROCEDURE'
Click on the ... (3 dots)
A code window will open with the cursor just were it needs to be.
The cursor will be between 2 lines of code.
Paste the below 3 lines there:

MsgBox "You must enter valid data ."
Me.Undo
Response = acDataErrContinue

Close the code window, go to form view and try it.

UpRider