Множественный экспорт в Excel

[cossackmsu]

есть запрос1 данные и есть запрос2 список людей связанный с ним

в форме1 создал список на основе запрос2


FOR i = 0 TO Me.Список1.ListCount - 1

FilNam = CurrentProject.Path & "\" & Me.Список1.ItemData(i) & "_" & Date & "_" & ".xls"
DoCmd.OutputTo acQuery, "запрос1", "MicrosoftExcelBiff8(*.xls)", FilNam, False, "", 0

Next i


и в этом случае выводится все из запрос1,
а нужно, чтобы для каждого записи в Список1, отфильтровывались собственные значения в запрос1 и импрортировались в Excel

[Myhaylo]

Если Вы хотите сразу создавать файлы через DoCmd.OutputTo, то Вам сначала нужно изменять текст запроса "запрос1", а затем - вызывать DoCmd.OutputTo.
Пусть в текстовой переменной s содержится текст SQL-запроса без предложения WHERE. Тогда:

Dim zapros As QueryDef
Dim tabl As Recordset
Dim s As String
  s="SELECT ... FROM ..."
  Set zapros = CurrentDb.QueryDefs("запрос1")
  FOR i = 0 TO Список1.ListCount - 1
    zapros.SQL=s+" WHERE Таблица.Поле=" & Список1.ItemData(i)
    FilNam = ...
    DoCmd.OutputTo acQuery, "запрос1", "MicrosoftExcelBiff8(*.xls)", FilNam, False, "", 0
  Next i

В случае текстовых значений в Список1.ItemData(i) нужно добавлять кавычки:

zapros.SQL=s+" WHERE Таблица.Поле=""" & Список1.ItemData(i) & """"

Без программного изменения содержимого запроса можно обойтись посредством метода CopyFromRecordset.

[cossackmsu]

ошибка: циклическая ссылка связанная с 'Запрос1'