UserForm textBox Run Sub on Enter Press

[jjlafond]

Hello,

I have a UserForm with lots of textBoxes. At the bottom of the form is a clickable "Enter Data" button. I would like to be able to run the "Enter Data" sub by pressing the enter key on the keyboard in any of the textboxes.

I think it would work (??) by creating a sub for each textbox containing:

On Enter button
     Call Enter_Data

But I'm not at all sure how to set up code for this. Any help would be greatly appreciated.

 

[BobUmlas]

Something like this:

Private Sub CommandButton1_Click()
'do your stuff here - this is the enter button
End Sub
Private Sub TextBox1_AfterUpdate()
CommandButton1_Click
End Sub
Private Sub TextBox2_AfterUpdate()
CommandButton1_Click
End Sub
Private Sub TextBox3_AfterUpdate()
CommandButton1_Click
End Sub
Private Sub TextBox4_AfterUpdate()
CommandButton1_Click
End Sub

 

[jjlafond]

Something like this:

[COLOR=#333333]Private Sub CommandButton1_Click()[/COLOR]
[COLOR=#333333]'do your stuff here - this is the enter button[/COLOR]
[COLOR=#333333]End Sub[/COLOR]
[COLOR=#333333]Private Sub TextBox1_AfterUpdate()[/COLOR]
[COLOR=#333333]CommandButton1_Click[/COLOR]
[COLOR=#333333]End Sub[/COLOR]

This was a great suggestion, and it worked well, it wasn't quite what I was looking for. The above code went to CommandButton_1_Click well, but I needed something that worked on a keyboard key so that I could also make it work on OptionButtons as well.

I finally found one other post and modified it to what I was looking for. This takes the _AfterUpdates idea and turns it into _OnEnterPush.
The following method also works on option buttons. I can now press Enter to select the button, press space to select the button, and press enter to advance on.

Private Sub Frac1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then

If conditions Then
  Do something
Else: Call NextSub
End If

End Sub