[Resolvido] Dúvida Filtro antes de exportar informações para o excel (Exemplo JPAULO)

Boa tarde, estou tentando adaptar um exemplo do amigo JPAulo que exporta determinadas informações do Banco para uma planilha Excel.
Neste eu gostaria de além de exportar, eu gostaria de aplicar alguns filtros anteriormente, quanto ao filtro, acho que está funcionando perfeitamente. O problema é quando eu tento usar o SELECT * em uma String, não sei se é possível, mas estou tentando assim:

'1º eu declaro
Dim stDocName As String

'2º Aqui também não possui problema, me retorna o nome da “tabela ou consulta” selecionada no formulário Filtro
stDocName = FiltroTipoRelatorio.Column(2)
'3º O erro ocorre quando tento atribuir a String (stDocName) ao SELECT *
strSQL = "SELECT * from stDocName;"

Abaixo segue o código completo.


'By JPaulo ® Maximo Access

Dim strCaminho As String
Dim Planilha As String
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Dim stDocName As String
Dim Filtro As String
Dim Filtro1 As String
Dim Filtro2 As String
Dim Filtro3 As String
Dim Filtro4 As String
Dim Filtro5 As String
Dim FiltroFinal As String
Dim strFilter As String
Dim E As String

Planilha = Me.TxtPlanilha
Set xls = CreateObject("Excel.Application")
strCaminho = Me.TxtOrigem
strLivro = strCaminho
E = " And "
stDocName = FiltroTipoRelatorio.Column(2)

Filtro1 = "[Descrição_Obra] like '" & Me.SelectProject & "*'"
Filtro2 = "[Disciplina] like '" & Me.SelectDiscipline & "*'"
Filtro3 = "[Matricula] like '" & Me.SelectWorker & "*'"
Filtro4 = "[Responsabilidade] like '" & Me.SelectRespons & "*'"
Filtro5 = "[Semana]>=" & Nz(Semana_I, 0) & "And [Semana] <= " & Nz(Semana_F, 200000)

If Nz(Filtro) = "" Then
FiltroFinal = Filtro1 & E & Filtro2 & E & Filtro3 & E & Filtro4 & E & Filtro5
Else
FiltroFinal = "(" & Filtro & ")" & E & Filtro1 & E & Filtro2 & E & Filtro3 & E & Filtro4 & E & Filtro5
End If

strFilter = "SELECT * 5000_qry_Relatorio_Time_Sheet_Custos.Filter = FiltroFinal;"
strFilter.FilterOn = True

xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets(Planilha).Activate
strSQL = "SELECT * from stDocName;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A1").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing

Faça o teste deste jeito;

strSQL = "SELECT * from & (" & stDocName & ")"

Boa tarde amigo,

strDocName retornou o nome da consulta corretamente, mas ocorreu erro.

Erro em tempo de execução '3131':
Erro de sintaxe na cláusura FROM.

JPaulo,

eu removi o & após o From e funcionou, agora tenho que verificar o filtro, pois não está filtrando.

Ficou assim:
strSQL = "SELECT * FROM (" & stDocName & ")"

JPaulo,
eu consigo estabecer o filtro usando o SELECT?

strFilter = "SELECT * from 5000_qry_Relatorio_Time_Sheet_Custos.Filter = FiltroFinal;"
strFilter.FilterOn = True

Pois neste acima Ocorre erro de compilação por causa do "strFilter" (Qualificador inválido).

Quero filtrar uma consulta que não está nem aberta, mas que será exportada, e somente os dados filtrados em um Formulário frm_Filtro.

É possível?

Não estou a entender;

Isto é o quê ? 5000_qry_Relatorio_Time_Sheet_Custos

Desculpa,
"5000_qry_Relatorio_Time_Sheet_Custos" é uma Consulta.

Nunca vi em Ms Access, alguém faz isso para uma consulta, estou de boca aberta; rsrsrsrsrs

strFilter = "SELECT * from 5000_qry_Relatorio_Time_Sheet_Custos.Filter = FiltroFinal;"
strFilter.FilterOn = True

Na realidade o que pretende filtrar nessa consulta ?

Note que o seu filtro já inicia num campo Filtro1 = "[Descrição_Obra] like '" & Me.SelectProject & "*'"
e não existe um WHERE.

No limite o que poderá fazer é:

x = "SELECT * from [5000_qry_Relatorio_Time_Sheet_Custos] WHERE (" & FiltroFinal & ")" , para poder dar continuidade à instrução.

rsrs
É meio complicado mesmo, e estou quase me convencendo que, o que quero não dá certo.

Quanto ao filtro, não retornou erro, mas também não filtrou o que queria, mas é por causa da minha lógica que deve estar errada.

Eu tenho duas consultas, qry_1 e qry_2, o filtro que você me ajudou acima é para filtrar a qry_1, mas a consulta a ser exportada "stDocName" será a qry_2 que é dependente (relacionada) da qry_1.
"qry_1" (consulta a ser filtrada pelo código) possui os dados que a "qry_2" (consulta a ser exportada) precisa.

Logo, acho que essa minha lógica não procede.

Alguma opinião?

As vezes, para eu obter alguns dados, preciso fazer 1, 2, 3 consultas, uma dependente da outra, para que na consulta final eu consiga obter o resultado simplificado/resumido.

E o que estou precisando, é aplicar o filtro em uma consulta (Geral) para que outras consultas (dependentes) que virão a partir dela, sejam geradas com base no filtro da consulta "Geral".

Impor Critérios na consulta (Filtro) via VBA, para que as demais consultas dependentes apenas vejam os dados filtrados.

Prezado JPaulo,

estarei pensando em uma outra lógica para o processo.

Muito obrigado pela ajuda, que resolveu a questão principal do tópico.

Resolvido!