Re-Set Focus to the proper field...

[BrianExcel]

I have a text box on a userform in which the user enters a 4-digit number and then presses 'Enter.' When the user presses enter the following code runs:

Private Sub txtCenter_Change()

Application.ScreenUpdating = False

    If KeyCode = vbKeyReturn Then
     btnCenterLookup_Click
        frmCenterLookup.txtCenter.SetFocus
    End If
End Sub

My problem is that the .setfocus command doesn't work. When the user hits enter, I don't need to erase the current value in the text box, but I basically want whatever 4-digit number the user enters next to overwrite the current one so the user can just enter a number and then press enter, enter another number, press enter again, etc.

What am I doing wrong?

PS - The btnCenterLookup_Click runs more code, but rather than having a button AND the enter code, which would require the same code twice, I wanted them to just press enter, so I left the button as not visible.

 

[Andrew Poulsom]

The Change event doesn't have a KeyCode argument, so it can't be vbKeyReturn.

 

[BrianExcel]

What would you recommend? I need it to function so that when the user presses enter the code runs, but then I need focus re-set to the same field.

Ideas?

 

[Andrew Poulsom]

If you only have a TextBox and a hidden CommandButton try:

Private Sub txtCenter_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        With txtCenter
            .SelStart = 0
            .SelLength = Len(.Text)
            .SetFocus
        End With
    End If
End Sub