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

3 participantes

    [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 546
    Registrado : 30/08/2010

    [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo Empty [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo

    Mensagem  NADIRONUNES 15/5/2012, 13:22

    ola eu mexo muito com cadastro de clientes e muitos sao cpf e muitos cnpj
    tem como eu digitar os numeros e automaticamente ele me fala se e cpf ou cnpj

    ex

    digito assim cpf:12345678900
    ele transforma assim no mesmo campo:123.456.789-00

    digito assim cnpj:12345678900900
    ele transforma assim no mesmo campo:12.345.678/0009-00

    tudo no mesmo tempo
    avatar
    Convidad
    Convidado


    [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo Empty Re: [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo

    Mensagem  Convidad 15/5/2012, 13:39


    Considerando um campo chamado t1Cnpj (altere):


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

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

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 546
    Registrado : 30/08/2010

    [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo Empty Re: [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo

    Mensagem  NADIRONUNES 15/5/2012, 15:08

    ok obrigado
    avatar
    Convidad
    Convidado


    [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo Empty Re: [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo

    Mensagem  Convidad 15/5/2012, 15:18


    Disponha!

    O Fórum é grato pelo seu retorno.

    Dica para evitar que o user digite caracteres inválidos no campo:

    Private Sub t1Cnpj_KeyPress(KeyAscii As Integer)
    'Só permite Enter, Backspace, Algarismos, Ponto, Barra, Traço
    If KeyAscii = vbKeyReturn Or KeyAscii = vbKeyBack Or KeyAscii = Asc(".") Or KeyAscii = Asc("/") Or KeyAscii = Asc("-") Then Exit Sub
    If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then KeyAscii = 0
    End Sub

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo Empty Re: [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo

    Mensagem  Assis 27/11/2014, 22:51

    Boa noite

    Tenho win 8.1, e Office 2007

    Não funciona. Alguma dica para ajudar ?

    Private Sub cartaoN_AfterUpdate()
    Select Case Len(Me.cartaoN)
    Case 16
    Me.cartaoN.InputMask = "0000\-0000\-0000\-0000;0;_"
    Case 9
    Me.cartaoN.InputMask = "000\-000\-000;0;_"
    Case Else
    Me.cartaoN.InputMask = ""
    End Select
    End Sub


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo Empty Re: [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo

    Mensagem  Assis 27/11/2014, 23:53

    Boa noite

    Apos atualizar o campo já funciona.

    Mas não grava na tabela igual ao que se ve no formulario

    Select Case Len(Me.cartaoN)
    Case 16
    Me.cartaoN.InputMask = "0000\-0000\-0000\-0000"
    Case 9
    Me.cartaoN.InputMask = "000\ 000\ 000"
    Case Else
    Me.cartaoN.InputMask = ""
    End Select


    .................................................................................
    *** Só sei que nada sei ***
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo Empty Re: [Resolvido]Máscara de entrada para cpf e cnpj no mesmo campo

    Mensagem  Noobezinho 28/11/2014, 01:23

    Assis

    Veja se esse exemplo ajuda


    Abraços

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 5/12/2022, 18:22