Selecting another Textbox

[Rocky0201]

Hi,

I have a TextBox on my UserForm (TextBox119). I having difficulties selecting another TextBox once I validate the entry in TextBox119. I've reviewed many posts and tried many variations but to no avail. Whenever I enter a value and press enter or tab, the cursor goes to a ComboBox in the same Frame.

Private Sub TextBox119_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    With TextBox119
        If Not IsNumeric(.Text) And .Text <> "" Then
            '.Text = Left(.Text, Len(.Text) - 1)
            Msg = Msg & "Milestone Duration must be Numeric"
            Style = vbOKOnly '//Define buttons.
            Title = "Milestone Activation" '// Define title.
            '// Display message.
            Response = MsgBox(Msg, Style, Title)
           Else
            With TextBox126
                .Text = ""
                .SetFocus
            End With
        End If
    End With
    
End Sub

The TextBox'es are in Frame2 which Frame2 is in Multipage5, if this makes a difference.

Thanks for any help you can provide.

 

[mikerickson]

Try putting in the AfterUpdate event rather than the Exit event.

 

[Rocky0201]

Thanks Mike for your response.

I did try Afterupdate, BeforeUpdate, and Exit. I changed my code to the following:

Private Sub TextBox119_Change()
    
    With TextBox119
        If Not IsNumeric(.Text) And .Text <> "" Then
            '.Text = Left(.Text, Len(.Text) - 1)
            Msg = Msg & "Milestone Duration must be Numeric"
            Style = vbOKOnly '//Define buttons.
            Title = "Milestone Activation" '// Define title.
            '// Display message.
            Response = MsgBox(Msg, Style, Title)
        End If
    End With
    
End Sub
Private Sub TextBox119_AfterUpdate()
    Me.TextBox126.SetFocus
End Sub

No matter what I've tried, it seems that the SetFocus is ignored except if I use _Change. However, if I use Change, then every time I enter a value, the Change event occurs. So, if I wanted to enter 10, the Change event will execute on the 1 and the 0.

Any addition suggestions would greatly be appreciated.

Thanks

 

[mikerickson]

This worked for me.

Private Sub TextBox119_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    With TextBox119
        If IsNumeric(.Text & "0") Then
            TextBox126.Text = ""
            TextBox126.SetFocus
        Else
            MsgBox "Enter a Number"
            Cancel = True
        End If
    End With
End Sub

It may be that the With..EndWith in the OP are improperly nested.
TextBox126 is not a property of TextBox119. Therefore

With TextBox119
    '...
    With TextBox126
        '...
    End With
'...
End With

is improperly nested. Sometimes you can get away with improper nesting, sometimes not.
(With .Parent.Parent.TextBox126 would be proper nesting.)

 

[Rocky0201]

Thanks Mike. I'll give this a try and let you know.