Userform TextBox.setfocus Problem

[BrianExcel]

I am running the following code for a userform when I press the "enter" key...

Sub txtCenterNumber_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal shift As Integer)
    Application.ScreenUpdating = False

    If KeyCode = vbKeyReturn Then
        btnCenterLookup_Click
    End If
End Sub

Right now, within the btnCenterlookup_Click there is a line of code at the end that tries to reset focus to the textbox referenced above (txtcenternumber.setfocus).

But, it's like that line of code doesn't run when I press the button. Everything else works fine, but the focus moves to the next control (within a frame) instead of staying on the textbox indicated above.

Basically, I want the focus ALWAYS to be set to that textbox unless the user physically goes somewhere else via mouse.

Any thoughts on why the .setfocus property isn't working?

 

[BobUmlas]

Private Sub txtCenterNumber_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Application.ScreenUpdating = False
If KeyCode = vbKeyReturn Then
Application.OnTime Now, "resetfocus"
End If
End Sub

in a regular module:
Sub ResetFocus()
UserForm1.txtCenterNumber.SetFocus
End Sub

 

[BrianExcel]

Worked perfectly. Thanks!

 

[Norie]

The focus problem might be something to do with the control(s) being in a frame.

Mind you I don't quite see why the focus would move somewhere else if all you are doing is calling the click event of a button.

Anyway, I tried a couple of things and this seemed to work.

    Frame1.Controls("Textbox2").SetFocus

I used a very simple example with only a few textboxes and a couple of buttons.

I also changed the TabStop property to False for all but TextBox2.