Проверка - Открыта ли форма?
Public Function IsFormLoaded(sFormName$, Optional blnAnyView As Boolean) As Boolean
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
blnFormIsLoaded = True
End If
End If
|