Simple way to delete table if it exists?

[davidb88]

Hi -

Is there a relatively simple way to delete a table if it exists? Basically, in my database I am importing temporary files which get appended to static continuous tables each month and I would like Access to identify if there is one of these temp tables delete it, otherwise do nothing and continue with the rest of the script. Is there a simple way to do this? Right now I just am using something like this: DoCmd.DeleteObject acTable, "tblLHFItemp"
But if that temp table does not exist for whatever reason I get an error. In the end if the table doesn't exist I just want Access to skip over the error.

Thank you!
David

 

[Joe4]

I have some code that does something like that. It deletes all "error" tables that get created when importing a file (used in clean-up).
You can easily modify it to delete any table that contains any specific value in its table name (this one looks for "ImportErrors").

    Dim tblDef As TableDef


'   Delete old import errors tables
    For Each tblDef In CurrentDb.TableDefs
        If InStr(1, tblDef.Name, "ImportErrors") > 0 Then
            DoCmd.SelectObject acTable, tblDef.Name, True
            DoCmd.DeleteObject acTable, tblDef.Name
        End If
    Next tblDef

 

[ArabiaAvonlea]

I realize this is an old question but when faced with this issue I wrote a little UDF which someone may find useful:

 

[davidb88]

Thank you, Joe! Your solution works well in my database! Thanks again

 

[Joe4]

Your welcome. Glad to help!