Erro ao mudar de campo

Bom Dia!

Estou encontrando um problema, no meu campo de CPF, quando e digitado um campo incompleto por exemplo "123.4" e a pessoa data tab aparece a seguinte mensagem "o valor que inseriu não é apropriado para a máscara de entrada" ai eu tenho que aperta ESC para limpar o campo.

Já tentei o código para limpar o campo especifico para não aparecer o erro porém não funciona.

Gostaria de uma orientação para tratativa deste erro.

Código:

Private Sub txt_ndoc_AfterUpdate()
'CONVERTE O MINUSCULO EM MAISCULA
Me.ActiveControl = UCase(Me.ActiveControl)
If Len(Me.txt_ndoc) < 11 Then
    Me.txt_ndoc = left(Me.txt_ndoc, 11)
    Me.txt_ndoc = Null

Else
'VERIFICA O CPF
If Not IsNull(Me.txt_ndoc) And check_brasileiro = -1 Then
If txt_ndoc = "11111111111" Or txt_ndoc = "22222222222" Or txt_ndoc = "33333333333" _
Or txt_ndoc = "44444444444" Or txt_ndoc = "55555555555" Or txt_ndoc = "66666666666" _
Or txt_ndoc = "77777777777" Or txt_ndoc = "88888888888" Or txt_ndoc = "99999999999" Or txt_ndoc = "00000000000" Then
    MsgBox "O CPF: " & Me.txt_ndoc & " é INVÁLIDO! Digite-o novamente.", vbInformation, "Atenção"
    Me.Undo
    DoCmd.CancelEvent

ElseIf Not IsNull(Me.txt_ndoc) Then
    If Me.txt_ndoc.Value <> fncCpfValido(Me.txt_ndoc) Then
    MsgBox "O CPF: " & Me.txt_ndoc & " é INVÁLIDO! Digite-o novamente.", vbInformation, "Atenção"
        Me.txt_ndoc = Null
        Me.txt_ndoc.InputMask = ""
        Me.Undo
        Cancel = True
    Else
    Me.txt_ndoc.InputMask = "000\.000\.000\-00"
    End If
Else
MsgBox "CPF Válido."
Me.txt_ndoc.InputMask = "000\.000\.000\-00"

    Exit Sub
End If
End If
End Sub

Olá cole este no evento do formulário ao ocorrer erro

Código:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Const INPUTMASK_VIOLATION = 2279
    If DataErr = INPUTMASK_VIOLATION Then
    MsgBox "Os dados inseridos para esse campo estão incorretos. Por favor, corriga.", vbInformation, "Dados incorretos"
    Response = acDataErrContinue
    End If
End Sub

quando acontecer de se digitar dados incompletos em campo com mascara será emitido uma mensagem

Espero que ajude

Abraços

Olá...

Deu Certo?

Aguardo

Abraços

Olá..

Continuo aguardando seu retorno sobre este.

Abraços

Olá..

Conseguiu resolver esta sua solicitação de ajuda?

Os membros do Fórum merece o seu retorno

Abraços