判断一个窗体是否打开，我们可以用SysCmd的cSysCmdGetObjectState来进行判断，同样也可以用来对表、查询、报表进行判断  

函数：

Function IsOpen(ObjName As String, ObjType As AcObjectType) As Boolean

 '===============================================================

'-技巧描述:  判断ACCESS对象是否打开(表、查询、窗体、报表)

'-用    法:  If IsOpen("查询2", acQuery) Then

'-               MsgBox "查询2已打经打开"

'-              Else

'-                DoCmd.OpenQuery "查询2"

'-             End If

'-作    者:   andymark  ewang11@163.com

'-创建日期:   2007-2-10

'-更新日期:

'-技巧来源:   Access中国/Office中国 bbs.office-cn.net

'==================================================================

  If SysCmd(acSysCmdGetObjectState, ObjType, ObjName) = 0 Then

     IsOpen = False

   Else

     IsOpen = True

  End If

End Function