'---------------------------------------------------------------------------------------
' 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