Verificar se já existe o cadastro

Sou iniciante no Access 2010 e estou com o seguinte problema:
Tenho um formulário para cadastrar empresas e a chave primária na tabela é o CNPJ. Utilizo o código de validação de CNPJ que encontrei aqui no Fórum e ele funciona muito bem. Agradeço desde já ao autor.
Acontece que preciso aumentar a produtividade no cadastro e seria o ideal que, assim que o usuário entrasse com o CNPJ no campo do formulário (é o primeiro campo), o formulário buscasse na tabela para verificar se já existe esse CNPJ cadastrado e preenchesse todos os dados nos demais campos do formulário, possibilitando que o usuário eventualmente corrigisse algum campo.
Desta forma, eu impediria que houvesse duplicação de cadastros e teria um conjunto de dados consistente e limpo.

Agradeço a todos que puderem me ajudar e desejo-lhes um bom final de semana!

Amigo,

Veja se consegue adaptar esse código para verificação da duplicidade.

Código:

Dim rst As DAO.Recordset
Dim strCriteria As String
'verifica duplicidade
strCriteria = "[CNPJ] Like '*" & Me.txtCNPJ & "*'"

Set rst = Me.RecordsetClone
    rst.FindFirst strCriteria
        If rst.NoMatch Then
'MsgBox "Exibe mensagem se for o caso"
    Else
    MsgBox " Cliente CNPJ " & Me.txtCNPJ & " já cadastrado, verifique...", vbCritical, "Integ v1.0"
    Me.txtCNPJ.Value = ""
    Me.btCadastrar.Enabled = False
    Me.txtCNPJ.SetFocus
Me.Undo
End If
Cancel = True
Set rst = Nothing

Abraços,

Prezado Uilson,

Agradeço muitíssimo por sua disponibilidade em me ajudar!
Entretanto, ainda preciso de mais uma ajuda: O código deve ser colocado como uma função pública, ou um procedimento de evento ligado ao controle?

Prezados,
Sou iniciante no Access 2010 e tenho sido muito ajudado pelos participantes do Fórum, aos quais agradeço de coração.
Tenho um formulário para cadastrar empresas e o primeiro campo e chave primária da tabela é o CNPJ.
Eu queria que, ao digitar o CNPJ, além de verificar se é correto (o que já resolvi com ajuda do Fórum), verificasse também se já existe cadastro para esse CNPJ e se existir, avisar o usuário com uma caixa de mensagem "Já Cadastrado!" e preenchesse os demais campos do formulário com os dados desse cadastro.
Isso me ajudaria muito a ganhar produtividade no trabalho dos usuários e evitaria a duplicação de cadastros.

O Uilson Brasil já me passou uma amostra de código, mas não sei onde devo usá-lo, se é um procedimento de evento, ou uma função pública, ou outra coisa.

Agradeço desde já as contribuições daqueles que se dispuserem a me ajudar.

Bom dia, Pereira
Fundi os temas, por se trata do mesmo assunto.
Sobre as dúvidas:
1 - O código deve ser utilizado após a actualização do CNPJ
2 - Para que, após a introdução do CNPJ e se já existir, quer que preencha com os dados do registo existente ou que o formulário se situe no registo existente?

Bom dia, Neves.

Quero que preencha com os dados do cadastra já existente, porque se o usuário perceber alguma incorreção, possa alterar e salvar.

Coloque (adaptado do código do Uilson Brasil)
Dim rst As DAO.Recordset
Dim strCriteria As String
'verifica duplicidade
strCriteria = "[CNPJ] Like '*" & Me.txtCNPJ & "*'"

Set rst = Me.RecordsetClone
rst.FindFirst strCriteria
If rst.NoMatch Then
MsgBox "Exibe mensagem se for o caso"
Else
txtCampoA=rst("CampoA")
txtCampoB=rst("CampoB")
...
End If
Set rst = Nothing

Boa noite

Como adaptar o código para pesquisar em dois campos?
Tipo, verificar se existe com base no campo Rua e no campo número.
Em caso afirmativo, ir para esse registo??

Bom dia,
Será
Dim rst As DAO.Recordset
Dim strCriteria As String
'verifica duplicidade
strCriteria = "Rua = '" & Me.txtRua & "' and Nr=" & TxtNr

Set rst = Me.RecordsetClone
rst.FindFirst strCriteria
If rst.NoMatch Then
MsgBox "Exibe mensagem se for o caso"
Else
txtCampoA=rst("CampoA")
txtCampoB=rst("CampoB")
...
End If
Set rst = Nothing

desculpem minha intromissão mas trabalho da seguinte forma:
No form movimento tenho uma combo que aceita tanto CPF como CNPJ, ao digitar faz a verificação se já existe no cadastro, se sim preenche os demais campos com os dados cadastrados, se não vai para o form pessoa, para validar e incluir o CPF ou CNPJ.

Olá Cleverson

Isso não é intromissão, é partilhar conhecimento.

E essa é a finalidade desse fórum.

Então, não tem o por que de se desculpar.

Grande abraço

Noob

Boas!!!
Continua a dar me erro.
Estou a usar acess2010.

no Form tem os campos rua e numero, assim como na tabela.

Coloquei o código no evento antes de atualizar do campo numero.
Dá me a mensagem de erro type dismatch error 13
e seleciona me
rst.FindFirst strCriteria.


O que estarei a fazer de errado??

Obrigado!

Blz noobezinho, novamente dou minha opinião ao colega autor do tópico, acredito que as duas situações devam ser tratadas separadamente, tipo dados novos e dados já cadastrados,com certeza facilitará em muito tanto as rotinas e códigos quanto para o usuário final da aplicação.
Abraços

Boa noite colegas do forúm.

Aqui vai  minha contribuição para ajudar solucionar a dúvida do colega.