[Resolvido]Filtro SubForm usando Botao de Opção

Ola meus amigos, tudo bem?

Estou desenvolvendo um sistema de parcelas a receber.  Tenho uma tela com um Form que contem o nome do cliente
e o SubForm que contem os detalhes da parcela. Queria saber se alguém pode dar um ajuda em como usar um
Botão de Opção para realizar filtros: "Todas Quitadas, Todas Vencidas, Todas em Aberto... , conforme imagem em anexo.
Os dados desse SubFormulário está vindo de uma consulta.


Desde já muito agradecido.


Lucas

qual o campo da sua consulta que vai diferenciar para entender os parametros:
"Todas Quitadas, Todas Vencidas, Todas em Aberto"?
Uma parcela é considerada Quitada a partir de quais informações? Dt Pagamento, ValorPago preenchidos?

explique melhor a sua necessidade.

Bom dia,

Com a licença do amigo rubenscouto.

Quando tenho que fazer algum procedimento que envolva baixa (não somente baixa de títulos financeiros) eu sempre tenho na tabela um campo booleano (Sim/Não) de nome "baixado" que é bem óbvio a utilização. Então SUPONDO que tenha algo desse tipo na tabela que origina o subform, também que o campo do cliente na tabela seja cliente e no formulário tenha o nome de txtCliente (apesar de eu preferir utilizar um código numérico ao invés de um nome comum, vou utilizar isso aqui só para exemplificar e tentar solucionar seu problema, caso tenha esse código recomendo que utilize no lugar do nome) e que o grupo de opções que utilizou tenha o nome de qdFiltro fica simples de criar o filtro que ta precisando:

No evento Após Atualizar do qdFiltro insira:

Código:

Dim filtro As String
   
    filtro = "cliente = '" & txtCliente
   
    Select Case qdFiltro
        Case 1 'Todos os titulos
            'não é necessário preencher pois pegará o filtro padrão acima do Select
        Case 2 'Todos em Aberto
            filtro = filtro & " and baixado = false"
        Case 3 'Titulos Vencidos
            filtro = filtro & " and datavencimento < #" & Date
        Case 4 'Títulos Recebidos
            filtro = filtro & " and baixado = true"
    End Select
   
    subContas.Filter = filtro
    subContas.FilterOn = True

Lembrando que os campos baixado, datavencimento e cliente obrigatoriamente tem que estar presentes no subformulário e caso não sejam os nomes exatos que voce tem, só alterar no trecho acima.

Abraço.

Obrigado Cassio...Não consegui. Ainda esta dando erro, mas mesmo assim obrigado por compartilhar. Creio que consigo tomar como base sua resposta.

Bom dia,

Você pode tentar também filtrar diretamente a consulta, pegando o sql que o próprio access gera e fazer as modificações necessárias, tendo por base o trecho de código que passei anteriormente. Ou se de tudo não der certo, também pode compartilhar a parte do bd para que possamos tentar ajudar.

Abraço.