AccessTr.neT

Tam Versiyon: Tablolarımı Tablo Böl İle Böldüm, Programı Başka Bir Pc De Çalıştırma Sorunu.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Tablo böl ile tablolar bölündüğünde dosyanın dizinini Access saklıyor ve başka bir pc ye dosyayı kopyaladığımızda açılışta hata veriyor. Bu sorunu nasıl düzeltebilirim?
aşağıdaki kod işinize yarayabilir
bir düğmeye atayabilirsiniz yada uygulama açılır açılmaz çalışması sağlanabilir
Not: bağlı tabloların olduğu dosya ile ana veritabanı aynı dizinde olmalı
istenirse yordam belirli bir alt klasöre göre yeniden düzenlenebilir
Sub BaglıTablo()
Dim TblAdi As TableDef

'Veritabanındaki Tüm Bağlı tabloların Adresini alır ve mtin olarak kaydeder
' For Each TblAdi In CurrentDb.TableDefs
' TmpAdres = TblAdi.Connect
'
' x = InStr(1, TmpAdres, ";DATABASE=")
' TmpAdres = Mid(TmpAdres, 11)
' If x = 1 And Len(TmpAdres & "") > 0 And InStr(1, DzBglVtAdr, TmpAdres) = 0 Then
' 'DzBglVtAdr = DzBglVtAdr & ";" & TmpAdres
' xAdrs = InStrRev(TmpAdres, "\")
' y = y + 1
' Debug.Print y, TblAdi.Name, TmpAdres, CurrentProject.Path & Mid(TmpAdres, xAdrs)
' TblAdi.Connect = ";DATABASE=" & CurrentProject.Path & Mid(TmpAdres, xAdrs)
' TblAdi.RefreshLink
' End If
' Next TblAdi
For Each tdf In CurrentDb.TableDefs
If tdf.Connect <> "" Then
TmpAdres = tdf.Connect
xAdrs = InStrRev(TmpAdres, "\")
tdf.Connect = ";DATABASE=" & CurrentProject.Path & Mid(TmpAdres, xAdrs)
tdf.RefreshLink
End If
Next tdf

MsgBox "bağlı tablolar güncellendi"
End Sub

not2: istenirse pasif yapılan kod da kullanılabilir
Çok teşekkür ederim hocam,
rica ederim
iyi çalışmalar