CurrentProject.AllForms( "Calendar" ).IsLoaded

Function IsLoadedFrm(strFormName As String) As Boolean
   Const conObjStateClosed =  0 
   Const conDesignView =  0 
   If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
       If Forms(strFormName).CurrentView <> conDesignView Then
           IsLoadedFrm= True
       End If
   End If
End Function

Function IsLoadedFrm(strFormName As String) As Boolean
On Error Resume Next
    Dim strTmp As String
    strTmp = Forms(strFormName).Name
    IsLoadedFrm = Err.Number =  0 
End Function

Function IsLoadedFrm(strFormName As String) As Boolean
On Error Resume Next
    Dim strTmp As String
    strTmp = Forms(strFormName).Name
    IsLoadedFrm = Err.Number =  0 
End Function

Function IsLoadedFrm(strFormName As String) As Boolean
On Error GoTo Err_IsLoadedFrm
Dim fm As Form
Set fm = Forms(strFormName)
IsLoadedFrm = True
Err_IsLoadedFrm:
End Function

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы