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


About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 79 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.