+- 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ığı: Bağlı Tabloların Bulunduğu Veritabanını Sıkış-onar Yapma Hakkında. (/konu-bagli-tablolarin-bulundugu-veritabanini-sikis-onar-yapma-hakkinda.html)
RE: Bağlı Tabloların Bulunduğu Veritabanını Sıkış-onar Yapma Hakkında. - ates2014 - 25/05/2023
hocam öncelikle cevabınız için çok tşk ederim,
boş bir form açtım bütün kodları ekledim çalıştırdığımda aşağıdaki kod satırında hatayı verdi neden acaba?
TmpAdres = TblAdi.Connect
Private Sub Komut0_Click()
Dim TblAdi As TableDef
Dim BglVtAdr, DzBglVtAdr As String
Dim BglVt As Object
DzBglVtAdr = ""
'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
RE: Bağlı Tabloların Bulunduğu Veritabanını Sıkış-onar Yapma Hakkında. - berduş - 25/05/2023
bu konuya atıfta bulunarak yeni konu açıp örnek dosyalarınızı ekleyin (yaptığınız değişikliklerle hata veren dosyalarınızı) inceleyip yardımcı olmaya çalışalım
(25/05/2023, 16:17)ates2014 yazdı: TmpAdres = TblAdi.Connectbu satırda hata verdiyse sebebi adreste ilgili dosyanın olmaması yada boş olması olabilir
TmpAdres = TblAdi.Connect satırından önce
debug.print TmpAdres yazarak ilgili adresi Vba penceresine yazdırıp verinin ne olduğunu kontrol eder misiniz