vbOkayOnly

[robart6]

I want to create a combo box NotInList event procedure that displays a message box that requires the user to click OK. After user clicks OK, the focus will be set to another control on the same form.

 

[Mile-O]

Private Sub MyCombo_NotInList()
    MsgBox "Your message.", vbOkOnly
    Me.MyCombo.Undo
    Response = acDataErrContinue
    Me.MyTextBox.SetFocus
End Sub

 

[robart6]

Yes, Mile-O-Phile, I thought that was the answer also. But when the user clicks OK, nothing happens. The whole database freezes; can't close forms, can't switch to design view, can't close the database, can't do anything. Any suggestions, please!

 

[Mile-O]

What about that? (I changed the code above.)


Why do you need to switch to another textbox? Are you trying to add a new value into the combobox's RowSource?

 

[robart6]

I apologize. Both your solutions work; problem was my database was corrupt. Applied both your solutions to my backup database and they both work. Thank you very much for the help.