PDA

Vollständige Version anzeigen : Löschen von mehreren Tabellen


Manne
07.08.2001, 09:14
Hallo,
ich muss vor einer Abfrage mehrere Tabellen aus meiner DB löschen. Sie haben die Form "Tab*****". Also z.B. Tab10, Tab142354 usw. Was nach "Tab" kommt ist nicht vorhersagbar. Wie kann ich dies unter Access machen (VBA?)
Danke

Kurt aus Kienitz
07.08.2001, 09:27
Hallo Manne,

Probier es mal so:

Sub DeleteTable()

Dim AktDB As Database ' aktuelle Datenbank
Dim AktTab As TableDef ' eine Tabelle der akt. Datenbank
Dim AktCnt As Integer

' Verbindung zur aktuellen Datenbank öffnen (in der dieses Modul steckt)
Set AktDB = DBEngine.Workspaces(0).Databases(0)
AktDB.TableDefs.Refresh

' Schleife über alle Tabellen der aktuellen Datenbank
For AktCnt = 0 To AktDB.TableDefs.Count - 1

' nächte Tabelle der akt. Datenbank auswählen
Set AktTab = AktDB.TableDefs(AktCnt)

' prüfen ob der Präfix stimmt
If Left$(AktTab.Name, 3) = "Tab" Then

' Tabelle löschen
CurrentDb.Execute "DROP Table " & AktTab.Name & ";"

End If

Next AktCnt

End Sub

Leg Dir aber vorher eine Sicherheitskopie deiner Datenbank an.

Manne
07.08.2001, 11:29
Es hat funktioniert :)
Vielen Dank.