[Resolvido]Bloquear duplicidade

Boa Noite, preciso da ajuda dos senhores;
Estou fazendo um banco de dados no access com cadastro de clientes, porem esbarei em uma questão, preciso saber qual codigo usar para bloquear o cadastramendo de CPF em duplicidade e imprimir uma MsBox na tela com a seguinte frase "CPF ou CNPJ já cadastrado, verifique", e em seguida limpar todos os dados do formulario.


Nome da Tabela: tabcliente
Nome do Formulario: frmcliente

Chave primaria na Tabela: CPF ou CNPJ
Consta na tabela os seguintes campos:
Nome
CPF ou CNPJ
RG
Orgão emidssor
UF do Orgão Emissor
Telefone
End
Cidade
Estado

Bom dia....

Veja esses links aqui do nosso fórum, com certeza algum deles vai te atender.

Abraços.

Silvio

Bom dia companheiro!

No evento antes de atualizar do campo "CPF OU CNPJ" defina:

Private Sub CPF ou CNPJ_BeforeUpdate(Cancel As Integer)
If Me!CPF ou CNPJ = Me!CPF ou CNPJ.OldValue Then Exit Sub
If Not IsNull(DLookup("[CPF ou CNPJ]", "tabcliente", "[CPF ou CNPJ] ='" & Me!CPF ou CNPJ & "'")) Then
Cancel = True
CPF ou CNPJ.Undo
MsgBox "Edsalys, CPF já cadastrado."
End If
End Sub

Bom dia amigos;

Todas as ajudas são bem vindas, mas tal como o Silvio, recomendo;

http://maximoaccess.forumeiros.com/t1115-busca-no-forum-search

Bom dia JPaulo, meus respeitos!

Este exemplo não tem erro, uso há muito tempo!

edsalys, procura retirar os espaços dos campos nas tabelas, fiz isso no seu bd, no campo cpf ou cnpj"

Perfeito amigão.

Ok JPaulo!

Obrigado meu amigo Lupecio, fiz o que vc me orientou e funcionou perfeitamente.
So preciso de mais uma orientação.
Esta imprimindo a mensagen de duplicidade e só esta cancelando o campo do cpf, porem quero que cancele e feche o formulario.

Private Sub CPF_CNPJ_BeforeUpdate(Cancel As Integer)
If Me!CPF_CNPJ = Me!CPF_CNPJ.OldValue Then Exit Sub
If Not IsNull(DLookup("[CPF_CNPJ]", "tabCliente", "[CPF_CNPJ] ='" & Me!CPF_CNPJ & "'")) Then
Cancel = True
CPF_CNPJ.Undo

DoCmd.Close



MsgBox "Edsalys, existe um documento cadastrado com esse número."
End If
End Sub

Acrescente no código:

Docmd.close

assim como está acima!

Muito Obrigado meu amigo Lupecio, deu certo.

Obrigado pelo retorno!
O forum agradece!