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


2 participantes

    Verificar CPF Existente

    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    Registrado : 08/10/2012

    Verificar CPF Existente Empty Verificar CPF Existente

    Mensagem  Sidney 10/7/2013, 15:12

    Prezado(a)s
    Bom dia!

    Se possível precisaria de um código para verificar CPF existente, ou seja, quando eu digitar o cpf automaticamente ele já verifica se o cpf já esta cadastrado, e se tiver me avisa com uma mensagem "CPF já cadastrado" e retorna a digitação, o nome do campo é "CPF_Cad" e o nome da tabela é "Tab_Principal",

    Pessoal desde de já mais uma vez muito obrigado.

    Atenciosamente;

    Sidney
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    Verificar CPF Existente Empty Re: Verificar CPF Existente

    Mensagem  Marcelo David 10/7/2013, 15:21

    Isso é algo que irá usar com muita frequência?
    seu aplicativo será usado em rede por mais de um usuário
    simultaneamente?
    A tabela "Tab_Principal" irá comportar aproximadamente quantos
    registros?




    .................................................................................
    Verificar CPF Existente Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Verificar CPF Existente Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Verificar CPF Existente Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Verificar CPF Existente Marcel11
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    Registrado : 08/10/2012

    Verificar CPF Existente Empty Re: Verificar CPF Existente

    Mensagem  Sidney 10/7/2013, 15:32

    Isso é algo que irá usar com muita frequência?
    Sim
    seu aplicativo será usado em rede por mais de um usuário simultaneamente?
    Sim
    A tabela "Tab_Principal" irá comportar aproximadamente quantos registros?
    mais ou menos 130 registros.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    Verificar CPF Existente Empty Re: Verificar CPF Existente

    Mensagem  Marcelo David 10/7/2013, 15:56

    Vamos lá então, como será usado com poucos registros, então uma função de domínio
    pode ser o caminho mais curto para o resultado.

    Ponha esse código no evento "Antes de atualizar" do campo CPF_Cad:

    If DCount("CampoCpfTabela","Tab_Principal", "CampoCpfTabela='" & Me!CPF_Cad & "'") >= 1 then
    MsgBox "CPF já cadastrado",vbInformation,"Informação"
    cancel = true
    exit sub
    end if

    Observe os nomes em vermelho dos controles para por como estão no seu aplicativo.
    Estou considerando que o campo CPF_Cad é uma String (texto) e não número,
    tanto no formulário como na tabela.



    .................................................................................
    Verificar CPF Existente Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Verificar CPF Existente Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Verificar CPF Existente Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Verificar CPF Existente Marcel11
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    Registrado : 08/10/2012

    Verificar CPF Existente Empty Re: Verificar CPF Existente

    Mensagem  Sidney 10/7/2013, 19:12

    olá amigo, ocorreu um erro na primeira linha

    If DCount("CampoCpfTabela", "Tab_Principal", "CampoCpfTabela='" & Me!CPF_Cad & "'") >= 1 Then

    mais um detalhe a marcara do cpf está incluso, ou seja, "999.999.999-99" todos esses caracteres estão entrando no banco, não sei se vai fazer alguma diferença.


    grato...
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    Verificar CPF Existente Empty Re: Verificar CPF Existente

    Mensagem  Marcelo David 10/7/2013, 19:26

    Qual erro deu?


    .................................................................................
    Verificar CPF Existente Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Verificar CPF Existente Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Verificar CPF Existente Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Verificar CPF Existente Marcel11
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    Registrado : 08/10/2012

    Verificar CPF Existente Empty Re: Verificar CPF Existente

    Mensagem  Sidney 11/7/2013, 17:33

    Segue imagem do erro.
    Anexos
    Verificar CPF Existente AttachmentErro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (47 Kb) Baixado 11 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    Verificar CPF Existente Empty Re: Verificar CPF Existente

    Mensagem  Marcelo David 11/7/2013, 20:23

    Amigo, observe que você não fez referencia ao seu controle.

    "CampoCpfTabela" é apenas ilustrativo e deve ter o nome do campo
    correspondente na sua tabela.


    .................................................................................
    Verificar CPF Existente Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Verificar CPF Existente Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Verificar CPF Existente Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Verificar CPF Existente Marcel11

    Conteúdo patrocinado


    Verificar CPF Existente Empty Re: Verificar CPF Existente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 20:37