Hi!
Ich muss in einer Prozedur prüfen, ob eine bestimmte Tabelle vorhanden ist, um diese dann zu löschen.
Wie ist die genaue Syntax? Ich habe schon einiges probiert und konnte u.a. auch hier keinen Hinweis bekommen.
Mein Code bisher:
...
Set db = CurrentDb
Set dbs = Application.CurrentData
...
If IsMissing(dbs.AllTables("UPG-" & obj)) = False Then 'obj=Tabellenname (stringvariable)
DoCmd.DeleteObject acTable, "UPG-" & obj
End If
...
Was ist falsch / was fehlt?! ???
Danke vorab!
C.F.
Hallo,
quick & dirty:
lösch einfach und ignorier den Fehler, der auftritt, wenn die Tabelle nicht (mehr) existiert.
.
.
On Error Resume Next
DoCmd.DeleteObject acTable, "UPG-" & obj
On Error Goto myErr
.
.
Wenn denn überhaupt solche Tabellenlöschaktionen nötig sind...
das ist natürlich die einfachste Lösung... - und reicht in diesem Fall auch aus. :D
Aber trotzdem: was ist falsch an der Syntax?
Wobei ich inzwischen feststellen musste, dass die Prozedur speziell bei der ersten Tabelle sowohl beim löschen als auch beim neuen Import (deshalb auch die Löschaktion) Probleme macht.
Das einzige, was diese Tabelle (abgesehen vom Inhalt) von den anderen unterscheidet, ist der Name "K_Haltestellen" (die anderen haben kein Unterstrich).
Seltsam - oder habt ihr eine Idee?
Danke!
C.F.
halt! - alles klar!
der Fehler war nur ein flascher Tabellennameneintrag in der "to-do"- Tabelle!
Die Syntax ist völlig ok!
C.F.