[/SRC]
Private Sub Кнопка32_Click()
Dim filt
filt = Me.Filter

'В полученной переменной нужно заменить источник полей и кавычки
'Сейчас получается, что полученный текст фильтра Me.Filter выглядит так: ((([Запрос1].Поле1)="ФильтрТекст"))
'А его нужно заменить на следующий: ((([Табл1].Поле1)='ФильтрТекст'))
'НЕ ЗНАЮ, КАК ЭТО СДЕЛАТЬ.


'Далее подставляю фильтр в запрос и все.
    CurrentDb.QueryDefs("Запрос1").SQL = "SELECT [Табл1].Поле1, [Табл2].Поле2 FROM Табл1, Табл2 " _
    & "WHERE " & filt & " _
    & "ORDER BY [21].TEst1, [22].Test2;"
    
End Sub
[SRC vba]

[/SRC]
Private Sub Кнопка32_Click()
Dim filt
Dim filt2

filt2=Replace(Me.Filter, Chr(34), Chr(39))
filt = Replace(filt2, "Запрос1", "Табл1")

'Далее подставляю фильтр в запрос и все.
    CurrentDb.QueryDefs("Запрос1").SQL = "SELECT [Табл1].Поле1, [Табл2].Поле2 FROM Табл1, Табл2 " _
    & "WHERE " & filt & " _
    & "ORDER BY [21].TEst1, [22].Test2;"
    
End Sub
[SRC vba]