Function TableExists (MyTableName)
Dim i Dim db As Database Set db = DBEngine(0)(0) TableExists = False For i = 0 To db.TableDefs.Count - 1 If db.TableDefs(i).Name = MyTableName Then TableExists = True Exit Function End If Next i End Function |