MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 16
    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?

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    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 : 16
    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?


    ÓscarSantos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 327
    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 : 16
    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

    ÓscarSantos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 327
    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: Sex 09 Dez 2016, 09:38