access2000 - tabellenverknüpfungen autom. löschen

… hallo … wie kann ich per makro oder vba mit einem schlag alle verknüpfungen lösen? … dank für eure hilfe … dynja …

Hallo,

die folgenden Zeilen sollten das Problem loesen

===========================================
Dim tblDef as TableDef

For Each tblDef In currentDB.TableDefs
currentDB.TableDefs.Delete tblDef.Name
Next tblDef

Tschau
Peter

… hallo … wie kann ich per makro oder vba mit einem schlag
alle verknüpfungen lösen? … dank für eure hilfe … dynja

… ich danke schonmal … habe dies gemacht, nun meckert er folgendes "Laufzeitfehler 3211 - … kann tabelle „MSysAccessObjects“ nicht sperren … watt`n nu? …

Hallo,

die folgenden Zeilen sollten das Problem loesen

===========================================
Dim tblDef as TableDef

For Each tblDef In currentDB.TableDefs
currentDB.TableDefs.Delete tblDef.Name
Next tblDef

Tschau
Peter

Hallo,

da muss noch eine Abfrage bzgl. der Systemtabellen hinzukommen.

Systemtabllen haben ein Attribut 0.

Dim tblDef as TableDef

For Each tblDef In currentDB.TableDefs
If NOT (tblDef.Attributes = 2) Then
currentDB.TableDefs.Delete tblDef.Name
endif
Next tblDef

Tschau
Peter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]