Spinbutton action

[colinharwood]

Hi I have a userform with 6 textbox's and when I press enter, the focus moves to the next textbox.
I have now added a spinbutton to increase or decrease the value of one of the textbox's.
My problem is that now the only way I can exit the spinbutton is by the tab key, not the enter key, is there a setting I need to change to make the spinbutton exit on pressing the enter key
Thanks

 

[Jaafar Tribak]

Maybe something along these lines:

Option Explicit

Private Sub UserForm_Activate()
    Dim ctl As Control, iTabIndx As Integer
    
    On Error Resume Next
    iTabIndx = SpinButton1.TabIndex
    For Each ctl In Me.Controls
        If Not ctl Is Me.SpinButton1 Then
            If ctl.TabStop Then
                If ctl.TabIndex = iTabIndx + 1 Then
                    SpinButton1.Tag = ctl.Name
                End If
                If Len(SpinButton1.Tag) = 0 Then
                    SpinButton1.Tag = Me.Controls(0).Name
                End If
            End If
        End If
    Next ctl
End Sub


Private Sub SpinButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If KeyCode = vbKeyReturn Then Me.Controls(SpinButton1.Tag).SetFocus

End Sub

 

[colinharwood]

Hi
I have tried your code, but I cannott get it to work, infact with the code, you cannott use the keyboard to increment or decrease the textbox value
Thanks for trying

 

[colinharwood]

Hi All
Just for the record, I have continued to play around with this problem, and have found that the following code allows me to press the enter key, and move to the next textbox

Private Sub SpinButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Update.SetFocus

End Sub

 

[Jaafar Tribak]

Hi All
Just for the record, I have continued to play around with this problem, and have found that the following code allows me to press the enter key, and move to the next textbox

Private Sub SpinButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Update.SetFocus

End Sub

That would move the focus to the next control when pressing any key not just the Enter key .

EDIT:
You never mentioned in your initial post that you were using the keyboard to increment or decrease the textbox value

 

[colinharwood]

Thanks for pointing that out, I had not thought about the fact that any key would move the focus. As it is now, it performs in the way that I want it to, although others may not find this so. I also thought that the use of the keyboard arrows was a default setting for a spinbutton, Perhaps I am wrong.

 

[Jaafar Tribak]

Thanks for pointing that out, I had not thought about the fact that any key would move the focus. As it is now, it performs in the way that I want it to, although others may not find this so. I also thought that the use of the keyboard arrows was a default setting for a spinbutton, Perhaps I am wrong.

Try just this :

Private Sub SpinButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then Update.SetFocus
End Sub

and yes you are correct. The keyboard arrows is a default setting for a spinbutton

 

[colinharwood]

Thanks for your input