Linked table properties (in VBA)

[Gates Is Antichrist]

I wish to change what a linked table refers to in code. I figured it would be something like

Sub foo(sWhoToPointTo as String)
Dim db As Database, rs As Recordset, tdf As TableDef

Set db = CurrentDb
Set tdf = db.OpenRecordset("LinkAlias") 'I gather that it's dbOpenDynaset type

'need I also dynaset the "linkee" sWhoToPointTo now?
'And what now? Here is where I want to "re-link." I also want it to be permanent.

Set tdf = Nothing
Set db = Nothing
End Sub

TIA

 

[bat17]

This is not something I have played with but look up "RefreshLink Method" in help. The example code from there covers what you need I think.

Peter

 

[Gates Is Antichrist]

Good job - that's really very close to what I need (if it even turns out to be possible in code). I can't quite implement it because I'm using a recordset instead of tabledef. Piddling around I had no luck setting Source or Connect and bad luck even displaying them.

I hope someone who knows something about recordsets and tabledefs sees this, but thanks still for your fine shooting in unfamiliar territory.

Private Sub foo(sWhoToPointTo as string)
Dim rs As Recordset, tdf As TableDef

Set rs = CurrentDb.OpenRecordset("LinkAlias") 'I gather that it's dbOpenDynaset type
'rs.Source = "BOB" 'fraid not
'debug.print tdf.Connect 'Do I want to use Tabledef?

'need I also dynaset the "linkee" sWhoToPointTo now?
'And what now? Here is where I want to "re-link." I also want it to be permanent.

Set rs = Nothing
End Sub