pwakolbi - 04.01.13
...
Dim db As DAO.Database
Dim td As DAO.TableDef
Set db = CurrentDb()
Set td = db.CreateTableDef("tblAngebot")
td.Connect = "Daten.accdb;DATABASE=D:\Daten"
td.SourceTableName = "Produkt"
db.TableDefs.Append td
Ich bekomme die Fehlermeldung:
"Isam nicht gefunden"
Die Tabelle tblAngebot befindet sich in der Datenbank Daten.accdb.
Diese befindet sich auf LW C:\Daten.
Der neue Namen der Tabelle sollte Produkt sein.
...
Dann hast du die Namensangaben für Quell- und Zieltabelle verkehrt herum verwendet. Der Fehler kommt aber wegen einer falschen Syntax beim Connect. Versuch's mal so:
...
Set db = CurrentDb()
Set td = db.CreateTableDef("Produkt")
td.Connect = ";DATABASE=D:\Daten\Daten.accdb"
td.SourceTableName = "tblAngebot"
db.TableDefs.Append td
...