Moving the cursor to another textbox after Enter Event - VBA

[DECOVIOTI]

Could you please help me?

With the code below, I can "Setfocus" and change the "Backcolor" of "Me.txtFT".

But, when I am trying to move the cursor to "Me.txtFT" after an "Enter" event on "txtPT", the cursor is not moving, it keeps on the "txtPT".

I am using the code below.

Private Sub txtPT_Enter()
    If Trim(Me.txtPT.Value & vbNullString) = 0 Then
        MsgBox """PT field"" must contain a value before continue. Please try again": _
        Me.txtFT.SetFocus: _
        Me.txtFT.BackColor = &H80FFFF: _
        Exit Sub
    End If
End Sub

Could you pls help me?

 

[diddi]

you are trying to trap an error in the text entry. shouldnt this be done on txtPT_Exit ?

 

[DECOVIOTI]

Hello @diddi
I am quite new in VBA and I am trying to learn as much as possible.
My idea is if the user try to select the "me.txtPT" before insert an amount in "me.txtFT", the user get a message and the cursor goes to the "me.txtFT".

I just realize now the user message should be "MsgBox """FT field"" must contain a value before continue. Please try again":"

 

[diddi]

see if this works for you. in place if the sub you posted

Private Sub txtFT_Exit()
    If Val(Trim(txtFT.Value)) = 0 Then
        MsgBox "This field must contain a value before continue. Please try again"
        Me.txtFT.SetFocus
        Me.txtFT.BackColor = &H80FFFF
    End If
End Sub

 

[DECOVIOTI]

Thanks for the suggestion..

But the action needs to be in the "me.txtPT" text box and in case of the user tries to access the "Me.txtPT" and there is no value in "Me.txtFT", then the cursor needs to move to "Me.txtFT"

 

[NoSparks]

See Siddharth Rout response to similar question here

 

[DECOVIOTI]

See Siddharth Rout response to similar question here

thanks for the explanation. @NoSparks