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

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tablolarımı Tablo Böl İle Böldüm, Programı Başka Bir Pc De Çalıştırma Sorunu. (/konu-tablolarimi-tablo-bol-ile-boldum-programi-baska-bir-pc-de-calistirma-sorunu.html)

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

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?

RE: Tablolarımı Tablo Böl İle Böldüm, Programı Başka Bir Pc De Çalıştırma Sorunu. - berduş - 18/07/2023

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

RE: Tablolarımı Tablo Böl İle Böldüm, Programı Başka Bir Pc De Çalıştırma Sorunu. - programmer67 - 19/07/2023

Çok teşekkür ederim hocam,

RE: Tablolarımı Tablo Böl İle Böldüm, Programı Başka Bir Pc De Çalıştırma Sorunu. - berduş - 19/07/2023

rica ederim
iyi çalışmalar