Deleting error tables

[bcurrey]

I'm using Access 2007. Most of the times when I import a file at my company, I get an error message because the item description is too long and it creates a table. I found the topic below on how to delete the error tables in a macro, however I can't get it to work. Here's my code:

Application.DisplayAlerts = False

Function DeleteImportErrTables()
Dim z As Integer
Dim db As DAO.Database

Set db = CurrentDb
For z = db.TableDefs.Count - 1 To 0 Step -1
If InStr(1, db.TableDefs(z).Name, "ImportError") > 0 Then
DoCmd.DeleteObject acTable, db.TableDefs(z).Name
End If
Next z
End Function

The error that I get says "Error Number 2950. Condition True, Arguments: DeleteImportErrTables()"

Any ideas on how to fix this? Thanks!


Prior Topic:

https://www.accessforums.net/program...les-14474.html

[boblarson]

First off, you need to remove the Application.DisplayAlerts = False from the location you have it in. It is

1. For Excel, not Access and
2. would need to be INSIDE a procedure and not outside of it.

Also, how are you calling this function? It would appear you are using a macro, so you should post how you are calling that function from that macro.

[bcurrey]

I'm a bit new at this, but I went to the "Data tools" tab on the ribbon. Clicked on Visual Basic, and then chose New - Module. I then copy and pasted the code above to the blank sheet.

Then went to Macro, and chose "RUN CODE" and told it the function name was DeleteImportErrTables ().

Does that help?

[boblarson]

I'm a bit new at this, but I went to the "Data tools" tab on the ribbon. Clicked on Visual Basic, and then chose New - Module. I then copy and pasted the code above to the blank sheet.

Then went to Macro, and chose "RUN CODE" and told it the function name was DeleteImportErrTables ().

Does that help?

Take out the Application.DisplayAlerts = False part.