[Resolvido]Código para filtro em formulario

Boa Tarde!

Bd em access 2007.

O sistema possui formulários filtros para listagem de diversos relatórios. Funcionam perfeitamente conforme instruções abaixo:


Option Compare Database
Option Explicit

Public stringSqlGlobal As String

Function dataSqlRel(argDataHora As Date) As String

'Transforma a data no formato SQL -> #mm/dd/yy#
dataSqlRel = "#" & month(argDataHora) & "/" & Day(argDataHora) & "/" & year(argDataHora) & "#"

End Function


Dim criterio As String

criterio = montaSql_9

If criterio <> "()" Then
DoCmd.OpenReport "Rel_Comissoes", acViewPreview, , criterio


End If


Baseando nisso fiz uma adaptação para utilizar um novo formulário filtro, mas para abrir o Frm_Baixar_Comissoes (formulário modo contínuo) para baixar as comissões pagas:

Function montaSql_10() As String

stringSqlGlobal = ""
DoCmd.OpenForm "Frm_Filtro_Baixar_Comissoes", acNormal, , , , acDialog
montaSql_10 = stringSqlGlobal

End Function


O evento ao abrir do Frm_Baixar_Comissoes ficou assim:

Private Sub Form_Open(Cancel As Integer)


Dim criterio As String

criterio = montaSql_10

If criterio <> "()" Then

DoCmd.OpenForm "Frm_Filtro_Baixar_Comissoes", acViewPreview, , criterio


End If

DoCmd.Close acForm, "Frm_Filtro_Baixar_Comissoes"


End Sub

Assim, o formulário para baixar as comissões é aberto, porém os filtros selecionados no formulário filtro, não são obedecidos, sendo listados todos os registros.

Alguma sugestão para uma possível solução?

Desde já, agradeço!

Olá amigos, problema resolvido! Segue a solução:

O evento ao abrir do Frm_Baixar_Comissoes ficou assim:


Private Sub Form_Open(Cancel As Integer)

Dim criterio As String
   
    criterio = montaSql_10
   
    If criterio <> "()" Then
       
        Forms!Frm_Baixar_Comissoes.Filter = criterio
        Forms!Frm_Baixar_Comissoes.FilterOn = True
            
               
               
      End If
   
 DoCmd.Close acForm, "Frm_Filtro_Baixar_Comissoes"
 
   
End Sub