Проверка - Открыта ли форма? (IsFormLoaded)
Public Function IsFormLoaded(sFormName$) As Boolean
On Error GoTo IsFormLoaded_Err
If CurrentProject.AllForms(sFormName).IsLoaded Then
If CurrentProject.AllForms(sFormName).CurrentView > 0 Then
IsFormLoaded = True
End If
End If
IsFormLoaded_Bye:
Exit Function
IsFormLoaded_Err:
Err.Clear
Resume IsFormLoaded_Bye
End Function
(Древний - от прибл 1997г.)
Public Function IsLoaded(sFormName As String) As Boolean
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
|