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

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

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 880
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 9/6/2022, 02:17

    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
    Anexos
    [Resolvido]Varias pesquisa em um unico formulario (cascata) AttachmentformularioPesquisatudo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (112 Kb) Baixado 11 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 12/6/2022, 16:13

    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


    .................................................................................
    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
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 880
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 13/6/2022, 02:10

    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
    Anexos
    [Resolvido]Varias pesquisa em um unico formulario (cascata) AttachmentformularioPesquisatudo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (192 Kb) Baixado 11 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 13/6/2022, 09:13

    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


    .................................................................................
    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
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 880
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 15/6/2022, 01:36

    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 16/6/2022, 06:49

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


    .................................................................................
    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
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 880
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 16/6/2022, 10:30

    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 16/6/2022, 16:48

    Não entendi. Exemplifique o resultado pretendido


    .................................................................................
    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
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 880
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 16/6/2022, 18:27

    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
    Anexos
    [Resolvido]Varias pesquisa em um unico formulario (cascata) AttachmentCaptura-de-tela-2022-03-10-195112-TBMovimento.jpg.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (76 Kb) Baixado 5 vez(es)
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 880
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 21/6/2022, 11:23

    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 21/6/2022, 18:11

    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)


    .................................................................................
    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
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 880
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 22/6/2022, 01:11

    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
    Anexos
    [Resolvido]Varias pesquisa em um unico formulario (cascata) AttachmentexemploMarceloMarques.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (375 Kb) Baixado 4 vez(es)
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 880
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 26/6/2022, 02:37

    Up
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 880
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 29/6/2022, 11:09

    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

      Data/hora atual: 3/7/2022, 08:55