ник: kot_k_k
давно этим пользуюсь - вставляю имя формы и запрашиваю - True открыта
Function FormIsOpen_My(ParamArray Ar())
FormIsOpen_My = (SysCmd(acSysCmdGetObjectState, acForm, Ar(0)) And acObjStateOpen) <> False
End Function
|
есть еще коллекция форм и кажись открытых форм по ним мона пробежаться