On Lost Focus Event

[data808]

I have a combo box with a list of values and I am trying to control the prompt that lets the user know when they are typing a value into the cell that is not listed in the drop down box. I basically want the focus to stay on this combo box if they don't select one of the values listed. The scenario that this works with is for when the user presses the tab key to go through the fields in the form. When they get to the combo box they can just type the first letter of the value they want and press tab to auto fill the rest and move on. However, if I let Access' prompt to stop the user from going further if the user decides to click on a button to go to another form or another record within the same form, Access will prompt them to select a valid value from the drop down list, but it will also glitch the hover color of the button to get stuck in that color. So this is the reason why I want to control the prompt with a msgbox instead and that will stop the user and make the hover color of the button they click on not get stuck. Here is the code I have on the Lost Focus event:

If Me.cmbSubject.Value <> "Payment" Or "Return" Then
MsgBox ("Please Select Subject From Drop Down List!"), vbCritical, "Requirement"
Me.cmbSubject.SetFocus


End If

The problem I am having is the that Me.cmbSubject.SetFocus seems to be happening right before the On Lost Focus event happens and so the cursor will still move to the next text box after the msgbox pops up. How can I keep the focus on the cmb.Subject so the user cannot move on until they correct the value?

[Bob Fitz]

Have you tried the NotInList event or the BeforeUpdate events of the combo

[Gicu]

My vote is on the BeforeUpdate as you can use its Cancel argument to prevent the update.

Cheers,

[data808]

My vote is on the BeforeUpdate as you can use its Cancel argument to prevent the update.

Cheers,

Thanks. So I just realized that my prompt will not stop the hover color glitch for the button from happening either. Just to clarify whats happening. User fills out form and gets to the Subject combo box. User types a value that isn't in that list and without moving the cursor to the next text box, they decide to click a button to go to another form or another record without saving. Access will prompt the user to select a value from the list and now the button's hover color is stuck as if the mouse cursor is still hovering over the button. Is there a way to refresh the button so it goes back to normal while the user corrects the Subject value?

Here is the code I have in the Before Update event:

Private Sub cmbSubject_BeforeUpdate(Cancel As Integer)


If (Me.cmbSubject = "Abstract" Or Me.cmbSubject = "Bench Warrant") Then
    Exit Sub
Else
    MsgBox ("Please Select Subject From Drop Down List!"), vbCritical, "Requirement"
    Cancel = True
End If


End Sub

[data808]

Have you tried the NotInList event or the BeforeUpdate events of the combo

Thanks for the suggestion. Will be trying the Before Update event.