MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Critérios em consulta

    avatar
    Alberto Moura
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 13/01/2015

    Critérios em consulta Empty Critérios em consulta

    Mensagem  Alberto Moura em 17/4/2020, 02:40

    Boa noite todos!
    Estou precisando da ajuda do nobres colegas.

    Criei uma consulta com critérios relacionada ao um formulário, onde faz o filtro pela coluna Empreendimento Como "*" & [Formulários]![frm_CadastroNovo]![txtSelectEmpPgto] & "*"; ou pela coluna "unidade" Como "*" & [Formulários]![frm_CadastroNovo]![txtSelectUnidadePgto] & "*" , até aqui tudo perfeito; preciso efetuar outro filtro na coluna "vencimento" e "ValorPago" para exibir somente os vencidos e valor pago esteja vazia.

    Critérios em consulta 11

    O código Sql no momento está desta forma:

    Código:
    SELECT BD_LOCACAO_temp.CódigoAluguel, BD_LOCACAO_temp.IdCliente, BD_LOCACAO_temp.Nome, BD_LOCACAO_temp.IdEmpreendimento, BD_LOCACAO_temp.Tipo, BD_LOCACAO_temp.Empreendimento, BD_LOCACAO_temp.Unidade, BD_LOCACAO_temp.Sequencia, BD_LOCACAO_temp.Vencimento, BD_LOCACAO_temp.ValorAluguel, BD_LOCACAO_temp.ValorPago, BD_LOCACAO_temp.DataPgto, BD_LOCACAO_temp.FormaPgto, BD_LOCACAO_temp.SelecioneLocacao
    FROM BD_LOCACAO_temp
    WHERE (((BD_LOCACAO_temp.Empreendimento) Like "*" & [Formulários]![frm_CadastroNovo]![txtSelectEmpPgto] & "*") AND ((BD_LOCACAO_temp.Unidade) Like "*" & [Formulários]![frm_CadastroNovo]![txtSelectUnidadePgto] & "*"));
    .
    Desde já grato pela atenção.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3191
    Registrado : 21/04/2011

    Critérios em consulta Empty Re: Critérios em consulta

    Mensagem  Marcelo David em 17/4/2020, 12:35

    Bom dia,
    Para apresentar apenas vencidos e valores nulos, basicamente basta acrescentar a clausula where o seguinte:

    AND BD_LOCACAO_temp.vencimento < Date() AND BD_LOCACAO_temp.ValorPago IS NULL.

    A SQL completa deve ficar assim:

    Código:
    SELECT BD_LOCACAO_temp.CódigoAluguel, BD_LOCACAO_temp.IdCliente, BD_LOCACAO_temp.Nome, BD_LOCACAO_temp.IdEmpreendimento, BD_LOCACAO_temp.Tipo, BD_LOCACAO_tempEmpreendimento, BD_LOCACAO_temp.Unidade, BD_LOCACAO_temp.Sequencia, BD_LOCACAO_temp.Vencimento, BD_LOCACAO_temp.ValorAluguel, BD_LOCACAO_temp.ValorPago, BD_LOCACAO_temp.DataPgto, BD_LOCACAO_temp.FormaPgto, BD_LOCACAO_temp.SelecioneLocacao
    FROM BD_LOCACAO_temp
    WHERE BD_LOCACAO_temp.Empreendimento Like "*" & [Formulários]![frm_CadastroNovo]![txtSelectEmpPgto] & "*" AND BD_LOCACAO_temp.Unidade Like "*" & [Formulários]![frm_CadastroNovo]![txtSelectUnidadePgto] & "*" AND BD_LOCACAO_temp.vencimento < Date() AND BD_LOCACAO_temp.ValorPago IS NULL;


    .................................................................................
    Marcelo David
    https://www.freetool.dev (em construção)
    avatar
    Alberto Moura
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 13/01/2015

    Critérios em consulta Empty Re: Critérios em consulta

    Mensagem  Alberto Moura em 17/4/2020, 13:24

    Obg pela ajuda Marcelo,

    Esqueci de informar que preciso que esse valores sejam exibidos somente quando selecionar um determinado botão de opção,
    Conforme imagem de botão de opção abaixo, preciso que os filtros fiquem independentes, que o código que vc me passou execute quando selecionado a opção "Em atraso". Isso que não estou conseguindo.

    Critérios em consulta Exempl10
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3191
    Registrado : 21/04/2011

    Critérios em consulta Empty Re: Critérios em consulta

    Mensagem  Marcelo David em 27/4/2020, 12:11

    Bom dia,
    Como faz tempo que não falamos aqui,
    conseguiu algum resultado? Se não iremos
    tenta novamente.


    .................................................................................
    Marcelo David
    https://www.freetool.dev (em construção)
    avatar
    Alberto Moura
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 13/01/2015

    Critérios em consulta Empty Re: Critérios em consulta

    Mensagem  Alberto Moura em 29/4/2020, 02:17

    Boa noite,
    Marcelo David grato pela ajuda,
    Não consegui, estou pensando em criar uma nova consulta e um form só com as datas vencidas, com o código que vc me passou, já que não consegui em uma única consulta unir os três critérios independentes. Pensei também, não sei se é possível em um único subformulário unir mais de uma consulta, sendo vinculado a consulta ao subformulário de acordo com o botão de opção selecionado?
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3191
    Registrado : 21/04/2011

    Critérios em consulta Empty Re: Critérios em consulta

    Mensagem  Marcelo David em 29/4/2020, 11:54

    Bom dia,
    envie seu banco para testarmos aqui.


    .................................................................................
    Marcelo David
    https://www.freetool.dev (em construção)
    avatar
    Alberto Moura
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 13/01/2015

    Critérios em consulta Empty Re: Critérios em consulta

    Mensagem  Alberto Moura em 29/4/2020, 20:28

    Boa tarde!

    Segue o bd
    Anexos
    Critérios em consulta AttachmentSysAgat.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.6 Mb) Baixado 11 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3191
    Registrado : 21/04/2011

    Critérios em consulta Empty Re: Critérios em consulta

    Mensagem  Marcelo David em 30/4/2020, 14:58

    Bom dia,
    Verifiquei os arquivos que enviou e não encontrei a consulta informada.
    Apenas vi uma consulta e sem nenhum critério.

    Poderia informar (detalhadamente) onde estão os objetos envolvidos?


    .................................................................................
    Marcelo David
    https://www.freetool.dev (em construção)
    avatar
    Alberto Moura
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 13/01/2015

    Critérios em consulta Empty Re: Critérios em consulta

    Mensagem  Alberto Moura em 6/5/2020, 01:37

    Boa noite, Marcelo David

    Não estou conseguindo colocar os critérios independentes na consulta "CnsLOCACAO" para quando selecionado o botão de opção "Em atraso", efetue o filtro independente dos outros botões de opção do form "frm_CadastroNovo", preciso que o filtro seja efetuado independente de acordo com o selecionado e/ou informado no txtbox.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3191
    Registrado : 21/04/2011

    Critérios em consulta Empty Re: Critérios em consulta

    Mensagem  Marcelo David em 2/6/2020, 22:16

    Boa noite, antes de continuar tentando uma solução,
    conseguiu algo?


    .................................................................................
    Marcelo David
    https://www.freetool.dev (em construção)

      Data/hora atual: 26/10/2020, 18:45