Elite Veteran
Beiträge: 848
  
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
*********
https://www.donkarl.com/devcon Access-Online-Konferenz 18.+19.4.
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek |
Tabelle einbinden