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

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.

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

Um exemplo mais ou menos igual ao do Fábio acima, só que já fiz utilizando seu próprio banco...

Olá Carlos_Perez,

Fiz um pequeno exemplo utilizando TABSTRIP (Guias).



Espero ter ajudado.

Abs

 Maravilhoso
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
======================================

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

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

Obrigado a todos que colaboraram

Sucesso !

Qualquer coisa estamos ai...


Abraço !

Fechando