One simple way is to recurse through the TableDefs collection of the database. For
example, the following function will return true if the specified table exists, False if
it doesn't.
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
|