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

Private Function IsFormLoaded(sFormName$, Optional blnAnyView As Boolean) As Boolean
' es 16.02.2024 LE 18.10.2024 v010
' Определяет загружена ли указанная в аргументе форма
'   blnAnyView  = False   = Кроме режима редакции
'   blnAnyView  = True    = В любом режиме
'   CurrentView = 0       = DesignView
' -------------------------------------------------------------------------------------------------/
On Error GoTo IsFormLoaded_Err
    If Forms(sFormName).CurrentView > blnAnyView Then IsFormLoaded = True
IsFormLoaded_Err:
    Err.Clear
End Function

В коде:

Const sFormName$ = "Название Вашей Формы"
    
    If CurrentProject.AllForms(sFormName).IsLoaded Then
        If CurrentProject.AllForms(sFormName).CurrentView > 0 Then '0 = Design view (acCurViewDesign)
            ' Загружена не в режиме редакции:
            ' ... действия ...
        End If
    End If