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


2 participantes

    Critérios em consulta

    avatar
    Alberto Moura
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Critérios em consulta Empty Critérios em consulta

    Mensagem  Alberto Moura 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 : Respeito às Regras 100%

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

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

    Mensagem  Marcelo David 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;


    .................................................................................
    Critérios em consulta Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Critérios em consulta Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Critérios em consulta Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Critérios em consulta Marcel11
    avatar
    Alberto Moura
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alberto Moura 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 : Respeito às Regras 100%

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

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

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

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


    .................................................................................
    Critérios em consulta Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Critérios em consulta Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Critérios em consulta Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Critérios em consulta Marcel11
    avatar
    Alberto Moura
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alberto Moura 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 : Respeito às Regras 100%

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

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

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

    Bom dia,
    envie seu banco para testarmos aqui.


    .................................................................................
    Critérios em consulta Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Critérios em consulta Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Critérios em consulta Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Critérios em consulta Marcel11
    avatar
    Alberto Moura
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alberto Moura 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 28 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Marcelo David 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?


    .................................................................................
    Critérios em consulta Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Critérios em consulta Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Critérios em consulta Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Critérios em consulta Marcel11
    avatar
    Alberto Moura
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alberto Moura 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 : Respeito às Regras 100%

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

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

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

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


    .................................................................................
    Critérios em consulta Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Critérios em consulta Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Critérios em consulta Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Critérios em consulta Marcel11

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 16:06