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

    [Resolvido]cpf/cnpj e fone fixo/celular

    Compartilhe

    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]cpf/cnpj e fone fixo/celular

    Mensagem  fabianobilo em 13/6/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 : 795
    Registrado : 01/03/2014

    Re: [Resolvido]cpf/cnpj e fone fixo/celular

    Mensagem  Celso Roberto em 13/6/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.....
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]cpf/cnpj e fone fixo/celular

    Mensagem  Celso Roberto em 19/6/2018, 17:43

    Olá...

    Conseguiu resolver?

    Aguardo retorno

    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.....

    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    cpf/cnpj e fone fixo/celular

    Mensagem  fabianobilo em 24/6/2018, 16:37

    Olá

    Desculpa a demora..

    Resolvido...deu certo

    Obrigado.
    avatar
    tauron
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 982
    Registrado : 07/12/2011

    Re: [Resolvido]cpf/cnpj e fone fixo/celular

    Mensagem  tauron em 24/6/2018, 18:24

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

    Respeito às Regras 100%

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

    Re: [Resolvido]cpf/cnpj e fone fixo/celular

    Mensagem  Celso Roberto em 26/6/2018, 21:43

    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


    .................................................................................
    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: 18/8/2018, 03:28