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

    Mostrar mensagem informando valor duplicado no bd access

    Compartilhe

    danielmarcos17
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 01/07/2015

    Mostrar mensagem informando valor duplicado no bd access

    Mensagem  danielmarcos17 em Qui 02 Jul 2015, 13:17

    Pessoal bom dia.

    Venho através deste fórum mostrar uma dúvida que está me consumindo ha dias.
    Bem, eu fiz um aplicativo utilizando o Excel, Access e VBA.

    Como faço para quando o usuário clicar no botão "cadastrar" o programa verifique na tabela do access se o campo "CPF", já possui um número igual ja cadastrado na base de dados?



    OBs: Caso dê erro no banco de dados, altere o caminho:

    Sub Conecta()

    'Rotina para fazer a conexão com o Banco de Dados em Access
       Set banco = OpenDatabase("C:\Sislogin\sistema.mdb", False, False, "MS Access;PWD=123")

    Segue o link para download:
    [Você precisa estar registrado e conectado para ver este link.]

    Desde já obrigado pela atenção.

    Ney
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Mostrar mensagem informando valor duplicado no bd access

    Mensagem  Ney em Seg 14 Set 2015, 21:21

    Amigo boa tarde! 

    Tente adaptar esse código.
    Código:
    If DCount("CPF_Cad", "Tab_Principal", "CampodoCPF='" & Me!CPF_Cad & "'") >= 1 Then
    MsgBox "CPF já cadastrado no sistema.", vbInformation, "ATENÇÃO!"
    Cancel = True
    Exit Sub
    End If


      Data/hora atual: Seg 05 Dez 2016, 16:30