Löschen von Tabellen / Abfragen

Sprache / Programm: Access ab Version 95

Beschreibung

Löscht Tabellen und Abfragen. Geöffnete Tabellen/Abfragen werden geschlossen, damit sie gelöscht werden können.

VBA-Quelltext

' Löscht Tabellen/Abfragen
Public Sub RecSetLöschen(ParamArray NamensListe())
Dim RecSet As Variant
On Error Resume Next

For Each RecSet In NamensListe

' Löscht nur Tabellen
If SysCmd(acSysCmdGetObjectState, acTable, RecSet) <> 0 Then DoCmd.Close acTable, RecSet, acSaveNo
DoCmd.DeleteObject acTable, RecSet

' Löscht nur Abfragen
If SysCmd(acSysCmdGetObjectState, acTable, RecSet) <> 0 Then DoCmd.Close acQuery, RecSet, acSaveNo
DoCmd.DeleteObject acQuery, RecSet

Next RecSet

End Sub

Argumente der Funktion/Prozedur

NamensListe(): Die Namen von einer oder mehreren Tabellen werden -durch Komma getrennt- an den Aufruf der Prozedur RecSetLöschen angehängt.

Anwendungsbeispiel(e)...

Mit der Anweisung

RecSetLöschen "Tab1", "Tab2", "Tab3"

werden die Tabellen "Tab1", "Tab2" und "Tab3" gelöscht.