使用DAO判断access的一个表/查询等对象是否存在

使用DAO判断ACCESS的一个表/查询等对象是否存在

Function fTableExists1(strTableName As String) As Boolean
Dim db As Database
Dim tdf As TableDef
Set db=DBEngine(0)(0)
fTableExists1=False
For Each tdf In db.TableDefs
If tdf.Name=strTableName Then fTableExists1=True
Next tdf
Set db=Nothing
End Function
－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Function fTableExists2(strTableName As String) As Boolean
fTableExists2 = Nz(DLookup("[Id]", "[MSysObjects]", "[Type]=1 AND [Name]='" & strTableName & "'"))
End Function
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Function fTableExists3(strTableName As String) As Boolean
On Error Resume Next
fTableExists3 = IsObject(CurrentDb.TableDefs(strTableName))
End Function