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

    [Resolvido]Pesquisa com DLookup

    Compartilhe

    Kiora
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 18/06/2016

    [Resolvido]Pesquisa com DLookup

    Mensagem  Kiora em Dom 21 Ago 2016, 16:46

    Boa tarde pessoal,

    Dês de já grato pela atenção de todos!

    Estou tentando fazer uma pesquisa em uma tabela porem esta dando erro:

    Tipo de dados incompatíveis na expressão de critério.

    A expressão é:

    Dim y As Integer

        y = DLookup("[IDPendencias]", "Pendencias", "[cod] = " & CPCEMP1 & " And [data] = '" & CPCEMP2 & "' And  [numero] = " & CPCEMP3 & "")

    Cemp1, Cemp2 e Cemp3 são numero, data e numero, e eu quero que me retorne o IDPendencias, que é um numero e é o ID da tabela!

    Os números , Cemp1, Cemp2 e Cemp3 aparecem, normalmente porem o y fica igual a 0.

    O que posso fazer?
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6441
    Registrado : 05/11/2009

    Re: [Resolvido]Pesquisa com DLookup

    Mensagem  Alexandre Neves em Dom 21 Ago 2016, 19:11

    Boa tarde
    coloque y como long e reveja o tipo de dados em cada campo de forma a envolver com ' quando string ou # quando datas


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Kiora
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 18/06/2016

    Re: [Resolvido]Pesquisa com DLookup

    Mensagem  Kiora em Dom 21 Ago 2016, 19:59

    Boa tarde Alexndre,

    Estou muito feliz com o fórum por ser muito atencioso, parabéns!!

    "Boa tarde
    coloque y como long e reveja o tipo de dados em cada campo de forma a envolver com ' quando string ou # quando datas"
    Mesmo assim continua o erro!

    como esta no Banco de dados(Pendencias)
    IDPEndencias (Numero)(Chave Primaria)
    Cod (Numero)
    Data (Data/hora)
    Numero (Numero)

    No código do botão

    Dim CPCEMP1 As Integer
    Dim CPCEMP2 As String
    Dim CPCEMP3 As Integer
    Dim y As Long

    y = Dlookup("[IDPendencias]", "Pendencias", "[cod] = " & CPCEMP1 & " And [data] = '" & CPCEMP2 & "' And [numero] = " & CPCEMP3 & "")

    Ele lé todo os números normalmente, só na hora o Dlookup ele pega y como 0 e da o erro sitado a baixo!

    Bem estranho não?
    Alguma ideia?

    avatar
    ÓscarSantos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 333
    Registrado : 18/09/2013

    Re: [Resolvido]Pesquisa com DLookup

    Mensagem  ÓscarSantos em Dom 21 Ago 2016, 20:12

    Olha tenta assim nos campos data:

    y = DLookup("[IDPendencias]", "Pendencias", "[cod] = " & CPCEMP1 & " And [data] # '" & CPCEMP2 & "# And [numero] = " & CPCEMP3 & "")


    exemplos para campos numericos:

    y = DLookup("[IDPendencias]", "Pendencias", " [numero] = " & CPCEMP3 & "")

    exemplos para campo data:


    y = DLookup("[IDPendencias]", "Pendencias", " [data] # " & CPCEMP2 & "#")

    exemplo campo texto:

    y = DLookup("[IDPendencias]", "Pendencias", " [campotexto] ' " & CPCEMP2 & "'")

    Abraço


    .................................................................................
    _________________________________________________________
    sempre a aprender
    para enviar ou postar só access2003 infelizmente é o que tenho no trabalho [Você precisa estar registrado e conectado para ver esta imagem.] .
    para dar tópio como resolvido [Você precisa estar registrado e conectado para ver este link.]

    Kiora
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 18/06/2016

    Re: [Resolvido]Pesquisa com DLookup

    Mensagem  Kiora em Dom 21 Ago 2016, 20:35

    Óscar Santos e Alexandre,

    Muito obrigado pela ajuda, eu coloque o # em data e resolveu meu problema!!!!

    Já está marcado como resolvido!

    cheers cheers cheers cheers
    avatar
    ÓscarSantos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 333
    Registrado : 18/09/2013

    Re: [Resolvido]Pesquisa com DLookup

    Mensagem  ÓscarSantos em Dom 21 Ago 2016, 20:55

    Ainda bem.
    espero que tenhas percebido os meus exemplos e como aplica-los.

    Abraço


    .................................................................................
    _________________________________________________________
    sempre a aprender
    para enviar ou postar só access2003 infelizmente é o que tenho no trabalho [Você precisa estar registrado e conectado para ver esta imagem.] .
    para dar tópio como resolvido [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 21 Out 2017, 20:37