一个简单的方法就是通过穷举数据库中的 TableDefs 集合。例如，通过下面的函数，将返回数据库中指定的表是否存在，如果存在，则返回真值 True，否则，返回假值 False。
| '******************** Code Start ************************
Function fExistTable(strTableName As String) As Integer
Dim db As Database
Dim i As Integer
Set db = DBEngine.Workspaces(0).Databases(0)
fExistTable = False
db.TableDefs.Refresh
For i = 0 To db.TableDefs.Count - 1
If strTableName = db.TableDefs(i).Name Then
' 表存在
fExistTable = True
Exit For
End If
Next i
Set db = Nothing
End Function
'******************** Code End ************************
|
注：在ACCESS 2000和ACCESS XP中需要引用 DAO
