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.
Original Author: Yalin Meric
Assumptions
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.
Code
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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.