MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Pesquisa com DLookup

    avatar
    Kiora
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Pesquisa com DLookup Empty [Resolvido]Pesquisa com DLookup

    Mensagem  Kiora 21/8/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Pesquisa com DLookup Empty Re: [Resolvido]Pesquisa com DLookup

    Mensagem  Alexandre Neves 21/8/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
    avatar
    Kiora
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Pesquisa com DLookup Empty Re: [Resolvido]Pesquisa com DLookup

    Mensagem  Kiora 21/8/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
    ÓscarSantos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Pesquisa com DLookup Empty Re: [Resolvido]Pesquisa com DLookup

    Mensagem  ÓscarSantos 21/8/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ó access2007 infelizmente é o que tenho no trabalho Sad .
    para dar tópico como resolvido https://www.maximoaccess.com/t860-resolucao-de-topicos
    avatar
    Kiora
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Pesquisa com DLookup Empty Re: [Resolvido]Pesquisa com DLookup

    Mensagem  Kiora 21/8/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
    ÓscarSantos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Pesquisa com DLookup Empty Re: [Resolvido]Pesquisa com DLookup

    Mensagem  ÓscarSantos 21/8/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ó access2007 infelizmente é o que tenho no trabalho Sad .
    para dar tópico como resolvido https://www.maximoaccess.com/t860-resolucao-de-topicos

    Conteúdo patrocinado


    [Resolvido]Pesquisa com DLookup Empty Re: [Resolvido]Pesquisa com DLookup

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/4/2024, 09:29