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


4 participantes

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

    avatar
    Carlos_Perez
    Novato
    Novato


    Respeito às regras : 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 Empty [Resolvido]Formulário com grupo de opções que filtra subformulário

    Mensagem  Carlos_Perez 27/11/2017, 19: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
    [Resolvido]Formulário com grupo de opções que filtra subformulário AttachmentGrupofiltrasub.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 17 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 28/11/2017, 08: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!
    luissiscone
    luissiscone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  luissiscone 28/11/2017, 08:46

    Um exemplo mais ou menos igual ao do Fábio acima, só que já fiz utilizando seu próprio banco...
    Anexos
    [Resolvido]Formulário com grupo de opções que filtra subformulário AttachmentGrupofiltrasub.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (73 Kb) Baixado 24 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

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

    Olá Carlos_Perez,

    Fiz um pequeno exemplo utilizando TABSTRIP (Guias).

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

    Espero ter ajudado.

    Abs
    Anexos
    [Resolvido]Formulário com grupo de opções que filtra subformulário AttachmentGrupofiltrasub.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 38 vez(es)
    avatar
    Carlos_Perez
    Novato
    Novato


    Respeito às regras : 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 Empty Re: [Resolvido]Formulário com grupo de opções que filtra subformulário

    Mensagem  Carlos_Perez 28/11/2017, 17: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
    ======================================
    luissiscone
    luissiscone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  luissiscone 29/11/2017, 05: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
    [Resolvido]Formulário com grupo de opções que filtra subformulário AttachmentGrupofiltrasub.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 23 vez(es)
    avatar
    Carlos_Perez
    Novato
    Novato


    Respeito às regras : 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 Empty Re: [Resolvido]Formulário com grupo de opções que filtra subformulário

    Mensagem  Carlos_Perez 30/11/2017, 13: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
    luissiscone
    luissiscone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  luissiscone 1/12/2017, 03:45

    Sucesso !

    Qualquer coisa estamos ai...


    Abraço !
    avatar
    Carlos_Perez
    Novato
    Novato


    Respeito às regras : 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 Empty Re: [Resolvido]Formulário com grupo de opções que filtra subformulário

    Mensagem  Carlos_Perez 2/12/2017, 16:55

    Fechando

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 13:33