[Resolvido]Varias pesquisa em um unico formulario (cascata)

boa noite pessoal eu aqui mais uma vez precisando da ajuda de vocês estou tentando criar um formulário de pesquisa porem gostaria de resumir estas pesquisas em um único formulário tentei fazer como cascata mais eu queria fazer direto em vba as consultas que gostaria de fazer seria


(a vencer , vencidas ,todas ,por categoria ,por produto ,por cliente ,por mês )se alguém tiver um exemplo ou puder me dar uma dica como fazer eu agradeço

Boa tarde
Elimine a consulta e elimine-a da origem do controlo
Crie um módulo VBA e cole o seguinte código

Código:

Option Compare Database

Sub Filtra()
    Dim strFiltro As String
   
    strFiltro = " WHERE Quitar=False"
    Select Case CBOVENCIDO
    Case "Vencido"
        strFiltro = strFiltro & " and Dt_Vencimento<=Date()"
    Case "A vencer"
        strFiltro = strFiltro & " and Dt_Vencimento>Date()"
    End Select
    If Len("" & cboProduto) > 0 Then strFiltro = strFiltro & " and Descricao='" & cboProduto & "'"
    If Len("" & cboTipoDespesa) > 0 Then strFiltro = strFiltro & " and TipoDespesa='" & cboTipoDespesa & "'"
    'If Len(strFiltro) > 0 Then strFiltro = " WHERE " & Mid(strFiltro, 5)
    'strFiltro = " WHERE " & Mid(strFiltro, 5) & "AND Quitar=False"
    listaPesquisa.RowSource = "SELECT NomeCliente, tipodespesa, Descricao, Valor_Pago, Valor_Parcela, Dt_Vencimento, Quitar" _
    & " FROM ((Tbl_CadCli INNER JOIN Tbl_Vendas ON Tbl_CadCli.CodCli = Tbl_Vendas.Cliente) INNER JOIN (Tbl_CadProd INNER JOIN Tbl_VendasDet ON Tbl_CadProd.Código = Tbl_VendasDet.Produto) ON Tbl_Vendas.CodVenda = Tbl_VendasDet.CodigoVendas) INNER JOIN Tbl_ContasAreceber ON Tbl_Vendas.CodVenda = Tbl_ContasAreceber.Cod_TabVenda" _
    & strFiltro
End Sub

Private Sub cboProduto_AfterUpdate()
    Filtra
End Sub


Private Sub cboTipoDespesa_AfterUpdate()
    Filtra
End Sub

Private Sub CBOVENCIDO_AfterUpdate()
    Filtra
End Sub

Private Sub Form_Load()
    listaPesquisa.RowSource = "SELECT NomeCliente, tipodespesa, Descricao, Valor_Pago, Valor_Parcela, Dt_Vencimento, Quitar" _
    & " FROM ((Tbl_CadCli INNER JOIN Tbl_Vendas ON Tbl_CadCli.CodCli = Tbl_Vendas.Cliente) INNER JOIN (Tbl_CadProd INNER JOIN Tbl_VendasDet ON Tbl_CadProd.Código = Tbl_VendasDet.Produto) ON Tbl_Vendas.CodVenda = Tbl_VendasDet.CodigoVendas) INNER JOIN Tbl_ContasAreceber ON Tbl_Vendas.CodVenda = Tbl_ContasAreceber.Cod_TabVenda" _
    & " WHERE Dt_Vencimento>Date() AND Quitar=False;"
End Sub

boa noite Alexandre muito obrigado  pela resposta o que deve ser mudado para filtrar individualmente ou seja
mesmo se estiver algum campo em branco filtrar assim mesmo veja o exemplo abaixo abre o frm_filtrar_todos esta funcionado mais gostaria de mudar para vba para aprendizado mesmo e tentar enxugar meu sistema diminuindo um pouco de consultas

Bom dia
Não percebi qual diferença existe, excepto nos botões de limpar o filtro
Para abrir o formulário sem qualquer filtro, use

Código:

Private Sub Form_Load()
    listaPesquisa.RowSource = "SELECT NomeCliente, tipodespesa, Descricao, Valor_Pago, Valor_Parcela, Dt_Vencimento, Quitar" _
    & " FROM ((Tbl_CadCli INNER JOIN Tbl_Vendas ON Tbl_CadCli.CodCli = Tbl_Vendas.Cliente) INNER JOIN (Tbl_CadProd INNER JOIN Tbl_VendasDet ON Tbl_CadProd.Código = Tbl_VendasDet.Produto) ON Tbl_Vendas.CodVenda = Tbl_VendasDet.CodigoVendas) INNER JOIN Tbl_ContasAreceber ON Tbl_Vendas.CodVenda = Tbl_ContasAreceber.Cod_TabVenda" _
    & " WHERE Quitar=False;"
End Sub

boa noite Alexandre rapaz deu certo obrigado pela força gostaria de fazer uma pergunta não sei se devo abrir outro topico mais minha duvida seria ao escolher uma destas opções ele pegar para mim a primeira data da consulta e tambem a ultima


exemplo debito de 14/06/2022 até 14/07/2022

Bom dia
Não entendi. Ele pegava a primeira e última datas e...?

Bom dia é isso mesmo quando ele executar a consulta ele mostrar o período e um campo eu até tinha feito neste outro formulário que te enviei mais está dando errado e só pra saber em quanto tempo gastei aquele dinheiro mais ou menos isso

Não entendi. Exemplifique o resultado pretendido

Desculpa se não expliquei direito está data vem da consulta filtrada somente para visualizar o tempo que foi gasto o valor filtrada da consulta
Queria que me retornasse a primeira data e a última somente para visualização para ver o tempo que foi gasto

Bom dia Alexandre acho que não consegui explicar mais vamos lá o que pretendo seria o seguinte depois de filtrar a consulta em uma caixa de texto retorna a primeira data que foi filtrada na consulta e em outra caixa de texto retorna a última data da consulta minha intenção seria para ver em quantos dias foi gasto com algum produto

Exemplo
Eu filtraria gasolina ele pegaria a primeira data 01/06/2022
E a última data seria 20/06/2022
Aí em 20 dias eu sei que gastei um valor X de gasolina

Boa tarde
Continuo a não entender o que pretende.
Pelos dados que enviou, com filtro por 'gasolina' encontro a data mais antiga 03-08-2021 (não 01/06/2022) e a mais recente 21-06-2022 (não 20/06/2022)

boa noite  Alexandre abra o formulário fiz algumas modificações nele para ele abrir exatamente como esta na imagem que te enviei como exemplo na imagem esta tudo explicadinho o que eu pretendo

Up

Bom dia Alexandre muito obrigado pela força era o que pretendia agora vou dar uma estudada no código o quanto a data inicial e data final vou deixar como está era mesmo só para exibir a primeira data e a última da caixa de listagem mais como disse vou deixar sem valeuuuuu muito obrigado mesmo

Abraço