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

    avatar
    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Edelson Vieira em 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 : 3505
    Registrado : 04/04/2010

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

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

    avatar
    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

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

    Valeu amigo Avelino!
    Este Replace é o que eu precisava. Deu certinho. Obrigado mais uma vez.
    avatar
    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Edelson Vieira em 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

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

    Mensagem  Thel em 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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/7/2019, 10:02