Userform Textbox Focus

[NickRed18]

Hi everyone,

I am making a simple userform with a couple text boxes and 2 buttons. I am having a terrible time setting up the userform to set the focus of the cursor to my textbox after pressing enter - I want the focus set to this textbox every single time I press enter. This is my code, my userform's name is ScanningInterface. The issue is whenever I press [Enter] to submit my textbox input, the focus is shifted to one of my buttons right below it, even with all the .SetFocus commands I have!


'Whenever the userform pops up, sets focus - it works great right here
Private Sub UserForm_Activate()
ScanInput.SetFocus
End Sub




'Press enter - activate the sub Updatesheet from Module1
Private Sub ScanInput_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ScanInput.SetFocus
If KeyCode = vbKeyReturn Then
ScanInput.SetFocus
Call Updatesheet
ScanningInterface.ScanInput.Text = ""
ScanInput.SetFocus
End If
ScanInput.SetFocus
End Sub


The focus is always shifted to selecting the button every time!!!

 

[NickRed18]

Re: Userform Textbox Focus - Driving me crazy!

I see what you're saying about the Return key being pressed twice, but just for clarification: The only items on the userform are the Textbox (ScanInput), and two buttons (AddNewItem and RemoveItem). The AddNewItem button is the one "stealing" the focus away after entering in my data into the textbox.

 

[RoryA]

Re: Userform Textbox Focus - Driving me crazy!

Think of it as a timing issue. The pressing the enter key down initiates your code which sets focus (although the focus hasn't actually left at that point) then when you release the key, focus shifts to the next control.