Функция проверки загружена ли данная форма

Аргументы: Текстовое значение название формы
Назначение: Проверяет загружена ли данная форма
Возвращает: Да - нет

 Public Function IsLoaded(strFormName As String) As Boolean
Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
    If Forms(strFormName).CurrentView <> conDesignView Then
        IsLoaded = True
    End If
End If
End Function