how to check existence of table

[Sunny]

How can I find in VBA code, if table is there in database ?

 

[Ken Snell]

This function will return a true value if the table exists in the database;
false if not.


Public Function TableIsHere(strTableName As String) As Boolean
Dim tdf As TableDef
TableIsHere = False
For Each tdf in CurrentDb.TableDefs
If tdf.Name = strTableName Then TableIsHere = True
Next tdf
End Function

 

[gandalf]

if an access table

dim tdf as tabledef
set tdf=nothing
on error resume next
set tdf=dbnow.tabledefs("mywantedtable")
on error goto 0
if tdf is nothing then
'table not found
else
set tdf=nothing 'clear memory
end if

 

[Sunny]

Thanks Ken and gandalf