查找access内指定对象是否存的通用函数

时　间:2012-05-21 09:14:54
作　者:叶海峰   ID：31  城市：广州
摘　要:查找Access内指定对象是否存的通用函数
正　文:

'---------------------------------------------------------------------------------------
' Procedure : FindAcObject,查找Access内指定对象是否存在
' DateTime  : 2012-05-15 09:17
' Author    : 叶海峰
' 返回      : 对象存在返回True,不存在返回False
' 参数定义:ObjectName为需要查找的对象名字, ObjectType为需要查找的对象类型常量
' 调用方法: FindAcObject("对象名字", 0),0代表acTable

Public Function FindAcObject(ObjectName As String, ObjectType As Integer) As Boolean

'    acDataAccessPage = 6
'    acDefault = -1
'    acDiagram = 8
'    acForm = 2
'    acFunction = 10
'    acMacro = 4
'    acModule = 5
'    acQuery = 1
'    acReport = 3
'    acServerView = 7
'    acStoredProcedure = 9
'    acTable = 0
    On Error Resume Next
    DoCmd.Rename ObjectName, ObjectType, ObjectName
    FindAcObject = (Err = 0)
End Function