09/02/2010, 13:38
09/02/2010, 13:43
sayın Puletin;
https://accesstr.net/konu-access-imi-bag...b6neticisi
konuda polsofttan bahsediyor. ben çözemedim. siz çözebilirsiniz sanırım.
https://accesstr.net/konu-access-imi-bag...b6neticisi
konuda polsofttan bahsediyor. ben çözemedim. siz çözebilirsiniz sanırım.
10/02/2010, 00:46
Sanırım aşağıdaki linkte istediğiniz örnek var. Kolay gelsin
https://accesstr.net/konu-bagli-tablo-bi...BA%C4%9ELI
https://accesstr.net/konu-bagli-tablo-bi...BA%C4%9ELI
10/02/2010, 08:59
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.
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.
10/02/2010, 20:19
bekleyişim sabırla sürecektir 
04/03/2010, 15:21
Nette yaptığım araştırmada aşağıdaki linkten bulduğum çözümü size uyarladım.
Changing the File Path on Linked Tables
Örnek dosyadaki makro'yu çalıştırdığınızda mevcut bağlı tabloların yolunu,
access dosyasının bulunduğu klasör olarak değiştiriyor.
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 FunctionÖrnek dosyadaki makro'yu çalıştırdığınızda mevcut bağlı tabloların yolunu,
access dosyasının bulunduğu klasör olarak değiştiriyor.