Abrir consulta com filtro via Form/VBA

Eu possuo um formulário que faz filtros para gerar relatórios, só que gostaria de usar o mesmo para abrir consultas também, mas não estou conseguindo achar a sintaxe correta, o código é:

Private Sub GerarRelatorio_Click()
Dim stDocName As String

Filtro1 = "nz([Disciplina]) like '" & Me.FiltroDisciplina & "*'"
Filtro2 = "[Project] like '" & Me.FiltroProject & "*'"


FiltroFinal = Filtro1 & E & Filtro2
stDocName = FiltroTipoRelatorio.Column(3)
'(Tenho uma tabela onde cadastro os nomes de meus relatórios e consultas)

DoCmd.OpenReport stDocName, acPreview, , FiltroFinal, acWindowNormalm
'(Este funciona perfeitamente, mas abre apenas relatórios)'

Estou tentando usar os mesmos filtros, mas no final, pedir para abrir uma consulta ao invés do relatório.

Tentei
DoCmd.OpenQuery stDocName, acViewNormal, , FiltroFinal, acWindowNormalm
mas não funcionou, gostaria de contar com a ajuda do Forum.
Obrigado.
Diego

Boa tarde, diego
A sintaxe do openquery é diferente e não aceita o filtro. Coloque Docmd.openquery e prima F1

Boa tarde alexandre,
infelizmente não posso fazer isso, pois no meu formulário de filtro eu também possuo uma lista de opções que tamém faz parte do filtro, e nela eu posso selecionar mais de um tipo/filtro em um mesmo campo.

Mas a minha dúvida era com relação a abrir a consulta mesmo.

Mas acho que posso substituir o abrir uma consulta por um formulário, dessa forma, eu posso usar os valores para visualização, cópia e etc., certo?

Obrigado pela ajuda.

Att.
Diego

Olá, Diego!

Aproveitei para me exercitar, usando o querydef para alterar a clausula WHERE da consulta e assim receber a filtragem que desejar.

tente adaptar a sua necessidade

Código:

Dim qry As DAO.QueryDef
Dim filtro As String
Dim k As Integer
Set qry = CurrentDb.QueryDefs("qryTeste")
filtro = "Operadora =""vivo"""
qry.SQL = Replace(qry.SQL, ";", "")
k = IIf(InStr(qry.SQL, "WHERE") = 0, Len(qry.SQL), InStr(qry.SQL, "WHERE") - 1)
qry.SQL = Mid(qry.SQL, 1, k) & "WHERE " & filtro & ";"
DoCmd.OpenQuery "qryTeste"

Sucesso!

Avelino, boa tarde.

Sua instrução é fantástica. Tentei adptar seu exemplo para abrir uma consulta com dois filtros, mas não consegui. Seria possível executar com dois filtros?

Att.

Mauro