Bağlı Tablolarım nerde

[akd]

Merhaba arkadaşlar,
veri tabanı bölücü ile tablolarımı böldüm,
bağlı tablolarımın olduğu mdb yi otomatik yedekleme yapmak için,
onun yolunu otomatik bilmem lazım.
Örnektede gördügünü gibi çalışmış olduğum belgenin yolunu alabiliyorum,
malesef bağlı tablolarımın olduğu belgenin adresini alamadım birtürlü
Yardımcı olacak arkadaşlara şimdiden teşekkürlerimi sunarım

 

[modalı]

Sayın akd,

MsgBox CurrentProject.Path & "\data\YEDEK.mdb"

İyi çalışmalar

 

[akd]

Teşekkürler sayın modalı,
demek direk YEDEK.mdb nin yerini bulmak kodlarla mümkün degilmiş,
bu da bir çözüm ama tam çözüm degil, nedenmi?.
ben veri tabanını kod ile degiştiriyorum YEDEK.mdb degilde 2008.mdb ile çalışıyorum,
o zaman kodun içine girip YEDEK.mdb silip 2008.mdb yazmam gerekecek, öyle degilmi.
İlgilerinizden dolayı teşekkürlerimi sunarım.

 

[mehmetdemiral]

Sayın akd
Onu da girişte bir sabitler formu yaparak halledebilirsiniz. Veri tabanının adı orada belirtilirse kod da değişken üzerinden veriyi bu form veya forma bağlı tablo üzerinden veriyi alr. Böylece kodda kullanılan YEDEK.mdb ismi otomatik olarak bildirilmiş olur.
Konuyu ben de bayağı araştırdım. Olmadığını düşünmüyorum. Bence mutlaka bir yolu vardır, ama biz bulamadık. Çünkü bağlı bir tablo yapısına sahip mdb dosyasında bağlı tablo sihirbazı çalıştırıldığında bağlı göründüğü adresi gösteriyor. Onu mutlaka bir yerden alması gerek yani. Oraya nasıl ulaşılır bilemiyorum işte.

Kolay gelsin..

 

[akd]

Sayın Mehmetdemiral,
ilgin için çok teşekkür ederim,
elbet bilen biri çıkar,
bekleyelim hele.
İyi çalışmalar...

 

[modalı]

Sayın akd ve mehmetdemiral,

Biraz araştırmayla problemi çözdüm. Birkaç satırlık fonksiyon işi bitirdi.

İyi çalışmlar

 

[akd]

Elinize sağlık sayın modalı,
oluşan sonuç
;DATABASE=C:\ornek\data\YEDEK ÖRNEGİ_be.mdb

aşağıdaki çekilde nasıl yaparız
C:\ornek\data\YEDEK ÖRNEGİ_be.mdb
çok çok teşekkürler...

 

[akd]

Sayın modalı burada bir yanlışlık var galiba,
data klasörünün içinde YEDEK.mdb var
ama mesajda yanlış çıkıyor
aşağıdaki gibi çıkması lazım degilmi
;DATABASE=C:\ornek\data\YEDEK.mdb

esas almak istedigimiz C:\ornek\data\YEDEK.mdb bu dur

 

[modalı]

Bir de şöyle deneyin:

Public Function ShowTables()
   Dim I As Integer
   Dim path, name As String

   With CurrentDb

      For I = 0 To .TableDefs.Count - 1
         If Len(Trim(.TableDefs(I).Connect)) > 0 Then
            path = .TableDefs(I).Connect
            path = Mid(Trim(path), 11)
            name = .TableDefs(I).SourceTableName
            
            MsgBox "Adı: " & name & " Yolu: " & path
            
         End If
      Next
   End With

End Function

 

[mehmetdemiral]

Sayın modalı elinize sağlık. Çok iyi bir çalışma gerçekten de.. Ben de mantığını kurmuş ama bir türlü bağlantı verisini nereden çağıracağımı bulamamıştım.

Sayın Akd, bu arada şunu söyleyeyim ki işlem doğru. Sizin bağlı tablo bilginiz aynen bunu söylüyor. Bağlı tablo yöneticisini çalıştırınca tablo bağlantınız aynen öyle. Eğer yeniden bağlantı yapar ve sonra bakarsanız yeni bağlantı yerini doğru göreceksiniz. Süper olmuş bence..

 

[akd]

Sayın arkadaşlar,
önceki mesajımda birşeye dikkatinizi çekmek istedim,
malesef anlamamışsınız,
kod yanlış sonuç veriyor,
data klasörünün içindeki belge YEDEK
kod nerden buluyorsa ,
Adı: PersonelT Yolu: C:\ornek\data\YEDEK ÖRNEGİ_be.mdb
data kalsörünün içinde YEDEK ÖRNEGİ_be.mdb yok ki
data klasöründen sonra kendi adını yazıyor büyük olasılıkla
İyi geceler...

 

[modalı]

Sayın akd,

Hiç bir hata yok, her iki uygulamada YRDEK olarak başladığından öyle oldu. Tabloların olduğu uygulamanın adını değiştirdim. Ayrıca bir sorgu da ekledim.


İnceleyin lütfen.

İyi çalışmalar

 

[akd]

Elinize sağlık sayın modalı,
tam istedigim gibi, çok güzel olmuş,
hakkınızı helal edin,
sizide çok yorduk.
İyi akşamlar...