Access判断对象是否打开
作者:互联网
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查询篇
标签:End,Sub,对象,是否,Access,打开,MsgBox 来源: https://www.cnblogs.com/ondm/p/15236642.html