Hallo alle zusammen.
Ich möchte gerne in einer Datenbank Tabellen aus unterschiedlich Datenbanken verknüpfen, diese haben auch in den einzelnen DBs die gleichen Namen. Ich habe dazu also den Code LinkTable gefunden, nur leider kann ich ihn nicht richtig anwenden. Ich bin halt auch absolut kein VBA Experte. Ich hab hier also einfach mal meinen aktuellen Stand gepostet, der funktioniert nicht. Könnt ihr mir helfen und sagen wo der Fehler/die Fehler liegen?
Public Function LinkTable() As Variant
Dim dbSource_1 As DAO.Database
Dim dbSource_2 As DAO.Database
Dim dbDestination As DAO.Database
Dim tdf As DAO.TableDef
On Error GoTo LinkTable_Err
Set dbSource_1 = DBEngine.Workspaces(0).OpenDatabase(„J:_xxx\xxx\Architekturtest\IC SG GVS.mdb“)
Set dbSource_2 = DBEngine.Workspaces(0).OpenDatabase(„J:_xxx\xxx\Architekturtest\IC SG PVO.mdb“)
Set dbDestination = CurrentDb
Set tdf = dbDestination.CreateTableDef(„4“)
tdf.Connect = „;DATABASE=“ & „J:_xxx\xxx\Architekturtest\IC SG GVS.mdb“
tdf.Connect = „;DATABASE=“ & „J:_xxx\xxx\Architekturtest\IC SG PVO.mdb“
tdf.SourceTableName = „Periode 4“
dbDestination.TableDefs.Append tdf
LinkTable = True
LinkTable_Exit:
dbSource.Close
Set dbSource = Nothing
Set dbDestination = Nothing
Set tdf = Nothing
Exit Function
LinkTable_Err:
LinkTable = False
Resume LinkTable_Exit
End Function
LG Madlen