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 28/11/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 13 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 28/11/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 : 158
    Registrado : 16/02/2011

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

    Mensagem  luissiscone em 28/11/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 11 vez(es)
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim em 28/11/2017, 15:10

    Olá Carlos_Perez,

    Fiz um pequeno exemplo utilizando TABSTRIP (Guias).

    [Você precisa estar registrado e conectado para ver esta imagem.]

    Espero ter ajudado.

    Abs
    Anexos
    Grupofiltrasub.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 11 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 28/11/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 : 158
    Registrado : 16/02/2011

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

    Mensagem  luissiscone em 29/11/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 14 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 30/11/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 : 158
    Registrado : 16/02/2011

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

    Mensagem  luissiscone em 1/12/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 2/12/2017, 21:55

    Fechando

      Data/hora atual: 16/8/2018, 07:35