Validação de dados no formulário com base em uma tabela

[Savoy]

Boa tarde

Preciso de uma ajuda, estou tentando fazer uma validação em um campo do formulário para autorizar o lançamento das informações somente se o código do funcionário estiver cadastrado na tabela de funcionários. Porém esta apresentando o erro abaixo

Erro em tempo de execução '3464'
Tipo de dados incompatível na expressão de critério.

Segue o código utilizado para validação e identificação do erro

Private Sub ENTProntuário_AfterUpdate()
DoCmd.SetWarnings False
If IsNull(Me.ENTProntuário.Value) Or Me.ENTProntuário.Value = DLookup("[prontuario]", "Tbl_Associados", "prontuario = " & Me.ENTProntuário.Value & "") Then
Comando6.Enabled = True
Comando7.Enabled = True
Comando8.Enabled = True
Comando9.Enabled = True
ENTProntuário.Enabled = True
Else
MsgBox "Prontuário não cadastrado! Lançamento não autorizado.", vbCritical, "ERRO"
Comando6.Enabled = False
Comando7.Enabled = False
Comando8.Enabled = False
Comando9.Enabled = False
ENTProntuário.Enabled = False
Me.Undo
Cancel = True
DoCmd.Requery
End If
DoCmd.SetWarnings True
End Sub

Desde já agradeço a ajuda

Vinicius

[MrMALJ]

Tente utilizar a função dlookup() para verificar se o registro em questão existe na tabela. Use a busca que com certeza irá encontrar diversos tópicos sobre essa função!