Elite Veteran
Beiträge: 876
Ort: Wien | Hallo, Peter!
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
...
----- Servus
Karl
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |