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

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

Vinicius

o campo prontuario é do tipo número ou string ?

Se for número:

Me.ENTProntuário.Value = nz(DLookup("prontuario", "Tbl_Associados", "prontuario = " & Me.ENTProntuário))

se for string:

Me.ENTProntuário.Value = nz(DLookup("prontuario", "Tbl_Associados", "prontuario = '" & Me.ENTProntuário & "'"))

Bom dia

Problema corrigido, obrigado pela ajuda

Vinicius