sn.Alpeki nin eklemiş olduğu
https://accesstr.net/konu-aktif-firma-ak...rnegi.html
adresindeki bir fonksiyon var
Kod:
Public Function VT_Baglan(FirmaKlasorumuz As String)
Dim db As DAO.Database, Source As String, pathNew As String, pathOld As String
Dim SourceName As String, i As Integer, j As Integer
Set db = CurrentDb
For i = 0 To db.TableDefs.Count - 1
If db.TableDefs(i).Connect <> vbNullString Then
Source = db.TableDefs(i).Connect
If Source <> FirmaKlasorumuz Then
db.TableDefs(i).Connect = ";DATABASE=" & FirmaKlasorumuz
db.TableDefs(i).RefreshLink
End If
End If
Next
End Function
bu tüm tabloları isimleri ve adedi değişse bile kendi veritabanımıza bağlayabiliyor mu
teşekkürler
bu adresteki örnekte her firmanın her senesinin data.mdb dosyalarında tablo isimeri ve sayıları sabit
oysa tablo ismi ve veri tabanındaki tablo sayısı değişse bile kod ile hepsini nasıl alabiliriz
