Hallo zusammen,
wiedermal eine scheinbar simple Frage an die Experten unter Euch …
Ich möchte aus meiner DB alle Tabellen, die mit „KUM“ beginnen (z. B. KUM2001_01, KUM2001_02 etc.) per VBA in einem Rutsch ohne Nachfrage löschen.
Wie kann ich das hinkriegen?
Danke schonmal für Eure Bemühungen
gruss Andy
Hallo Andy,
das ist eher einfach:
Dim DB As Database, count as Integer
Set DB = CurrentDB
For Count = DB.TableDefs.Count-1 To 0 Step -1
If Left(DB.TableDefs(count).Connect, 3) = „KUM“ Then
DB.TableDefs.Delete DB.TableDefs(count).Name
End If
Next count
Set DB=Nothing
Mit freundlichen Grüßen,
Kurt Fortwängler
http://www.fortwaengler.de
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Kurt,
Danke für Dein Gehirnschmalz.
Trotzdem kriege ich das Ding weder als Ereignisproz BeimKlicken, noch als Aufruf einer Funktion zum Laufen.
Hakts da irgendwo?
gruss Andy
Hallo Andy,
das ist eher einfach:
Dim DB As Database, count as Integer
Set DB = CurrentDB
For Count = DB.TableDefs.Count-1 To 0 Step -1
If Left(DB.TableDefs(count).Connect, 3) = „KUM“ Then
DB.TableDefs.Delete DB.TableDefs(count).Name
End If
Next count
Set DB=NothingMit freundlichen Grüßen,
Kurt Fortwängler
http://www.fortwaengler.deHallo zusammen,
wiedermal eine scheinbar simple Frage an die Experten unter
Euch …Ich möchte aus meiner DB alle Tabellen, die mit „KUM“ beginnen
(z. B. KUM2001_01, KUM2001_02 etc.) per VBA in einem Rutsch
ohne Nachfrage löschen.
Hallo Andy,
da fallen mir zwei mögliche Ursachen ein:
Du hast nicht die notwendigen Rechte
Es fehlt ein Verweis auf ADO bzw. DAO (je nach Access-Version, die Du nicht angegeben hast)
Mit freundlichen Grüßen,
Kurt Fortwängler
http://www.fortwaengler.de
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]