ник: Дядя Федор
Я похожее реализовал. (Для скрытия некоторых данных при определенных обстоятельствах)
Есть форма в ней
список всех форм
список - в него переносятся контролы, которые надо закрыть (сохраняется в таблицу).
зависимый от первого список контролов
флажок UPD OFF/ON
см.вложение
В каждой форме код
REM UPD ****
Dim itops%, r As Variant
r = TopSecret(Me.Name)
For itops = 0 To UBound(r) - 1
On Error Resume Next
Me.Controls(r(itops)).Visible = False
Next
REM *******
|
Функция TopSecret - возвращает массив спрятанных контролов для данной формы