[Resolvido]Critérios de comparação em campos!Erro!

Boas Galera! Tenho esse BD que está no link e estou com mais uma dúvida, que me parece um erro de código e não estou conseguindo responder. vamos lá:

http://maximoaccess.forumeiros.com/t8763-sistema-de-controle-de-acesso-a-portaria

Neste BD tenho um Form com nome FormMovimentos e neste mesmo tenho um campo chamado
N_Documento, e o que eu queria que ao sair deste campo ele comparasse os registros que existem na tabela de funcionários chamada de Tab_Funcionários e continuasse o procedimento caso exista ou emitisse um aviso caso não exista o número informado neste campo. tenho abaixo o código que estou utilizando e ele emite o aviso em ambas as situações (Existindo o número na tabela ou não. se alguém puder verificar onde encontra-se o erro.:

On Error Resume Next
If Me.ID_TipoEntrada1.Value = 1 And Me.N_Documento <> DLookup("ID_Registro", "Tab_Funcionarios") Then ' Compara se existe funcionários baseado nos critérios'
DoCmd.GoToControl "N_Documento" 'Volta para este campo caso atenda os critérios'
DoCmd.OpenQuery "QryMovimentosExclusaoNulo1"'Exclui movimento com nome nulo'
Docmd.OpenForm "AtencaoFuncionarioNulo1" 'Emite um aviso caso atenda os critérios'
Else
Me.ID_Funcionario = DLookup("ID_Funcionario", "TAB_Funcionarios", "ID_Registro=" & Me!N_Documento)
End If

Lembrando que neste BD que está no link ainda não existe o Form "AtencaoFuncionarioNulo1", onde este é o aviso que não existe o funcionário

Para você detetar onde está o erro, não pode ter o On Error Resume Next.

Por outro lado o DLookup não tem o criterio WHERE, deste modo jamais irá comparar seja o que for.

Ainda por outro lado, o campo ID_Registro é Numerico e o campo N_Documento é Texto.

Obs:
Tem de estudar mais e aqui tem salas para isso mesmo.

Grato

Procurei, Estudei e por fim não consegui acertar, com Dlookup Diretamente, Where e outros, Mas consegui de outra forma e assim que me atendeu:

Criei uma TextBox não acoplada, após atualizar do campo N_Documento, pesquisa via Dlookup na tabela Funcionários e joga para esta textBox o Número do registro retornado caso exista,o evento:
iF Me.ID_TipoEntrada.Value=1 And IsNull(Me.TextBox <>(Me.N_Documento) Then
DoCmd.OpenForm "AtencaoFuncionarioNulo1" ' Aviso que não existe funcionário cadastrado
End If

E no evento No Atual:
If IsNull (Me.SubFormMovimentos!Texto88)Then
DoCmd.OpenQuery "QryMovimentosExclusaoNulo1" 'onde este é a consulta exclusão caso não exista funcionário preenchido no subform.

Do mais tudo ok!
Agradeço a todas as visualizações...

JPaulo! Não achei nenhum tópico parecido com este nas salas, Quanto ao Where acredito ainda não ter utilizado esta condição - Sabe onde posso encontrar para seguir sua sugestão (Estudar)?
Quanto ao campo numérico e Texto no Dlookup funciona em outras situações, inclusive neste mesmo Form! Pode verificar...
Quanto Estudar, antes de recorrer ao fórum tento ao máximo resolver e em última hipótese ou um branco nas idéias, aí sim venho ao fórum...

Mais uma vez obrigado e desculpe te incomodar com coisas que parece ser tão simples...

...

Alessandro bom dia;

Quando escrever DLookup no VBA e ainda com o cursor em cima dessa palavra, aperte a tecla F1, ela é a nossa melhor amiga.

Veja aqui também;

http://office.microsoft.com/pt-br/access-help/funcao-dlookup-HA001228825.aspx

Muito Obrigado amigo!!