Пробежать по подчиненным формам

read
Дата: 08.06.2004 15:06:53
Вобщем суть такая:
Написать паблик процедуру, которая передает в другую функцию подчиненные формы (от Screen.ActiveForm) в цикле

Думал через
dim перем as ???
For Each перем In Screen.ActiveForm.???
If TypeOf перем Is Form Then
...
End If
Next

знать бы что поставить в 'перем' и Screen.ActiveForm.???
paparome
Дата: 08.06.2004 15:12:40
dim перем as control ' или Object или Variant - что больше нравиться

For Each перем In Screen.ActiveForm.Controls If TypeName(перем) = "SubForm" Then ... End If Next

?
paparome
Дата: 08.06.2004 15:14:56
или

...
If TypeOf перем Is SubForm Then
...
АлексейК
Дата: 08.06.2004 15:42:56
код быстрее будет если не перебирать все контролы а
просто назвать субформы одинаково + номер
subform1
subform2 итд

и делать в цикле

for i =1 to 10
me.controls("subform" & i).form ....
next i
read
Дата: 08.06.2004 15:48:15
С этим спасибо, все ок.

И еще маленький вопросик, если позволите...
можно ли SubForm каким либо образом конвертировать в Form

Если
dim sfrm as subform
ВысотаОбластиДанных = sfrm.Section(acDetail).Height
Вызавает ошибку компиляции, а с Form все проходит
АлексейК
Дата: 08.06.2004 15:53:10
form это форма а субформ это контрол в который помещена форма

dim sfrm as subform
ВысотаОбластиДанных = sfrm.form.Section(acDetail).Height
read
Дата: 08.06.2004 16:03:36
Сенькс.
А оказалось все безумно просто.