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;
Private Sub IdCliente_GotFocus()
Dim varX As Variant
If Not IsNull(Me.CNPJ_CPF) Then
varX = DLookup("[Codigo]", "tb_Clientes", "[CNPJ] = " & (Me.CNPJ_CPF))
Me.IdCliente = varX
End If
End Sub
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 testes, o nome da tabela e os tipos dos campos estão corretos, já vi vários exemplos e não consegui sucesso.
Peço aqui a ajuda dos mestres.
Obrigado!
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;
Private Sub IdCliente_GotFocus()
Dim varX As Variant
If Not IsNull(Me.CNPJ_CPF) Then
varX = DLookup("[Codigo]", "tb_Clientes", "[CNPJ] = " & (Me.CNPJ_CPF))
Me.IdCliente = varX
End If
End Sub
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 testes, o nome da tabela e os tipos dos campos estão corretos, já vi vários exemplos e não consegui sucesso.
Peço aqui a ajuda dos mestres.
Obrigado!