ник: Анатолий (Киев)
Если задача в том, чтоб остановить вызвавшую процедуру до закрытия (или скрытия) формы, это можно сделать циклом типа:
On Error Resume Next
f=True: frm=Forms("ВашаФорма")
Do
DoEvents
f = frm.Visible
If Err <> 0 Then Err.Clear: Exit Do
Loop Until f
|
При этом форма открывается как обычная.