title image


Smiley TIPP: Tabellenverknüpfungen erzeugen
Na gut:



Public Function CreateLink1(Optional DestTblName = "tblTestLink", _

Optional DBName = "i:\woauchimmer\deine.mdb", Optional SourceTblName = "tblTest")

Dim DB As Database, Tbl As TableDef

Set DB = CurrentDb

On Error Resume Next

DB.TableDefs.Delete DestTblName

On Error GoTo 0

DB.TableDefs.Refresh

Set Tbl = DB.CreateTableDef(DestTblName)

Tbl.SourceTableName = SourceTblName

Tbl.Connect = ";DATABASE=" & DBName

DB.TableDefs.Append Tbl

End Function



Oder mit einer ODBC-Tabelle



Public Function CreateLink2()

Dim DB As Database, Tbl As TableDef

Set DB = CurrentDb

On Error Resume Next

DB.TableDefs.Delete "meinemysqltabelle1"

On Error GoTo 0

Set Tbl = DB.CreateTableDef("meinemysqltabelle1")

Tbl.SourceTableName = "meinetabelle"

Tbl.Connect = "ODBC;DSN=mySQL Test;DB=test;SERVER=localhost"

DB.TableDefs.Append Tbl

End Function



... beides gerade eben getestet.



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: