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]Função para retornar todos os valores em uma consulta

    Compartilhe

    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 12/10/2011

    [Resolvido]Função para retornar todos os valores em uma consulta

    Mensagem  lucianonunes.jw em Qua 05 Fev 2014, 22:48

    Prezados,

    tenho uma consulta onde dependendo do resultado de uma função que coloco no campo "critério" vai retornar um ou todos os valores da consulta. Abaixo um exemplo simples do que estou precisando:

    Function Criterio()
       If MsgBox("Deseja exibir todos os resultados?", vbYesNo) = vbYes Then
           Criterio = "Like *"
       Else
           Criterio = InputBox("Informe a letra desejada")
       End If
    End Function

    O problema é: caso as condições não sejam atendidas, ela deve retornar todos os registros da consulta. Mas isso não acontece. Que expressão a função deve retornar para que a consulta mostre todos os valores?

    já tentei mas nenhuma das alternativas abaixo deu certo:

    Criterio = "*"
    Criterio = "Like *"
    Criterio = "Like '*'"
    Criterio = Null
    Criterio = Empty

    O resultado da função deve ser o mesmo se digitarmos "Like *" (sem as apas) no campo critério da consulta.

    Anexei um BD com o exemplo acima para testes. Obrigado!

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Função para retornar todos os valores em uma consulta

    Mensagem  criquio em Qua 05 Fev 2014, 23:01

    Talvez assim:

    Criterio = "LIKE '*""" & InputBox("Informe a letra desejada") & """*'"


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 12/10/2011

    Re: [Resolvido]Função para retornar todos os valores em uma consulta

    Mensagem  lucianonunes.jw em Qua 05 Fev 2014, 23:33

    Prezado Criquio,

    não deu certo.

    If MsgBox("Deseja exibir todos os resultados?", vbYesNo) = vbYes Then
          Criterio = "Like *"
    else
    ...
    end if

    Se responder a sim, a consulta deverá retornar todos os valores. Mas não estou conseguindo acertar a função para repassar o valor correto na consulta.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Função para retornar todos os valores em uma consulta

    Mensagem  Alexandre Neves em Qui 06 Fev 2014, 18:47

    Boa tarde,
    Veja


    .................................................................................
    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

    lucianonunes.jw
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 12/10/2011

    Re: [Resolvido]Função para retornar todos os valores em uma consulta

    Mensagem  lucianonunes.jw em Sex 07 Fev 2014, 22:23

    Boa noite Alexandre Neves!

    funcionou redondo.

    muito obrigado por sua ajuda!!!

      Data/hora atual: Sab 03 Dez 2016, 04:37