Refreshing a Link : Access ADO « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. Access ADO

Refreshing a Link

 
Sub RefreshLink()
    Dim cat As ADOX.Catalog
    Dim tdf As ADOX.Table
    Set cat = New ADOX.Catalog
    Set cat.ActiveConnection = CurrentProject.Connection
    Set tdf = cat.Tables("Employees")
    tdf.Properties("Jet OLEDB:Link Datasource") = _
        strNewLocation
End Sub








Related examples in the same category

1.Creating a New Microsoft Access Database Using ADO
2.Using the Open Database Method
3.Deleting Records via ADO