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 : 18
    Registrado : 23/10/2016

    Tipos incompatíveis

    Mensagem  betocac em Qua 24 Maio 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 : 216
    Registrado : 05/12/2016

    Re: Tipos incompatíveis

    Mensagem  caiosouza em Qui 25 Maio 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 : 4402
    Registrado : 15/03/2013

    Re: Tipos incompatíveis

    Mensagem  ahteixeira em Qui 25 Maio 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 : 4402
    Registrado : 15/03/2013

    Re: Tipos incompatíveis

    Mensagem  ahteixeira em Sab 26 Ago 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 : 216
    Registrado : 05/12/2016

    Re: Tipos incompatíveis

    Mensagem  caiosouza em Seg 28 Ago 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: Seg 25 Set 2017, 10:42