MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    cpf/cnpj e fone fixo/celular

    Compartilhe

    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 10/09/2012

    cpf/cnpj e fone fixo/celular

    Mensagem  fabianobilo em Qua 13 Jun 2018, 15:36

    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
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 767
    Registrado : 01/03/2014

    Re: cpf/cnpj e fone fixo/celular

    Mensagem  Celso Roberto em Qua 13 Jun 2018, 16:45

    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



    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: Seg 18 Jun 2018, 10:46