Unbound Combo doesn't behave as expected

[Dave14867]

Hello all, I have an unbound combo box on a form that isn't behaving as I would expect and I don't know why. The code is shown below.

What I expect is that if the Combo51 is left blank and the user clicks off of it, hits "Tab" , etc. then they get the message box (which does happen) however focus is not reset to Combo51 as expected.



Private Sub Combo51_LostFocus()
If IsNull(Me.Combo51) Then
MsgBox "You Must Select Tool Number."
Me.Combo51.SetFocus
End If


End Sub


What am I missing?

Thanks



Dave

[Minty]

A control lost focus event can't set focus to itself, otherwise you'd never get off the control.
You have to set focus somewhere else first.

The best way to deal with this is two stage - set a default value on the combo, then check for null in the after update event.

[davegri]

Don't know why but this will work if you set the focus to another control on the form first...

Private Sub Combo51_LostFocus()
If IsNull(Me.Combo51) Then
    MsgBox "You Must Select Tool Number."
    ID.SetFocus
    Me.Combo51.SetFocus
End If

[Dave14867]

I set focus to another textbox, then back to the combobox and it now works fine.

Thanks to Minty and davegri