… 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 TableDefFor Each tblDef In currentDB.TableDefs
currentDB.TableDefs.Delete tblDef.Name
Next tblDefTschau
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]