stop tab going to next field on error - excel VBA 2016

[F0RE5T]

Hi
I use the following code in a text box.
vUcase = UCase(TxbCCID.Value)
vUcaseLen = Len(vUcase)
If vUcaseLen <> 4 Then

MsgBox ("Cost Centre Code requires 4 chars")
TxbCCID.SetFocus
Else
TxbCCID.Value = vUcase
End If

Issue is that if less than 4 characters put in and user press TAB key then the setfocus is ignored.

Can / is there a code than can be used in the error trap so to stay in the field.

many thanks in advance for any solutions.
Forest

 

[dmt32]

Hi,
you don't say which event you are using but you could try placing your code in the controls exit event which has the cancel parameter

Private Sub TxbCCID_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    vUcase = UCase(TxbCCID.Value)
    vUcaseLen = Len(vUcase)
    If vUcaseLen <> 4 Then
    
    MsgBox ("Cost Centre Code requires 4 chars")
    Cancel = True
    Else
    TxbCCID.Value = vUcase
    End If
End Sub

and see if this resolves your issue

Dave.