Kod:
Sub YenidenBaglan()
Dim tdf As TableDef, db As Database
Dim strTableName As String, strConnection As String
On Error Resume Next
Set db = CurrentDb
For Each tdf In db.TableDefs
If Len(tdf.Connect) > 0 Then
strTableName = tdf.Name
strConnection = tdf.Connect
db.TableDefs.Delete strTableName
Set tdf = db.CreateTableDef(strTableName, dbAttachSavePWD, strTableName, strConnection)
db.TableDefs.Append tdf
End If
Next tdf
If Err.Number <> 0 Then
MsgBox "Bağlantı yeniden kurulamadı. Hata: " & Err.Description, vbExclamation, "Bağlantı Hatası"
Else
MsgBox "Bağlantı başarıyla yeniden kuruldu.", vbInformation, "Başarılı Bağlantı"
End If
On Error GoTo 0
End Sub