判断表是否存在的函数

********************代码开始***********************
'此代码最初由Dev Ashish编写。
'除非作为应用程序的一部分，否则不得修改或分发，
'
'您可以在任何应用程序中自由使用它，
'前提是版权声明保持不变。
'
'代码由
' Dev a shish
'
'
Function fexist table(strTableName As String)As Integer
Dim db As Database
Dim I As Integer
Set db = DBEngine提供。工作区(0)。数据库(0)
fexist table = False
db。TableDefs . Refresh
For I = 0 To db。如果strTableName = db，则TableDefs . Count-1
。TableDefs(i)。Name Then
'表存在
fexist Table = True
Exit For
End If
Next I
Set db = Nothing
End Function
' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *