[Resolvido]Função DLookup - Dados Incompativeis.

Prezados,

Estou usando o codigo abaixo no evento AfterUpdate da minha combo cboTipo e este tem a função de verificar se o que eu digitei na combo cboTipo existe na tabela tblContabilidadeTipologiaAssunto.

Mas quando eu digito os dados na minha 3ª combo aparece a mensagem Erro 13 - Tipos Incompativeis.

Alguém poderia me dar uma luz?


Formulario: Fonte do registro (tblContabilidade)

Já as combos tem como origem de linha as tabelas:
tblContabilidadeTipologiaAssunto
tblContabilidadeOrigem

Dim X As String 'Variavel
X = "cboTipo = '" & Me.TipologiaDocumental & "'" 'Assunto da combo tem que ser igual da tabela tblContabilidadeOrigem

If DLookup("cboTipo", "tblContabilidadeOrigem", X) Then 'Se assunto selecionado estiver na tabela
'tblContabilidadeOrigem o codigo segue

Else
'Se não tive assunto cadastrado na tabela valta com msgbox abaixo
MsgBox "Assunto Inexistente", vbQuestion + vbCritical, "Aviso"
End If


Segue exemplo!
https://www.dropbox.com/s/q307451lkpik00u/Banco%20de%20Dados1.accdb?dl=0

Bom dia,
Falta o campo cboTipo na tabela

Alexandre, bom dia,

Parti do principio que você me sugeriu e com algumas adaptações agora o código funciona perfeitamente.

Segue caso alguém tenha uma dúvida semelhante:

Dim X As String 'Variavel
X = "Assunto = '" & Me.cboTipo & "'" 'Assunto da combo tem que ser igual da tabela tblContabilidadeOrigem

If Not IsNull(DLookup("Assunto", "tblContabilidadeTipologiaAssunto", X)) Then 'Se assunto selecionado estiver na tabela
'tblContabilidadeOrigem o codigo segue

Else
'Se não tive assunto cadastrado na tabela valta com msgbox abaixo
MsgBox "Assunto Inexistente", vbQuestion + vbCritical, "Aviso"
End If
Screen.PreviousControl.SetFocus
DoCmd.GoToControl "cboTipo"