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