Startseite › 5_2007-2008 › Access Linked Table Path Correction
Advertisement
5_2007-2008 Microsoft Office Apps/VBA #183045

Access Linked Table Path Correction

Yalin Meric
★★★★★
4.8 · Downloads: 2,341

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

AI

KI-Zusammenfassung: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Quellcode
original-source 
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
Originalkommentare (3)
Wiederhergestellt von der Wayback Machine