MS Access | Объекты | Форма: проверка открыта ли форма

Sub CheckOpening(frmname As String)

If CurrentProject.AllForms(frmname).IsLoaded Then

   Forms(frmname).Caption = frmname & ": is loaded" 'сменить заголовок искомой формы

End If

End Sub

См. также: На выходе из одной формы обновить данные другой, при условии, что эта другая открыта.