Skip to main content

AccessTr.neT


Tablolarımı Tablo Böl İle Böldüm, Programı Başka Bir Pc De Çalıştırma Sorunu.

Tablolarımı Tablo Böl İle Böldüm, Programı Başka Bir Pc De Çalıştırma Sorunu.

Çözüldü #1
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?
Cevapla
#2
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
Cevapla
#3
Çok teşekkür ederim hocam,
Cevapla
#4
rica ederim
iyi çalışmalar
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da