Check Table Exist.

[Rob]

Hi Phoebe,

Make a function:

Function TableExists(strTableName As String) As Integer
Dim db As Database
Dim i As Integer
Set db = DBEngine.Workspaces(0).Databases(0)
TableExist = False
db.TableDefs.Refresh
For i = 0 To db.TableDefs.Count - 1
If strTableName = db.TableDefs(i).Name Then
'Table Exists
TableExist = True
Exit For
End If
Next i
Set db = Nothing
End Function

And call this function to check if the table exists
if TableExists("mytable") then
.....

Regards,

Rob