Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Find out if a Table Exists in Access 97
- Thread starter BruceMJC
- Start date
Hi BruceMJC,
Paste this into a module:
Public Function booTableExists(strTableName As String) As Boolean
Dim dbs As Database, tdf As TableDef
booTableExists = False
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If tdf.Name = strTableName Then
booTableExists = True
End If
Next
Set dbs = Nothing
End Function
To use the above:
MsgBox booTableExists("Table1"
Obviously, edit the above to your own requirements. Returns True or False.
Bill
Paste this into a module:
Public Function booTableExists(strTableName As String) As Boolean
Dim dbs As Database, tdf As TableDef
booTableExists = False
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If tdf.Name = strTableName Then
booTableExists = True
End If
Next
Set dbs = Nothing
End Function
To use the above:
MsgBox booTableExists("Table1"
Obviously, edit the above to your own requirements. Returns True or False.
Bill
- Status
Similar threads
- Locked
- Question