Verificar CPF Existente

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

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?

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.

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.

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...

Qual erro deu?

Segue imagem do erro.

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.