MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 408
    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 : 408
    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


    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    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 ***

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    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 ***

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2509
    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 exemplo 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: Sex 09 Dez 2016, 09:36