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

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

 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

• Обратиться в "Интерфейс" за дополнительной информацией/по вопросу приобретения продуктов
• Подписаться на рассылку "Работа с MS Access"