Create Linked Table by VBA

[bibigol]

Hi,

Is any body knows,
Can we create a linked tabled in VBA by any command??

Your help would appreciated

 

[SkipVought]

check out TransferDatabase Macro Action in HELP

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[MajP]

Public Sub linkTable()
   ' Call the ConnectOutput procedure. The third argument
   ' will be used as the Connect string, and the fourth
   ' argument will be used as the SourceTableName.
   ConnectOutput CurrentDb, "LinkedTable", ";DATABASE=C:\Nwind.mdb", "Products"
End Sub

Sub ConnectOutput(dbsTemp As Database, _
   strTable As String, strConnect As String, _
   strSourceTable As String)
   Dim tdfLinked As TableDef
   ' Create a new TableDef, set its Connect and
   ' SourceTableName properties based on the passed
   ' arguments, and append it to the TableDefs collection.
   Set tdfLinked = dbsTemp.CreateTableDef(strTable)
   tdfLinked.Connect = strConnect
   tdfLinked.SourceTableName = strSourceTable
   dbsTemp.TableDefs.Append tdfLinked
End Sub