[Resolvido]Campo com duas mascaras

Boa tarde a todos, encontrei o código abaixo (com as devidas explicações de como implementa-lo) na internet para trabalhar com duas mascaras para o campo CPFCNPJ.
Para que o formulário exiba o campo CGCCPF formatado de acordo com o tipo (CNPJ ou CPF), devemos utilizar um procedimento no evento No Atual (onCurrent) do formulário que verifique o comprimento do campo e aplique a máscara correta. Siga os passos abaixo:

Abra o formulário no modo estrutura e visualize o seu módulo.

Insira o seguinte procedimento para o evento No Atual do formulário:

Private Sub Form_Current()
   On Error Resume Next
   Select Case Len([CGCCPF])
   Case 14   ' É CNPJ.
       Me![CGCCPF].InputMask = "00\.000\.000\/0000\-00"
   Case 11   ' É CPF.
       Me![CGCCPF].InputMask = "000\.000\.000\-00"
   Case Else
       ' O valor do campo não é CNPJ nem CPF.
       Me![CGCCPF].InputMask = ""
   End Select
End Sub

Ocorre que ao testar o código verifiquei o seguinte:
1. permite gravar sequencia menor que 11 caracteres sem mascara;
2. Não informa ao usuário que a sequencia não é igual ao CPF ou CGC;
3. Não efetua a contagem dos dígitos verificadores dos CPF ou CGC;
4. Se tiver mais de 11 caracteres na sequencia e menos de 14, também grava sem a mascara e não informa ao usuário o erro.

Sou iniciante no assunto e gostaria da ajuda dos amigos do Forum, segue anexo um arquivo de teste.

(TFA) obrigado

OSVALDO FRANCISCO PINTO
mictmr

Seja bem vindo ao maior e melhor fórum de acces do mundo.

https://www.maximoaccess.com/t22028-cadastro-da-receita-federal-pelo-cnpj?highlight=cnpj

Excelente código testei e gostei com certeza foi implementa-lo em um projeto, mas o que necessito no momento é um código que faça a leitura da quantidade de caracteres digitados e verifique se é um CPF ou CNPJ, colocando a mascara adequada, se possível ainda verificar os dígitos verificadores de cada tipo de cadastro, informando que o CPF ou CNPJ digitado não confere, não permitindo a gravação de CPF ou CNPJ inválidos, e que também altere a label do campo para CPF ou CNPJ conforme o caso, não sei se isso é possível em access, um amigo disse que já viu algo semelhante em delphi mas não sei dizer qual a fonte de dados e também o código, pois segundo este amigo o programa é com o código fechado.

Obrigado por enquanto vou deixar o tópico em aberto, na expectativa de uma solução.

Bem, dá pra fazer tudo isso em access sim. Amanhã vou ver meus exemplos aqui e posto pra você algo pra trabalhar aí.

Mas utilize a busca e repositório de exemplos do fórum que vai encontrar muita coisa.

Pra começar vc precisa de um campo do tipo 1=PJ ou 2 =PF, assim vc específica via código a máscara, quantidade de dígitos e a validação se for CPF ou CNPJ.

Dúvidas manda aí.

Abraços,

Complementando, além do campo tipo de pessoa, vc deve implementar o código no evento Antes de Atualizar do seu campo CGCCPF.

Abraços

Veja se isso ajuda.

https://www.dropbox.com/s/myb885lyywfmfsn/ValidaCPF_CNPJ%20-%20Osvaldo.zip?dl=0

Obrigado a todos problema resolvido. Ótimo fórum.

Obrigado pelo retorno, o fórum agradece.