Dim Index As Integer
For Index = Forms.count - 1 To 0 Step -1
Unload Forms(Index)
Next Index
перебор всех открытых форм.
Ну, не хотят формы закрываться с помощью перебора всех открытых форм:
For Each frm In Forms
DoCms.Close acForm, frm.Name
Next frm
почему-то не закрываются все формы: и закономерности никакой не могу выявить - то одни не хотят закрываться, то другие на экране остаются болтаться... Может тут какой-нибудь секрет есть?! Просто мне нужно, чтобы по выбору кнопки в одной из форм - все открытые формы позакрывались. Что делать?...
For Each frm In Forms
DoCms.Close acForm, frm.Name
Next frm
почему-то не закрываются все формы: и закономерности никакой не могу выявить - то одни не хотят закрываться, то другие на экране остаются болтаться... Может тут какой-нибудь секрет есть?! Просто мне нужно, чтобы по выбору кнопки в одной из форм - все открытые формы позакрывались. Что делать?...
почему-то не выходит таким способом перебрать все открытые формы... Мне любезно сообщается, что нетути возможности ....
Ну, а если пробовать закрывать формы с помощью DoCmd.Close у Ассеss сил хватает не больше , чем на 3 формы(можно и меньше, вот, только больше не выходит) :(
Ну, а если пробовать закрывать формы с помощью DoCmd.Close у Ассеss сил хватает не больше , чем на 3 формы(можно и меньше, вот, только больше не выходит) :(
попробуй так
Код:
For Each ff In CurrentProject.AllForms
If ff.IsLoaded Then
''''''''''''''''''''
End If
Next
If ff.IsLoaded Then
''''''''''''''''''''
End If
Next
Цитата:
Originally posted by likhobory
попробуй так
попробуй так
Код:
For Each ff In CurrentProject.AllForms
If ff.IsLoaded Then
''''''''''''''''''''
End If
Next
If ff.IsLoaded Then
''''''''''''''''''''
End If
Next
помогло!
Большое спасибочки!
:)
(CurrentProject.AllForms - это действительно, то что было нужно)