Перебор всех открытых форм с помощью Forms

@natalia_leo · Регистрация: 18.11.2010

Author24 — интернет-сервис помощи студентам

Ну, не хотят формы закрываться с помощью перебора всех открытых форм:

For Each frm In Forms
DoCms.Close acForm, frm.Name
Next frm

почему-то не закрываются все формы: и закономерности никакой не могу выявить - то одни не хотят закрываться, то другие на экране остаются болтаться... Может тут какой-нибудь секрет есть?! Просто мне нужно, чтобы по выбору кнопки в одной из форм - все открытые формы позакрывались. Что делать?...

@Ирча · 30.10.2011, 09:14

А как отбирается frm?

@And_110 · 30.10.2011, 13:03

Не смотря на советы HELP, цикл For Eeach...Next работает плохо, если объекты набора по ходу выполнения уничтожаются - в разных местах набора при этом появляются дыры. В тестовом примере из трех открытых форм при первом проходе одна стабильно не закрывается.

Выход такой: запомнить открытые формы в отдельной коллекции

Visual Basic

Private Sub CloseAllForms()
Dim cFORM As New Collection
Dim frm As Form
Dim itm As Variant
 
For Each frm In Forms
  cFORM.Add (frm.Name)
Next frm
 
For Each itm In cFORM
DoCmd.Close acForm, itm
Next itm
 
End Sub

@natalia_leo 0 / 0 / 0 Регистрация: 18.11.2010 Сообщений: 23
		1
	Перебор всех открытых форм с помощью Forms 29.10.2011, 20:20. Показов 1639. Ответов 2 Метки нет (Все метки) Ну, не хотят формы закрываться с помощью перебора всех открытых форм: For Each frm In Forms DoCms.Close acForm, frm.Name Next frm почему-то не закрываются все формы: и закономерности никакой не могу выявить - то одни не хотят закрываться, то другие на экране остаются болтаться... Может тут какой-нибудь секрет есть?! Просто мне нужно, чтобы по выбору кнопки в одной из форм - все открытые формы позакрывались. Что делать?... 0

@Ирча 0 / 0 / 0 Регистрация: 08.02.2010 Сообщений: 345
	30.10.2011, 09:14	2
	А как отбирается frm? 0

	30.10.2011, 13:03