' Проверка, загружена ли форма
Function IsLoaded(ByVal strFrmName As String) As Boolean
Const conFormDesign = 0
Dim intX As Integer

IsLoaded = False
For intX = 0 To Forms.Count - 1
If Forms(intX).FormName = strFrmName Then
If Forms(intX).CurrentView <> conFormDesign Then
IsLoaded = True
Exit Function ' Выход из функции после обнаружения формы.
End If
End If
Next
End Function