Tabelle einbinden
Karl Donaubauer
Gesendet: 04.01.13 14:08
Betreff: RE: Tabelle einbinden



Elite Veteran

Beiträge: 845
50010010010025
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 Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Top of the page Bottom of the page