[Resolvido]Mensagem avisando que existe registro com o valor do textbox em foco

Ola a todos!

Minha duvida é o seguinte,

Tenho uma tabela (tabela1) com 2 campos (campo1 e campo2) e um formulário (formulário1) com os respectivos campos (campo1 e campo2), só que eu gostaria que ao preencher o campo1 do formulário com um que já exista no campo1 da tabela1 apareça uma mensagem avisando que já existe esse valor cadastrado e volte o foco para o campo1 do formulário, assim não deixando eu trocar de campo sem trocar o valor para um inexistente na tabela. Assim evita que eu preencha todo o formulário para só quando for gravar descobrir que já tinha esse valor já cadastrado!

Algum poderia me ajudar com algum código que resolva isso?

Pesquisei no fórum inteiro e não achei nada que me atendeu.

Obrigado a todos!

Veja se ajuda.

Muito obrigado,

segue abaixo o código q resolveu meu problema!


Private Sub Código_BeforeUpdate(Cancel As Integer)

If (Not IsNull(DLookup("[Código]", "Tabela1", "[Código] =" & Me!Código & ""))) Then
MsgBox "O nome já está cadastrado na tabela clientes. Verifique se há duplicidade.", vbInformation
Cancel = True 'cancela o evento.
Me!Código.Undo 'desfaz a digitação.

End If
End Sub

Grato pelo retorno. O fórum agradece.