Hallo,

ich bin mittlerweile so weit, dass ich zwar Datenbanken und darin Tabellen erstellen kann. Jetzt möchte ich aber, dass der Anwender einzelne Tabellen auch wieder löschen kann.

Hat jemande ne Ahung wie ich das mit DAO hinbekomme? Habe noch nix gefunden.

Schon mal das hier versucht ?

Sub DropX2()

Dim dbs As Database

' Pfad für "Nordwind" auf Ihrem Computer

' in dieser Zeile bearbeiten.

Set dbs = OpenDatabase("Nordwind.mdb")

' Die Tabelle Personal löschen.

dbs.Execute "DROP TABLE Personal;"

dbs.Close

End Sub

Stammt aus der Access-Hilfe, da gibts allerdings auch noch einen Verweis auf einen "Delete" Befehl, schau einfach in der Access-Hilfe unter "DROP" nach.

MfG Frank

Danke, das funktioniert.