VBA Check if table exists

[humpydumpy2000]

Hi, I do have a temporary table that is automatically deleted on application exit. However there are instances where I have to kill the app of course the temporary table will not be deleted. I can error trap when table exists to replace or delete temporary table however my problem is how to check if table exists at start up and delete it using vba function. Any suggestion would be highly appreciated. Thanks in advance

 

[PWise]

for starters

 if not isnull(dlookup("Name"  ,"MSysObjects","type in(1,6) and Name='Tablename'" )) then msgbox "Table Exist"

 

[sxschech]

You can use this function. Put in a standard module.

Function TableExists(strTableName As String) As Boolean
'[URL unfurl="true"]http://www.pcreview.co.uk/forums/there-way-test-if-table-exists-vba-t1145544.html[/URL]
On Error Resume Next
TableExists = IsObject(CurrentDb.TableDefs(strTableName))
End Function

Then to call it

If TableExists("YourTableName") = True Then

 

[Andrzejek]

For additional help you may want to look here and here

Have fun.

---- Andy

There is a great need for a sarcasm font.

 

[humpydumpy2000]

Muchas Gracias!