Проверка - Открыта ли форма? (IsLoaded)

Public Function IsFormLoaded(sFormName$) As Boolean

' Определяет, загружена ли форма

' Возвращает:

' Истина - если форма загружена и не находится в режиме редакции;

' Ложь - если форма не загружена или находится в режиме редакции.

'--------------------------------------------------------------------------

' Аргументы:

' sFormName = имя формы

'--------------------------------------------------------------------------

On Error GoTo IsFormLoaded_Err

If CurrentProject.AllForms(sFormName).IsLoaded Then

If CurrentProject.AllForms(sFormName).CurrentView > 0 Then '0 = Design view

IsFormLoaded = True

End If

End If

IsFormLoaded_Bye:

Exit Function

IsFormLoaded_Err:

'MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: IsFormLoaded", vbCritical, "Error"

Resume IsFormLoaded_Bye

End Function

Ещё вариант
(Древний - от прибл 1997г.)

Public Function IsLoaded(sFormName As String) As Boolean

' Аргументы: sFormName = имя формы

' Назначение: определяет, загружена ли форма

' Возвращает: Истина, если форма загружена;

' Ложь, если форма не загружена.

'--------------------------------------------------------------------

Dim i

IsLoaded = False

For i = 0 To Forms.Count - 1

If Forms(i).FormName = sFormName Then

IsLoaded = True

Exit Function ' Выход из функции, если форма загружена.

End If

Next

End Function