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]Máscara de entrada para cpf e cnpj no mesmo campo

    Compartilhe

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  NADIRONUNES em Ter 15 Maio 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

    Convidad
    Convidado

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

    Mensagem  Convidad em Ter 15 Maio 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


    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  NADIRONUNES em Ter 15 Maio 2012, 15:08

    ok obrigado

    Convidad
    Convidado

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

    Mensagem  Convidad em Ter 15 Maio 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

    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Qui 27 Nov 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 ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Qui 27 Nov 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 ***
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Sex 28 Nov 2014, 01:23

    Assis

    Veja se esse [Você precisa estar registrado e conectado para ver este link.] ajuda


    Abraços

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Seg 23 Out 2017, 16:11