Tabellenverknüpfung per VBA

08/03/2010 - 11:57 von Peter Wenzel | Report spam
Hallo zusammen,

ich müsste einzelne Tabellenverknüpfungen aktualisieren. Dis möchte ich
auf jeden Fall automatisiert ablaufen lassen.
Ich habe folgendes Beispiel (von Andre Minhorst) gefunden.

Public Function LinkTable(strDatabaseSource As String, strTableSource
As String, strTableDestination As String)

Dim dbSource As DAO.Database
Dim dbDestination As DAO.Database
Dim dbTarget As DAO.Database
Dim tdf As DAO.TableDef
On Error GoTo LinkTable_Err
Set dbSource = DBEngine.Workspaces(0).OpenDatabase(strDatabaseSource)
Set dbDestination = CurrentDb
Set tdf = dbDestination.CreateTableDef(strTableDestination)
tdf.Connect = ";DATABASE=" & strDatabaseSource
tdf.SourceTableName = strTableSource
dbDestination.TableDefs.Append tdf
LinkTable = True

LinkTable_Exit:
dbSource.Close
Set dbSource = Nothing
Set dbDestination = Nothing
Set tdf = Nothing
Exit Function

LinkTable_Err:
Debug.Print Err.Number & " / " & Err.Description
LinkTable = False
Resume LinkTable_Exit

End Function


In der Zeile >>> dbDestination.TableDefs.Append tdf <<< bekomme ich den
Fehler "3012 / Objekt 'tblAuftraege' ist bereits vorhanden".
Ok, stimmt! Wie müsste ich den Code àndern, wenn die Verknüpfung
aktualisiert, und nicht neu erstellt werden soll? Da gibt's doch etwas
mit 'Refresh Link' oder so...


Gruß
Peter
 

Lesen sie die antworten

#1 Karl Donaubauer
08/03/2010 - 12:21 | Warnen spam
Peter Wenzel wrote:
ich müsste einzelne Tabellenverknüpfungen aktualisieren. Dis möchte
ich auf jeden Fall automatisiert ablaufen lassen.
Ich habe folgendes Beispiel (von Andre Minhorst) gefunden.
...

In der Zeile >>> dbDestination.TableDefs.Append tdf <<< bekomme ich
den Fehler "3012 / Objekt 'tblAuftraege' ist bereits vorhanden".
Ok, stimmt! Wie müsste ich den Code àndern, wenn die Verknüpfung
aktualisiert, und nicht neu erstellt werden soll? Da gibt's doch etwas
mit 'Refresh Link' oder so...



s. Tabellen wieder einbinden
www.donkarl.com?FAQ3.1

Servus
Karl
****************
Access-FAQ: http://www.donkarl.com /// http://www.donkarl.com?NEK
.NET-Entwickler-Konferenz für Accessler 20./21.3.2010

Ähnliche fragen