Thanks Per Jessen,

I missed the Len part of the statement I was using Me.txtInvClaim <2 but I
could still tab when entering aplha char. It's been a hard day at the office

Many thanks again for your help

ViViC

Per Jessen wrote:
Hi ViVic

In the 'exit sub' you have to check if two characteres has been entered:

Private Sub txtInvClaim_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not OkaytoExit Then
If Me.txtInvClaim.Value = "" Or Len(Me.txtInvClaim) < 2 Then
Cancel = True
MsgboxResult = MsgBox("Please enter RiskCover Claim No",
vbExclamation, "Shared Services")
Me.txtInvClaim.SetFocus
Exit Sub
End If
End If
End Sub

Regards,
Per

Hi all,

[quoted text clipped - 76 lines]

ViViC

--
Message posted via http://www.officekb.com