[Resolvido]Passar uma variável contendo string SQL (Where) para um consulta

Fala pessoal blz?

Espero que possam me ajudar.
Eu tenho um banco de dados, que em todo o sistema eu utilizo uma variável publica (strFilter) que armazena a query de uma consulta SQL. De acordo com o formulário que o usuário esteja utilizando e o filtro que ele estiver aplicando na sua navegação, a query SQL vai modificando e concatenando, caso ele aplique mais de 1 filtro de uma vez.

Porem, preciso exportar um formulário contínuo para o Excell contendo formatação, desta forma optei por exportar a partir de uma Consulta do Access.

Eu consigo passar apenas uma variáveis GLOBAL através de Função para a consulta elaborando uma consulta com UM critério.

Mas preciso que a Consulta do ACCESS receba essa query já pronta, já que a query strFilter pode ter vários critérios

Como posso usar essa query SQL como critério na CONSULTA?

Boa tarde, Boas Festas e bem-vindo ao fórum
Forneça elementos para trabalhar e concretize a situação

No Módulo:

Option Compare Database
'Variavel para armazenar a String do Filtro
Global strFilter As String

Public Function GlobalString() As String
'função recebe valor da variável pública idUsuario
GlobalString = strFilter
End Function

No Formulário:

' If para verificar se o SubFiltro RESPONSÁVEL está preenchido
If IsNull(Filtroresp) Or Filtroresp = "" Then
' If para verificar se o campo está como TODOS e converte em EmPTy
If PuResp = "TODOS" Then
PuResp = ""
VoltarFiltro.SetFocus
Filtroresp.Visible = False
Else
PuResp = ""
Filtroresp.Visible = False
End If
Else
PuResp = Filtroresp
VoltarFiltro.SetFocus
Filtroresp.Visible = True
'Verifica se ja existe critério para a query
If strFilter <> "" Then
strFilter = strFilter & " and [CenTrabRespons] LIKE '*" & [PuResp] & "*'"
strFilter = strFilter & " and [Aprovado] LIKE '*" & [PuAprov] & "*'"
strFilter = strFilter & " and [PT] NOT LIKE '*" & [PuSemPT] & "*'"
Else
strFilter = "[CenTrabRespons] LIKE '*" & [PuResp] & "*'"
strFilter = strFilter & " and [Aprovado] LIKE '*" & [PuAprov] & "*'"
strFilter = strFilter & " and [PT] NOT LIKE '*" & [PuSemPT] & "*'"
End If
End If

'Se query estiver vazia, exibir todas as ordens
If strFilter = "" Then
strFilter = "[Ordem] LIKE '*" & [PuOrdem] & "*'"
strFilter = strFilter & " and [Aprovado] LIKE '*" & [PuAprov] & "*'"
strFilter = strFilter & " and [PT] NOT LIKE '*" & [PuSemPT] & "*'"
End If

'Filtro(SubFiltro) utilizado no campo em cima da Lista da Programação
Me.Filter = strFilter
'Ordena a Lista da Programação
Me.OrderBy = "CenTrabRespons ASC" & "," & "Ordem ASC" & "," & "Oper ASC" & "," & "SubOper DESC"
Me.OrderByOn = True
Me.FilterOn = True
Me.Requery

No Botão:

Private Sub Comando134_Click()
Call ExportaExcell
End Sub

Na Consulta

SELECT *
FROM PROGRAMAÇÃO
WHERE GlobalString();

Segue em anexo o banco de dados.

A Consulta que tem que buscar a query sql é a consulta: programação consulta

Obrigado pela atenção.
Boas Festas a todos e obrigado pelo aceite ao grupo.

O anexo não veio

Bom dia, feliz ano novo a todos.

Eu estava com dificuldade em passar uma variável contendo uma string SQL(strFilter) para uma consulta do access.

Porem, eu achei a seguinte solução. Utilizei essa função: CurrentDb.QueryDefs("numero da consulta").SQL

A Consulta chamada "PROGRAMAÇÃO Consulta", tem a seguinte query:
SELECT PROGRAMAÇÃO.Ordem, PROGRAMAÇÃO.Aprovado, PROGRAMAÇÃO.PT, *
FROM PROGRAMAÇÃO
WHERE (((PROGRAMAÇÃO.Ordem)>"0") AND ((PROGRAMAÇÃO.Aprovado)="Sim") AND ((PROGRAMAÇÃO.PT)<>"Sem PT"));

então, ela é modificada para: SELECT * FROM PROGRAMAÇÃO WHERE " & strFilter
utilizando o seguinte comando dentro do formulário mesmo:

'Altera a Query dentro da Consulta, diretamente do formulário
CurrentDb.QueryDefs(15).SQL = "SELECT * FROM PROGRAMAÇÃO WHERE " & strFilter

Desta forma, coloco esse tópico como resolvido.

Att

Resolvido!