Access平台开发人员帮助 > 通用函数库 > 按功能 > Access对象

函数说明

该函数可以判断一个Access对象是否存在。Access对象包括：表、查询、窗体、报表、模块、宏等。

函数原型

Public Function gf_AccessObjectIsExist(strObjectName As String, intObjectType As AcObjectType) As Boolean

语法

gf_AccessObjectIsExist(strObjectName, intObjectType)

参考：gf_AccessObjectIsExist("tblTest", acTable) ‘判断tblTest表是否存在

参数

参数名	必需/可选	数据类型	参数说明
strObjectName	必需	String	要判断的Access对象名
intObjectType	必需	AcObjectType	枚举常量，Access对象类型

返回值

返回一个布尔值(Boolean)。如果对应的Access对象存在，则返回True。不存在，则返回False。

示例

Sub subTest()

Dim blnReturn As Boolean '定义布尔值变量，保存返回的结果

blnReturn = gf_AccessObjectIsExist("tblTest", acTable) '判断表 tblTest 是否存在

'显示结果

If blnReturn = False Then

Msgbox "表 tblTest 不存在"

Else

Msgbox "表 tblTest 存在"

End If

End Sub

判断Access对象是否存在（gf_AccessObjectIsExist函数）