Hallo Leute,
ich habe in einem Forum eine super Funktion gefunden, die mir eine Tabelle via VBA verknüpft.
Die Funktion funktioniert auch super wenn ich in Access 2000 über Ereignisse den folgenden Eintrag mache.
=LinkTable('I:\Daten\TidePro\ch_tidepro\TDDAT.mdb';'TAGESSALDEN';'TAGESSALDEN_tidepro')
Ich habe ein Modul angelegt
Option Compare Database
Public Function LinkTable(strDatabaseSource As String, _
strTableSource As String, strTableDestination As String)
Dim dbSource 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:
LinkTable = False
Resume LinkTable_Exit
End Function
Nun will aber davor ein Dropdownmenü auswerten und dementsprechend eine Tabelle verlinken, jetzt bekomme ich immer die Fehlermeldung Ausdruck: = erwartet wenn ich die Funktion über VBA starte.
linktable("PFAD","Tabelle","Tabellenname")
Kann mir jemand die korrekte Schreibweise im VBA sagen? ich komme einfach nicht drauf.
Vielen Dank und Grüße
Philip |