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

    avatar
    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  fabianobilo em 13/6/2018, 10: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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

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

    Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto em 19/6/2018, 12: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.....
    avatar
    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

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

    Olá

    Desculpa a demora..

    Resolvido...deu certo

    Obrigado.
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  tauron em 24/6/2018, 13: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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto em 26/6/2018, 16: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.....
    avatar
    darocha86
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  darocha86 em 15/9/2019, 00: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: 13/12/2019, 03:03