MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Formulário com grupo de opções que filtra subformulário

    Compartilhe

    Carlos_Perez
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 28/08/2017

    [Resolvido]Formulário com grupo de opções que filtra subformulário

    Mensagem  Carlos_Perez em Ter 28 Nov 2017, 00:46

    Olá, o que busco é uma maneira de aplicar filtro com Botões em "grupo de opções".

    Tenho uma formulário "FormPagamento" de pagamentos com campo "Pago" tipo sim/não no subformulário "PAGAMENTO subformulário".
    Ao pressionar o Botão "A receber (valor 1) filtraria o subformulário com o campo "Pago"= não (desmarcados)
    Ao pressionar o Botão "Recebidas (valor 2) filtraria o subformulário com o campo "Pago"= sim (marcados)
    Ao pressionar o Botão "Todas (valor 3) remove o filtro do o subformulário do campo "Pago" mostrando sim e não (marcados e desmarcados)

    Procurei bastante e o mais próximo que achei foi um código para ser aplicado em propriedades, evento, após atualizar porem após varias tentativas não achei uma forma de fazer funcionar com um subformulário:
    =========================================
    Private Sub OpcoesDeFiltro_AfterUpdate()
    ' Aplica ou remove o filtro para a opção escolhida pelo usuário
    If OpcoesDeFiltro = 1 Then
       Me.FilterOn = False                 ' Remove o filtro
    Else
       If OpcoesDeFiltro = 2 Then
           Me.Filter = "Bairro = 'Copacabana'"
           Me.FilterOn = True                  ' Aplica o filtro
       End If
       If OpcoesDeFiltro = 3 Then
           Me.Filter = "Bairro = 'Botafogo'"
           Me.FilterOn = True                  ' Aplica o filtro
    End If
    End Sub
    ==========================================
    Atualmente uso duas pesquisas e dois formulários mas desta forma seria melhor. Segue no anexo o banco de dados, agradeço a ajuda.
    Anexos
    Grupofiltrasub.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 10 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3484
    Registrado : 14/08/2013

    Re: [Resolvido]Formulário com grupo de opções que filtra subformulário

    Mensagem  FabioPaes em Ter 28 Nov 2017, 13:32

    Olá, basta colocar um Select Case que analisará o Valor do grupo!

    Sendo assim, iremos aplicar filtro no Campo "Pago". Veja!!!


    No Evento Apos atualizar do GRUPO coloque:


    Private Sub Quadro8_AfterUpdate()

    Select Case Me.Quadro8
       Case 1 'Filtra os Não Pagos
           Me.PAGAMENTO_subformulário.Form.Filter = "PAGO=0"
           Me.PAGAMENTO_subformulário.Form.FilterOn = True
       Case 2 'Filtra os PAGOS
           Me.PAGAMENTO_subformulário.Form.Filter = "PAGO=-1"
           Me.PAGAMENTO_subformulário.Form.FilterOn = True
       Case 3 'Remove o Filtro e exibe tudo
           Me.PAGAMENTO_subformulário.SetFocus
           DoCmd.ShowAllRecords
    End Select

    End Sub


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    luissiscone
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 127
    Registrado : 16/02/2011

    Re: [Resolvido]Formulário com grupo de opções que filtra subformulário

    Mensagem  luissiscone em Ter 28 Nov 2017, 13:46

    Um exemplo mais ou menos igual ao do Fábio acima, só que já fiz utilizando seu próprio banco...
    Anexos
    Grupofiltrasub.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (73 Kb) Baixado 7 vez(es)
    avatar
    Alexandre Fim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 202
    Registrado : 13/12/2016

    Re: [Resolvido]Formulário com grupo de opções que filtra subformulário

    Mensagem  Alexandre Fim em Ter 28 Nov 2017, 15:10

    Olá Carlos_Perez,

    Fiz um pequeno exemplo utilizando TABSTRIP (Guias).

    [Você precisa estar registrado e conectado para ver este link.]

    Espero ter ajudado.

    Abs
    Anexos
    Grupofiltrasub.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 6 vez(es)

    Carlos_Perez
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 28/08/2017

    Re: [Resolvido]Formulário com grupo de opções que filtra subformulário

    Mensagem  Carlos_Perez em Ter 28 Nov 2017, 22:40

    cheers  Maravilhoso cheers
    Exatamente como desejava, obrigado a todos, porem gostaria de mais uma ajuda.

    Faltou falar que os dados fossem ordenados por ordem de [Data Vencimento] no exemplo do Alexandre consegui no exemplo das guias pois a instrução já estava lá e foi só colocar o campo que eu queria. Mas nos outros modelos não consegui ordenar por data.

    Faltou também dizer que ao abrir o formulário estivessem filtrados por não pagos.(pensei que seria automático porque o valor padrão era 1)
    Ai coloquei nas propriedades do formulário "evento", "ao carregar" o começo do código, não sei se é a melhor forma mas funcionou.
    =======================================
    Private Sub Form_Load()
    Select Case Me.Quadro8
      Case 1 'Filtra os Não Pagos
          Me.PAGAMENTO_subformulário.Form.Filter = "PAGO=0"
          Me.PAGAMENTO_subformulário.Form.FilterOn = True
         
    End Select
    End Sub
    ======================================
    avatar
    luissiscone
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 127
    Registrado : 16/02/2011

    Re: [Resolvido]Formulário com grupo de opções que filtra subformulário

    Mensagem  luissiscone em Qua 29 Nov 2017, 10:42

    NO exemplo dos botões também é Simples, segue seu exemplo !

    Private Sub Ativar_Desativar11_GotFocus()
    Me.PAGAMENTO_subformulário.Form.RecordSource = "SELECT PAGAMENTO.Pedido,PAGAMENTO.Parcela, PAGAMENTO.Valor, PAGAMENTO.[Data Vencimento], PAGAMENTO.Pago FROM PAGAMENTO WHERE (((PAGAMENTO.Pago) = No))ORDER BY PAGAMENTO.[Data Vencimento];"
    End Sub

    Private Sub Ativar_Desativar12_GotFocus()
    Me.PAGAMENTO_subformulário.Form.RecordSource = "SELECT PAGAMENTO.Pedido, PAGAMENTO.Parcela, PAGAMENTO.Valor, PAGAMENTO.[Data Vencimento], PAGAMENTO.Pago FROM PAGAMENTO WHERE (((PAGAMENTO.Pago) = Yes)) ORDER BY PAGAMENTO.[Data Vencimento];"
    End Sub

    Private Sub Ativar_Desativar13_GotFocus()
    Me.PAGAMENTO_subformulário.Form.RecordSource = "SELECT PAGAMENTO.Pedido, PAGAMENTO.Parcela, PAGAMENTO.Valor, PAGAMENTO.[Data Vencimento], PAGAMENTO.Pago FROM PAGAMENTO ORDER BY PAGAMENTO.[Data Vencimento];"
    End Sub
    Anexos
    Grupofiltrasub.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 9 vez(es)

    Carlos_Perez
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 28/08/2017

    Re: [Resolvido]Formulário com grupo de opções que filtra subformulário

    Mensagem  Carlos_Perez em Qui 30 Nov 2017, 18:15

    Valeu Luis, para mim não pareceu muito simples sem essa ajuda não teria conseguido.

    Very Happy Obrigado a todos que colaboraram Very Happy
    avatar
    luissiscone
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 127
    Registrado : 16/02/2011

    Re: [Resolvido]Formulário com grupo de opções que filtra subformulário

    Mensagem  luissiscone em Sex 01 Dez 2017, 08:45

    Sucesso !

    Qualquer coisa estamos ai...


    Abraço !

    Carlos_Perez
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 28/08/2017

    Re: [Resolvido]Formulário com grupo de opções que filtra subformulário

    Mensagem  Carlos_Perez em Sab 02 Dez 2017, 21:55

    Fechando

      Data/hora atual: Seg 11 Dez 2017, 22:59