Возникла такая ситуация:
В приведенном ниже коде (функции) при попытке "сделать видимыми обратно" скрываемые формы, из всех модальных (открытых до вызова функции), "восстанавливается" только одна - первая. На остальные цикл не срабатывает :(. Причем, если затем вручную вызвать повторное открытие (или .Visible), то все нормально...
Что изменить бы?
-----------------
Public Function OpenReportsFromModal(ReportName As String, Optional View As Integer, Optional _
FilterName As String, Optional WhereCondition As String, Optional CloseViewMenu As String = "")
Dim loFormArray() As String
Dim loform As Form
Dim intCount As Integer
Dim intX As Integer
For Each loform In Forms
If loform.Visible Then
ReDim Preserve loFormArray(intCount)
loFormArray(intCount) = loform.Name
loform.Visible = False
intCount = intCount + 1
End If
Next

On Error Resume Next
If CloseViewMenu <> "" Then Application.CommandBars(CloseViewMenu).Visible = False

DoCmd.OpenReport ReportName, View, FilterName, WhereCondition: DoCmd.Maximize
Do While IsVisible(acReport, ReportName): DoEvents: Loop
DoCmd.Restore
'On Error GoTo 0

If CloseViewMenu <> "" Then Application.CommandBars(CloseViewMenu).Visible = True
For intX = 0 To intCount - 1 'For intX = intCount - 1 To 0 Step -1
Forms(loFormArray(intX)).Visible = True
Next
End Function
-----------------

Подскажите, пожалуйста!
Борис

Так а как быть-то в моем случае? Когда несколько мод.форм открыто и из одной из них вызывается данная процедурка для открытия отчета... Может есть какое-то альтернативное решение? Не подскажете - может кто сталкивался с подобными задачами?

Буду очень благодарен.

В текущем сеансе пользователя открываются несколько мод.форм (одна из другой - с тем, чтобы "ожидать реакции пользователя"), а из одной из них (нескольких) необходимо вызвать отчет(ы) - для отображения некоторой справочной информации... Т.к. отчеты сами по себе (А'97) модальными быть не могут, то и возникла необходимость в данной процедурке. Иначе просто открываемые отчеты появятся под всеми мод.формами... Ну и там менюшки убираю, панельки, - чтобы пользователь сначала закрыл открытый отчет, потом все диалоги...

Вот такая, собственно, проблемка...