首页 > 数据库技术 > 详细

Access判断对象是否打开

时间:2021-09-07 16:44:25      阅读:8      评论:0      收藏:0      [点我收藏+]

Function 对象是否打开(查询名 As String, Optional 对象类型 As Integer)
    对象是否打开 = (SysCmd(acSysCmdGetObjectState, 对象类型, 查询名) <> 0)     
End Function
‘SysCmd方法:acSysCmdGetObjectState返回对象状态 

Sub 查询是否打开()
    If 对象是否打开("查询1", acQuery) = True Then
    MsgBox "查询1处于打开状态"
    Else
    MsgBox "查询1处于关闭状态"
    End If
End Sub

Sub 表是否打开()
    If 对象是否打开("表1", acTable) = True Then
    MsgBox "表1处于打开状态"
    Else
    MsgBox "表1处于关闭状态"
    End If
End Sub

Sub 窗体是否打开()
    If 对象是否打开("窗体1", acForm) = True Then
    MsgBox "窗体1处于打开状态"
    Else
    MsgBox "窗体1处于关闭状态"
    End If
End Sub

Sub 报表是否打开()
    If 对象是否打开("报表1", acReport) = True Then
    MsgBox "报表1处于打开状态"
    Else
    MsgBox "报表1处于关闭状态"
    End If
End Sub

来源:孙兴华 Access DLC查询篇

 

Access判断对象是否打开

原文:https://www.cnblogs.com/ondm/p/15236642.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!