[Resolvido]Help mascara também na tabela

eu estou usando o exemplo abaixo, mais na hora de gravar os dados na tabela a mascara some e aparece sem os pontos e etc. na tabela ja esta com mascara em formato e mascara de entrada, mais mesmo assim os dados que são inseridos no form entra sem mescara na tabela e so aparece a mascara se eu alterar na tabela. help



Private Sub CPF_AfterUpdate()
If Me.CPF.Value <> fCPF(Me.CPF) Then
MsgBox "CPF Invalido, introduza novamente...", vbInformation
Me.Undo
Cancel = True
Else
MsgBox "CPF válido."
Me.CPF.InputMask = "999\.999\.999\-99;0;_"
End If
End Sub

explique melhor.

O que pretende fazer?
Está a fazer a mascara através de Inputmask?
Pretende que na Inputmask apareça o formato da mascara?
Pretende que o texto recebido da TextBox seja formatado neste formato: "999\.999\.999\-99;0;_" ?

Boa tarde,

Não testei, mas deve dar certo.

limpe a mascara da tabela (é melhor deixar o campo como texto)

Private Sub Form_Load()
Me.CPF.InputMask = "999,999,999-99;0;#" 'Define a máscara de dados para o campo CPF
End Sub
Private Sub CPF_AfterUpdate()
Dim nCPF As String 'Variável

If CPF <> fCPF(Me.CPF) Then
MsgBox "CPF Invalido, introduza novamente...", vbInformation
Me.CPF.Undo
Cancel = True
Else
MsgBox "CPF válido."
nCPF = Format(Me.CPF, "000.000.000-00")
Me.CPF = nCPF
End If
End Sub

continua a mesma coisa so que o campo do forme apaece a mascara mais da com cpf falso e na tabela continua sem mascara.

separe a parte referente ao tópico e poste pra gente ver....

Private Sub CPF_AfterUpdate()
Dim nCPF As String 'Variável
If Me.CPF <> fCPF(Me.CPF) Then
MsgBox "CPF Invalido, introduza novamente...", vbInformation
Me.Undo
Cancel = True
Else
MsgBox "CPF válido."
nCPF = Format(Me.CPF, "000.000.000-00")
Me.CPF = nCPF
End If
End Sub

Talvez fosse melhor postar parte da BD para se ver onde está o erro, até pode estar na tabela e não no codigo.