[Resolvido]Filtro ao Abrir Form apartir de outro Form (em VBA)

Tenho o seguinte código que abre um form de estornor apartir de outro form...
Ele tem como criterio o campo Num_or para proceder a filtragem do relatorio...

O que preciso:

Que seja alterado para que além do Num_Or ele filtre tabem outro campo...(Campo Sim/Não - CheckBox) nome do campo: Quitada


Se puderem me ajudar, fico grato



Private Sub Estorno_Click()
On Error GoTo Err_Estorno_Click
Dim Filtro As String
Dim MSG


Filtro = "[Num_Or] = " & Str(Me.Num_OR)

If Not IsNull(Me.Num_OR) Then

MSG = MsgBox("Use este módulo para estornar pagamentos do cliente selecionado", vbOKOnly + vbCritical, "AVISO")

DoCmd.OpenForm "Forma_Pgto_Cliente_Estorno", acViewNormal, , Filtro

Else
MSG = MsgBox("Selcione o Cliente !!!", vbOKOnly + vbCritical, "ATENÇÃO")
Me.Combinação40.SetFocus

Exit_Estorno_Click:
Exit Sub

Err_Estorno_Click:
MSG = MsgBox("Verifique se há registros ativos de parcelamento !!!", vbOKOnly + vbCritical, "ERRO")
Resume Exit_Estorno_Click


End If
End Sub

Saudações

teste;

Filtro = "[Num_Or] = " & Str(Me.Num_OR) & " AND [SuaCheckBox]=" & Me.SuaCheckBox & ""

Bom dia Mestre, espero que se encontre bem...

Veja so.. esqueci um detalhe...

O campo Num_Or esta no Form
O Csmpo Quitada esta no sub form

Tem como?

No Sub form tambem tem o mesmo campo Num_Or pode usa-lo se preferir (e o mesmo valor do Num_or do form)

Ha.. tem outra...

A CheckBox tem que estar com o valor -1

Filtrando o campo

Seria Assim?

Filtro = "[Num_Or] = " & Str(Me.Num_OR) & " AND [Forms!Cadastro_Parcelas.Forma_Pgto.Form!!Quitada.Value = -1]=" & Me.Quitada & ""

teste

Filtro = "[Num_Or] = " & Str(Forms!SeuForm!SeuSubForm.Form!Num_OR) & " AND SeuForm!SeuSubForm.Form!SuaChekBox= - 1"

Abre uma box pedindo o valor do parametro

Cadastro_Parcelas!Forma_Pgto.Form!Quitada

Ele nao esta entendendo o -1 no final do codigo por isso pede esse valor
se eu digito da certo,
como fazer automaticamente -1?

Por aqui é costume dizer;

Quem não tenta jamais saberá.

Teste colocando o -1 de fora

Filtro = "[Num_Or] = " & Str(Forms!SeuForm!SeuSubForm.Form!Num_OR) & " AND SeuForm!SeuSubForm.Form!SuaChekBox=" - 1

Caro João Paulo eu estou fazendo uma certa confusao aqui...
Veja só...

Os campos que o filtro usa.. são do form que esta aberto ou do vai abrir?

A pesquisa Num_Or e quitada é feita no form que esta aberto ou no que vai abrir?

o que vai abrir é o filtrado...

Porque na realidade e assim...

O num_Or filtra o cliente....
e o quitada.. filtras as parcelas do cliente (Criterio)

Entao o quitdada é tipo um sub Criterio do Num_or...

Nao sei se entendeu

Quitada e um criterio
Num_Or o filtro

Detalhe... percebi aqui agora... quando abre a box se digito o valor.. ele nao filtr..
abre o form mas nao filtra

Se puder ajudar..

Caro João Paulo Resolvi Assim...

Deixei o codi original que eu tinha

Filtro = "[Num_Or] = " & Str(Me.Num_OR)

e no form que abre filtrado pela Num_Or, na consulta que origina o Form, coloquei o criterio -1


Assim o codigo abre o form filtrado, e a consulta do form filtra o criterio -1

Obrigado pela Ajuda

Por vezes é necessário parar e pensar um pouco, e o simples aparece ao fundo do tunel.

Resolvido