VBA, MS Access MS Access в примерах

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

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


В коде:

Dim blnFormIsLoaded As Boolean, sFormName$
' ...
    If CurrentProject.AllForms(sFormName).IsLoaded Then
        If CurrentProject.AllForms(sFormName).CurrentView > 0 Then '0 = Design view
            blnFormIsLoaded = True
        End If
    End If
' ...
Назад ToTop
L.E. 20.03.2024
Рейтинг@Mail.ru