求助：如何判断一个窗口已经打开！

suve

if CurrentProject.AllForms("您的表單名").IsLoaded=false   未打開或打开但  是  子窗体

suve

以下是引用bigsea76在2004-11-9 17:18:00的发言：


给你个函数：

Public Function IsOpen(ByVal strFormName As String) As Boolean
Const ConDesignView = 0
Const conObjStateClosed = 0

IsOpen = False
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
    If Forms(strFormName).CurrentView <> ConDesignView Then
    IsOpen = True
    End If
End If
End Function

此函数是否来自罗斯文？