Home › 2_2002-2004 › Access Linked Table Path Correction
Advertisement
2_2002-2004 Microsoft Office Apps/VBA #114199

Access Linked Table Path Correction

Yalin Meric
★★★★★
4.8 · Download: 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

Riepilogo AI: 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.

Codice sorgente
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
Commenti originali (3)
Recuperato da Wayback Machine