+- 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ı Tablo Yöneticisini Kullanmadan Bağlantı Yapmak (/konu-bagli-tablo-yoneticisini-kullanmadan-baglanti-yapmak.html)
Cvp: Bağlı Tablo Yöneticisini Kullanmadan Bağlantı Yapmak - Puletin - 09/02/2010
Sayın kadirdursun dediğiniz şekilde hiç düşünmemiştim.Bende araştırıyorum.
Cvp: Bağlı Tablo Yöneticisini Kullanmadan Bağlantı Yapmak - kadirdursun - 09/02/2010
sayın Puletin;
https://accesstr.net/konu-access-imi-bagli-tablo-yoneticisi-kullanmadan-nasil-ag-uzerinde-calistirabilirim.html?highlight=ba%c4%9fl%c4%b1+tablo+y%c3%b6neticisi
konuda polsofttan bahsediyor. ben çözemedim. siz çözebilirsiniz sanırım.
Cvp: Bağlı Tablo Yöneticisini Kullanmadan Bağlantı Yapmak - herdogan - 10/02/2010
Sanırım aşağıdaki linkte istediğiniz örnek var. Kolay gelsin
https://accesstr.net/konu-bagli-tablo-bilgileri-gosterme-ve-yenileme.html?highlight=BA%C4%9ELI
Cvp: Bağlı Tablo Yöneticisini Kullanmadan Bağlantı Yapmak - kadirdursun - 10/02/2010
sayın herdogan;
linki ve onda bulunan diğer linkleride inceledim.
benim istediğimi tam olarak karşılamadı.
elimde başka bir programdan dışarı aktardığım 10 adet txt dosyası var. bu dosyalar her ay güncelleniyor. Access bu txt dosyalarına bağlı olarak hesap kitap yapıyor.
dolayısıyla Access kendine bağlanmış olan kaç tane txt dosyası varsa bunların hepsini açılışta güncellesin istiyorum.
bu konuyu 1 haftadan fazladır arıyorum ama bulamadım.
Cvp: Bağlı Tablo Yöneticisini Kullanmadan Bağlantı Yapmak - kadirdursun - 10/02/2010
bekleyişim sabırla sürecektir
Cvp: Bağlı Tablo Yöneticisini Kullanmadan Bağlantı Yapmak - Seruz - 04/03/2010
Nette yaptığım araştırmada aşağıdaki linkten bulduğum çözümü size uyarladım.
Changing the File Path on Linked Tables
Kod:
Function RelinkTables()
Dim dbs As Database
Dim tdf As TableDef
Dim ConStr, Oncesi, Sonrasi
' Loop through all tables in the database.
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
' If the table has a connect string, it's a linked table.
If Len(tdf.Connect) > 0 Then
ConStr = tdf.Connect
If InStr(1, tdf.Connect, "DATABASE=") > 0 Then
Oncesi = Left(ConStr, InStr(1, ConStr, "DATABASE=") - 1)
End If
If InStr(1, tdf.Connect, "TABLE=") > 0 Then
Sonrasi = Left(ConStr, InStr(1, ConStr, "TABLE=") - 1)
End If
tdf.Connect = Oncesi & "DATABASE=" & CurrentProject.Path & ";" & Sonrasi
Err = 0
On Error Resume Next
tdf.RefreshLink ' Relink the table.
If Err <> 0 Then
MsgBox "Bir hata oluştu"
End If
End If
Next tdf
End Functionaccess dosyasının bulunduğu klasör olarak değiştiriyor.