Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-报表

判断所有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




Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助