Linking Tables 1

[shiggyshag]

HI

I would like to be able to link tables via code
(not refresh but create)

I.e I have a database with no tables I then using code create linked table in it from another database all in code.

Hope that makes sense

Cheers

 

[LSTAN]

Hi

You can try this,

Sub LinkTableFromExtDB()

Dim myDb As Database
Dim myTdf As TableDef, myTableName As String

Set myDb = CurrentDb()
myTableName = "mainTable"

Set myTdf = myDb.CreateTableDef("mainTable", 0, "mainTable" _
, ";database=C:\LSTan\L S TAN Projects\VBA Projects\Access\mainDB.mdb&quot

myTdf.SourceTableName = "mainTable"
myDb.TableDefs.Append myTdf

End Sub

For more informations on the CreateTableDef method, look under the Access VBA help.

rgrds
LSTAN

 

[shiggyshag]

Thank you very much

works a dream