Combo, "NotInList" event doesn't fire

[GraeagleBill]

I want to take some special action when a user keys in a string that's not in the list. I started with some simple test code:

Private Sub cboDescriptions_NotInList(NewData As String, Response As Integer)
MsgBox "Not in List " & NewData
End Sub

I don't get my test message when I type in a string that's not in the list. Below is a screenshot of the combo's Event properties:



What might I be missing.............. that is, besides a brain I mean

[June7]

Is LimitToList property set to Yes?

[GraeagleBill]

"LimitToList" property is set to "NO"

[June7]

Set it to Yes.

[GraeagleBill]

I did mention something about my "brain"............ SIGH!
So, all I need to do now is suppress the message from Access so I can move on with the action I want taken when entered text isn't in the list?

[June7]

Review https://blueclawdatabase.com/notinlist-event-code/

[GraeagleBill]

Thanks, I got all of that. I just need to temporarily suppress:

DoCmd.SetWarnings False doesn't seem to get the job done. I tried to turn warnings off while the code serviced the text string and then back on when the combo lost the focus but the warning persists.

[moke123]

you didn't show your code or explain what you want to do but you'll probably have to use acDataErrContinue or acDataErrAdded

[June7]

BlueClaw code shows that. Here's another https://www.devhut.net/2010/06/12/ms...in-list-event/

[GraeagleBill]

I'll add more code asking user, but for now I'm just trying to get the addition of a new item successfully added. Here's the event code:

 
Private Sub cboDescriptions_NotInList(NewData As String, Response As Integer)

CurrentDb.Execute "INSERT INTO tblRegDescriptions (Description) VALUES(""" & NewData & """);"
DoCmd.Save acTable, "tblRegDescriptions"
Me.cboDescriptions = Null
Me.cboDescriptions.Requery
Response = acDataErrContinue

End Sub

I keep getting the 2489 error: (Even though the insert was in fact successful)



The error goes away if I remove the DoCmd.Save statement. Now, if I can just get the combo to collapse without having to select the newly added text I'm done. (I'll capture NewData first)

[June7]

DoCmd.Save has nothing to do with saving data, it is to save design changes. Remove that line.

[GraeagleBill]

GOT IT! Just had to do things in the right order.

Private Sub cboDescriptions_NotInList(NewData As String, Response As Integer)

CurrentDb.Execute "INSERT INTO tblRegDescriptions (Description) VALUES(""" & NewData & """);"
'DoCmd.Save acTable, "tblRegDescriptions"
Me.cboDescriptions = Null
Me.cboDescriptions.Requery
Me.tbNewDescription.SetFocus
Me.cboDescriptions.Visible = False
Me.tbNewDescription = NewData

Response = acDataErrContinue

Call tbNewDescription_AfterUpdate

End Sub