不知道那出问题了,大开一个窗体关闭另一个不行了,

Function IsLoaded(ByVal strFormName As String) As Integer 
    Const conObjStateClosed = 0
    Const conDesignView = 0
   
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If  
End Function

另外你可以用上述IsLoaded自定义函数判断一下窗体是否被加载（打开），可以在单击事件里面先判断一下，如果要打开的窗体已经打开，则只须关闭其他要关闭的窗体；如果要关闭的窗体本身就没有打开，则无须再对其进行关闭；

调用方法：1、自定义函数放在模块里；

          2、单击事件里面用：   If Not IsLoaded("要判断没有加载的窗体") Then........或用： 

                                If  IsLoaded("要判断加载的窗体") Then.........................