• Home
 · 
• Microsoft Office Apps/VBA
 · 
• Access Linked Table Path Correction

Access Linked Table Path Correction

When the folder of an access application and its linked table source changes, this code will modify the linked tables to comply.

Assumes
In order that code to work the Access application and the linked table source file must be in the same directory. Also the user running the application must have the permission to modify the tables.

Rate Access Linked Table Path Correction

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

Sub TabloLinkleriniKontrolEt(sSourceFile As String)
 Dim daTaban As Database, tbTablo As TableDef
 Set daTaban = CurrentDb
 For Each tbTablo In daTaban.TableDefs
 If InStr(tbTablo.Connect, "DATABASE=") > 0 Then
  Debug.Print tbTablo.Connect
  If tbTablo.Connect <> ";DATABASE=" & Application.CurrentProject.Path & "\" & sSourceFile Then
  tbTablo.Connect = ";DATABASE=" & Application.CurrentProject.Path & "\" & sSourceFile
  tbTablo.RefreshLink
  End If
 End If
 Next
 daTaban.Close
End Sub