[Resolvido]Consultar pelo botão de Opcão

Fala galera, mais uma vez preciso da ajuda de vocês, provavelmente é muito simples a solução mas passei o dia inteiro quebrando cabeça e não consegui aplicar.

Tenho um formulário que estou fazendo de contas a receber, nele tenho várias opções de consulta, alguns filtros  consegui fazer com ajuda aqui do fórum, então tenho pesquisas por datas de inicio e fim, nome,  recebidas, a receber e elas todas estão funcionando, a única que não consigo fazer é de atrasadas. Sei que deve ser algo simples, preciso fazer duas comparações, Campo data menor que a data atual e campo pago do tipo verdadeiro = 1 e falso = 0

Enrosquei nesse aqui

Private Sub OpAtrasados_GotFocus()

If Me.DTVCTO < Date And Me.PAGO = 0 Then

Me.Form.FilterOn = True

End If

End Sub

Este código está em "Ao receber foco" nas propriedades do botão de Opção. As consultas de Recebidas e A Receber utilizo através da consulta que referencia com o critério "Como [Formulários]![FORM_CONTASaRECEBER]![txtConsulta] & "*" onde eu chamo através de código o valor de opção em comparação a uma caixa não acoplada. Se alguém tiver uma idéia de como montar esta consulta agradeço e muito

Talvez seja mais facil se postar as partes envolvidas! Assim entenderíamos melhor a sua situação e estrutura!

Fabio, bom dia...obrigado pelo retorno. Segue o banco de exemplo, consegui fazer na opção atrasados com outra consulta por nome de Consulta_CR_FiltroData ai retorna o valor que quero mais por outro lado não marca o botão de opção igual os outros porque estou fazendo duas consultas no mesmo quadro de opções.

Opa amigo, seguindo o seu raciocínio, resolveremos com apenas uma consulta e um Seimed...

Vejamos:
Se o campo Baixado=-1 (sim) então o Campo PAGO=1
Se o campo Baixado=0 (nao) e a data Vencimento< que data atual, então o Campo PAGO=2
Se nao, o campo PAGO=0

Desa forma teremos na consulta no campo PAGO terá: 1 para Pago, 2 para Atrasado e 0 a receber. Então basta aplicar o filtro nesse campo de acordo com o que precisa!

Apague a consulta extra;
Na consulta CONSULTA_CR, no campo PAGO mude para:
PAGO: SeImed([BAIXADO]=-1;1;SeImed([DTVCTO] '<=== Nada mais é do que a explicação anterior

Agora no formulario, na opção Atrasado, no evento apos atualizar mude o comando:
de:
txtConsulta = 2
DoCmd.ApplyFilter "Consulta_CR_FiltroData"

Para:
txtConsulta = 2


Pronto!