Skip to main content

AccessTr.neT


Bağlı Tabloların Bulunduğu Veritabanını Sıkış-onar Yapma Hakkında.

Bağlı Tabloların Bulunduğu Veritabanını Sıkış-onar Yapma Hakkında.

Photo #13
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
Cevapla
#14
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.Connect
bu 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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da