access2000 - tabellenverknüpfungen autom. löschen

Computer: Software & Programmierung Microsoft Access
#1

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

#2

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
…

#3

… 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

#4

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]