MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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]Validar CPF/CNPJ em campo com máscara

    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 22/08/2015

    validar - [Resolvido]Validar CPF/CNPJ em campo com máscara Empty [Resolvido]Validar CPF/CNPJ em campo com máscara

    Mensagem  Edelson Vieira 20/9/2015, 17:23

    Boa tarde amigos!
    Vi aqui vários códigos para validar cpf/cnpj em campos sem máscara, porém preciso de um código para validar em campo com máscara. Alguém poderia me ajudar?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 04/04/2010

    validar - [Resolvido]Validar CPF/CNPJ em campo com máscara Empty Re: [Resolvido]Validar CPF/CNPJ em campo com máscara

    Mensagem  Avelino Sampaio 20/9/2015, 18:22

    Olá!

    Neste meu artigo:

    http://www.usandoaccess.com.br/tutoriais/verificar-cpf-e-cnpj.asp?id=1

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 22/08/2015

    validar - [Resolvido]Validar CPF/CNPJ em campo com máscara Empty Re: [Resolvido]Validar CPF/CNPJ em campo com máscara

    Mensagem  Edelson Vieira 20/9/2015, 19:46

    Valeu amigo Avelino!
    Este Replace é o que eu precisava. Deu certinho. Obrigado mais uma vez.
    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 22/08/2015

    validar - [Resolvido]Validar CPF/CNPJ em campo com máscara Empty Re: [Resolvido]Validar CPF/CNPJ em campo com máscara

    Mensagem  Edelson Vieira 20/9/2015, 19:48

    RESOLVIDO
    avatar
    Thel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 109
    Registrado : 19/06/2012

    validar - [Resolvido]Validar CPF/CNPJ em campo com máscara Empty [Resolvido]Validar CPF/CNPJ em campo com máscara

    Mensagem  Thel 4/3/2019, 18:23

    Eu sei que este tópico é antigo, mas fiz uma pequena alteração no código fornecido por Avelino Sampaio, para permitir deixar a caixa de texto em branco e não permitir números repetidos, e gostaria de compartilhar:

    No evento ANTES DE ATUALIZAR da caixa de texto do CPF denominada "txtCPF", digite:
    Código:
    If IsNull(txtCPF) Or IsEmpty(txtCPF) Or txtCPF = "" Then
     Exit Sub
     Else
     If fncCpfValido(Me.txtCPF) = False Or txtCPF = "000.000.000-00" Or _
     txtCPF = "111.111.111-11" Or txtCPF = "222.222.222-22" Or _
     txtCPF = "333.333.333-33" Or txtCPF = "444.444.444-44" Or _
     txtCPF = "555.555.555-55" Or txtCPF = "666.666.666-66" Or _
     txtCPF = "777.777.777-77" Or txtCPF = "888.888.888-88" Or _
     txtCPF = "999.999.999-99" Then
     MsgBox "CPF INVÁLIDO!", vbCritical, "ERRO"
     Cancel = True
     End If
    End If

      Data/hora atual: 26/2/2021, 10:45