Office: (Office 2010) Laufzeitfehler 3211 beim Löschen einer Tabelle

Hallo,
irgendwie ist dieser Laufzeitfehler ein Klassiker.
Ich suche meine Datenbank nach Importfehler-Tabellen durch und möchte sie löschen. Leider bekomme ich immer mal wieder den Laufzeitfehler 3211.
Hier mein Code:

Dim t As TableDef
Dim db As DAO.Database
Set db = CurrentDb
For Each t In db.TableDefs
If InStr (t.Name,"Importfehler")>0 Then
DoCmd.DeleteObject acTable, t.Name
End If
Next
End Sub

Was tun?

:)

 

Grundsätzlich: Wenn aus einer Auflistung Elemente gelöscht werden, sollte die Auflistung immer "rückwärts" durchlaufen werden.

S. dazu: db verknuepfen / vba


Zum Fehler 3211: Wie kommt die Tabelle vorher zustande? Zeige mal den Code, der die "Importfehler"-Tabelle generiert.

 

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Exceltabelle", Quelldatei, False, "Worksheet!"

 

anschließend gibt es eine Importfehlertabelle in Access...und die möchte ich gerne löschen, bevor es dann eine Masse von diesen Tabellen in Access gibt.

 

Ich hab's befürchtet.

Wenn TransferSpreadsheet dazu führt, dass die anschließend zu löschende Importfehlertabelle gelegentlich gesperrt bleibt, sehe ich 2 Möglichkeiten:
- das Löschen später vornehmen, z.B. immer beim Start der Datenbank mittels AutoExec-Makro
- den Import anders durchführen (z.B. Exceldatei verknüpfen -> dann die Daten aus der verknüpften Datei in Zieltabelle schreiben).

 

Die 1. Möglichkeit habe ich auch schon als Variante gewählt...nur werden mehrere Dateien importiert, bei denen ich je nach dem, ob eine Importfehlertabelle erzeugt wird, diese dann anzeigen will. So kann der Benutzer entscheiden, ob die Ursprungsdatei in Excel modifiziert wird oder die importierte Datei mit den Fehlern in der Datenbank bleibt.
Dann muss ich aber nach dem Import immer wissen, welche Importfehlertabelle die zugehörige war...wie bekomme ich das raus? Die sind ja dann immer durchnummeriert von nix, 1, 2 etc.

 

Okay - dann liegt da wohl das Problem. Wie lässt du die Tabellen anzeigen? Ist die Tabelle dann doch noch mittels Formular o.ä. geöffnet?

 

Ich habe den Fehler gefunden...habe die Tabelle als recordset bearbeitet und nicht wieder geschlossen...
danke für die Hilfe!