[Resolvido]formatar campo

Boa noite , nã consigo formatar o compo cpf . ja tentei mas não funciona , tipo 22222222222 e receber 222.222.222-22.
ele não devolve os numeros so fica no #

Código:

Private Sub CPF_AfterUpdate()
 Me.cpf = "###.###.###-##"
If Len(Me.cpf) < 11 Then
    MsgBox "O cpf contém 11 dígitos." & vbCrLf & "você digitou menos", vbInformation, "Consulmed"
    End If
End Sub


Boa noite Gilliard;

Tente dessa forma:

Código:

Private Sub CPF_AfterUpdate()
 Me.cpf.InputMask = "000\.000\.000\-00"
If Len(Me.cpf) < 11 Then
    MsgBox "O cpf contém 11 dígitos." & vbCrLf & "você digitou menos", vbInformation, "Consulmed"
    End If
End Sub

mas se eu colocar essa mascara ele não deixa a condição ser executada, aparece o mensagem do access

Faça isso:

Código:



Private Sub CPF_AfterUpdate()
Dim vCPF As String
   
    vCPF = Replace(Replace(Me.cpf, ".", ""), "-", "")
   
    If Len(vCPF) < 11 Then
        MsgBox "CPF Inválido. Informe corretamente", vbExclamation, "Consulmed"
    End If
   
End Sub





Boa sorte

vou dar uma olhada sobre replace, pois esse não formatou

vou colocar esse como resolvido , o replace parece que limpa os pontos etc.. e funciona em um e outro campo ele dar erro