MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    [Resolvido]cpf/cnpj e fone fixo/celular

    avatar
    fabianobilo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]cpf/cnpj e fone fixo/celular Empty [Resolvido]cpf/cnpj e fone fixo/celular

    Mensagem  fabianobilo 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
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 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



    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

    Respeito às regras : Respeito às Regras 100%

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

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

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

    Olá...

    Conseguiu resolver?

    Aguardo retorno

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    fabianobilo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]cpf/cnpj e fone fixo/celular Empty cpf/cnpj e fone fixo/celular

    Mensagem  fabianobilo 24/6/2018, 16:37

    Olá

    Desculpa a demora..

    Resolvido...deu certo

    Obrigado.
    tauron
    tauron
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  tauron 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
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 05/06/2013

    [Resolvido]cpf/cnpj e fone fixo/celular Empty Muito Obrigado

    Mensagem  darocha86 15/9/2019, 05:42

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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/5/2021, 11:17