ник: ShadowOfSun
Public Function IsLoaded(strFormName As String, Optional ReturnFormObject As Form) As Boolean
Dim frm As Form
Const DesignMode = 0, FormViewMode = 1
For Each frm In Forms
If frm.Name Like strFormName Then
If frm.CurrentView = FormViewMode Then
IsLoaded = True
Set ReturnFormObject = frm
Exit Function
End If
End If
Next frm
End Function
