判断所有ACCESS对象是否打开的通用函数；怎么用代码判断窗体是否打开状态？

时　间:2023-05-20 13:40:40
作　者:andymark   ID：1350  城市：深圳
摘　要:判断ACCESS对象是否打开(表、查询、窗体、报表)
正　文:

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

Function IsOpen(ObjName As String, ObjType As AcObjectType) As Boolean
  If SysCmd(acSysCmdGetObjectState, ObjType, ObjName) = 0 Then
     IsOpen = False
   Else
     IsOpen = True
  End If
End Function 


'-用法:  

If IsOpen("查询2", acQuery) Then
   MsgBox "查询2已打经打开"
  Else
   DoCmd.OpenQuery "查询2"
End If