判断一个窗体是否打开，我们可以用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
