判断窗体是否打开的两种方法

Function IsLoaded(strName As String, Optional intObjectType As Integer =
   acForm)
   IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)
   End Function
   
   函数二
   Function IsFormLoaded(strFrmName As String) As Boolean
   
   Const conFormDesign = 0
   Dim intX As Integer
   
   IsFormLoaded= False
   For intX = 0 To Forms.Count - 1
   If Forms(intX).FormName = strFrmName Then
   If Forms(intX).CurrentView <> conFormDesign Then
   IsFormLoaded= True
   Exit Function ' Quit function once form has been found.
   End If