ник: OlegZa
snipe, спасибо за отклик.
Попобовал ваш код - по-честному не очень понравилось, что запускается цикл For... Next (усложняет - замедляет).
Вышел из положения таким вот образом (код нарыл здесь же):
If Application.CurrentObjectType = acForm And Application.CurrentObjectName = "Имя проверяемой формы " Then
|
Не совсем устраивает то, что по-факту проверяется не открыта ли форма, а только активна ли она (если форма не открыта, а просто выделена в окне БД - то
Application.CurrentObjectName = "Имя пров. формы"
|
- всё-равно будет True (в Вашем, кстати, примере - та же история)), но, в общем и целом работает. В режиме пользователя же окно БД не открыто
В любом случае - за отклик - спасибо.