[Resolvido]cpf/cnpj e fone fixo/celular

Olá pessoal

Tenho uma dúvida

Tenho um campo chamado CPF e outro CNPJ : porém, ao escolher pessoa física ou juridica ele aponta os caracteres para CPF ou CNPJ.

O meu cliente sugeriu que ao digitar a quantidade de caracteres ele reconheça a máscara padrão sem precisar escolher se é fisico ou juridico..

Alguem pode sugerir alguma coisa?

Att

Fabiano

Olá...

Não sei como esta o seu projeto, mas existe várias formas para executar o que pretente.

pelo que você disse, existe dois campos (um CNPJ) e outro (CPF)
Então vamos pelo mais simples que é definir mascara de entrada no formulário.
Abra a folha de propriedades na aba dados, você pode definir a mascara na opção mascara de entrada.

Se desejar de outra forma, também pode ser no evento após atualizar o campo coloque este código

No Campo CPF
Me.NomeCampoCPF = Format(Me.NomeCampoCPF, "@@@\.@@@\.@@@-@@") 'CPF

E No campo CNPJ
Me.NomeCampoCNPJ = Format(Me.NomeCampoCNPJ, "@@\.@@@\.@@@\ /@@@@-@@") 'CNPJ


Aguardo

Abraços

Olá...

Conseguiu resolver?

Aguardo retorno

Abraços

Olá

Desculpa a demora..

Resolvido...deu certo

Obrigado.

Amigo vc pode ter os dois em um unico campo

Private sub SeuCampo_AfterUpDate()
Select Case Len(Me.SeuCampo)
Case 14 ' É CNPJ
Me.SeuCampo.InputMask = "00\.000\.000\/0000\-00"
Case 11 ' É CPF
Me.SeuCampo.InputMask = "000\.000\.000\-00"
Case Else ' Não é CNPJ nem CPF
Me.SeuCampo.InputMask = ""
End Select
End Sub

Olá...

Obrigado pelo retorno, o Fórum agradece.

E se pretender trabalhar com apenas 1 campo siga a orientação do Amigo tauron

Abraços

Cara muito obrigado pelo código de utilizar o mesmo campo para CPF e CNPJ, esta procurando isso há tempos.