Tipos incompatíveis

Boa tarde senhores,

Tenho uma rotina que gostaria de buscar um código em uma tabela conforme um determinado campo de um formulário.
Estou tentando usar o DLookup conforme abaixo;

If Not IsNull(Me.CNPJ_CPF) Then
Me.IdCliente = DLookup("Codigo", "tb_Clientes", "CNPJ = " & Me.CNPJ_CPF)
End If

O problema é que recebo uma mensagem de erro em tempo de execução: 3464 (Tipo de dados incompatíveis na expressão critério).

Fiz e refiz os teste, o nome da tabela e campos estão corretos, já vi vários exemplos e não consegui sucesso.

Peço aqui a ajuda dos mestres.

Obrigado!

Tente assim:

Código:


If Not IsNull(Me.CNPJ_CPF) Then
Me.IdCliente = DLookup("Codigo", "tb_Clientes", "CNPJ = " & forms!NomeDoFormulario!CNPJ_CPF)
End If


Olá a todos.

Se CNPJ é número, teste assim:
Me.IdCliente = DLookup("Codigo", "tb_Clientes", "[CNPJ] = " & Me.CNPJ_CPF)

Se CNPJ é texto, teste assim:
Me.IdCliente = DLookup("Codigo", "tb_Clientes", "[CNPJ] = '" & Me.CNPJ_CPF &"'")

Abraço

Olá Caio Fábio,
Como ficou a situação?
Os membros do fórum merecem e agradecem o retorno.

Caso tenha resolvido, não se esqueça de dar o tópico como tal.
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Olá amigo ahteixeira,

Também gostaria de saber como ficou a situação rsrs...

Abçs