MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Tipos incompatíveis

    Compartilhe

    betocac
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/10/2016

    Tipos incompatíveis

    Mensagem  betocac em 24/5/2017, 18:45

    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!
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 278
    Registrado : 05/12/2016

    Re: Tipos incompatíveis

    Mensagem  caiosouza em 25/5/2017, 22:40

    Tente assim:

    Código:

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


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5299
    Registrado : 15/03/2013

    Re: Tipos incompatíveis

    Mensagem  ahteixeira em 25/5/2017, 23:07

    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5299
    Registrado : 15/03/2013

    Re: Tipos incompatíveis

    Mensagem  ahteixeira em 26/8/2017, 18:25

    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.
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 278
    Registrado : 05/12/2016

    Re: Tipos incompatíveis

    Mensagem  caiosouza em 28/8/2017, 13:59

    Olá amigo ahteixeira,

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

    Abçs


    .................................................................................
    A persistência leva ao sucesso!

      Data/hora atual: 23/7/2018, 18:15