С помощью этого кода у меня выгружаются отчеты в разные папки и они не всегда успевают сделаться,т.е. иногда получаются пустыми,а doevents не помогает
автор Set rs = CurrentDb.OpenRecordset("Select region_id,region_name from temp_report where ok=-1")
rs.MoveFirst
strfoldertemp = strFolder
h_old = H
rg_id = [Forms]![budget_editor_new]![RegionID]
While rs.EOF <> True

strFolder = strFolder & rs(0).Value & "\"
If fso.FolderExists(strFolder) = False Then
i = 4
While Len(Left(strFolder, i)) <= Len(strFolder) And i > 0
If fso.FolderExists(Left(strFolder, InStr(i, strFolder, "\"))) = False Then
fso.CreateFolder (Left(strFolder, InStr(i, strFolder, "\")))
End If

i = i + 1
i = InStr(i, strFolder, "\")

Wend
End If

stDocName = "Budget_ALL_LINES_new"


H = rs(0).Value
Head
[Forms]![budget_editor_new].Requery
HName = Nz(rs(1).Value, "")
Head_Name
[Forms]![budget_editor_new].RegionID.Value = Head
[Forms]![budget_editor_new].Budget_Filtered1_subform.Requery
[Forms]![budget_editor_new].Total_Budget1_subform.Requery
[Forms]![budget_editor_new].Total = [Forms]![budget_editor_new].Total_Budget1_subform.Form.Total
[Forms]![budget_editor_new].Total_tekushee = [Forms]![budget_editor_new].Total_Budget1_subform.Form.Total_tekushee
[Forms]![budget_editor_new].Total_ostatok = [Forms]![budget_editor_new].Total_Budget1_subform.Form.Total_ostatok
[Forms]![budget_editor_new].Recalc
[Forms]![budget_editor_new].Requery
DoEvents

DoCmd.OutputTo acSendReport, stDocName, acFormatHTML, strFolder & Format(Date, "dd.mm.yy") & "BAL.html"
rs.MoveNext
strFolder = strfoldertemp

Wend

автор Set rs = CurrentDb.OpenRecordset("Select region_id,region_name from temp_report where ok=-1")
rs.MoveFirst
strfoldertemp = strFolder
h_old = H
rg_id = [Forms]![budget_editor_new]![RegionID]
While Not rs.EOF
fold (rs(0).Value)
H = rs(0).Value
Head
HName = Nz(rs(1).Value, "")
Head_Name
[Forms]![budget_editor_new].Total = [Forms]![budget_editor_new].Total_Budget1_subform.Form.Total
[Forms]![budget_editor_new].Total_tekushee = [Forms]![budget_editor_new].Total_Budget1_subform.Form.Total_tekushee
[Forms]![budget_editor_new].Total_ostatok = [Forms]![budget_editor_new].Total_Budget1_subform.Form.Total_ostatok
[Forms]![budget_editor_new].Requery
[Forms]![budget_editor_new].Budget_Filtered1_subform.Requery
[Forms]![budget_editor_new].Total_Budget1_subform.Requery
DoEvents
DoCmd.OutputTo acSendReport, stDocName, acFormatHTML, strFolder & Format(Date, "dd.mm.yy") & "BAL.html"
rs.MoveNext
strFolder = strfoldertemp

Wend
вот,но как всё же сделать,чтобы успевалось всё сделать?

простите,что не правильно написал,они создаются всегда,только иногда пустые внутри,только шаблон и без данных. Данные не успевают туда записаться,которые берутся из другой формы(я в форме как раз присваимаю значения полям другой формы)

даже по-другому.При прохождении цикла первый раз всё нормально,а при последующих уже файлы получаются без данных-только шаблон.Может надо как-то процесс OutputTo выгружать из памяти или что-то ещё делать?

1.head и headname() это глобальные функции,они также служат и для заголовка в отчёте
2.да,это имя отчёта,просто вместо названия написал так
3.отчёт берёт свои значения часть из формы,а часть из запросов,причём в некотрых запросах есть параметры,типа :
where region=[forms]![frfrfr]!regionID

я вроде ответил,хотя мне кажется что проблема не в этом