+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html)
+--- Konu Başlığı: başka veri tabanının tüm tablolarını kod ile bağlı tablo haline getirmek (/konu-baska-veri-tabaninin-tum-tablolarini-kod-ile-bagli-tablo-haline-getirmek.html)
başka veri tabanının tüm tablolarını kod ile bağlı tablo haline getirmek - accessman - 02/04/2013
iyi günler
başka bir veri tabanındaki tüm tabloları nasıl kod yazarak bağlayabiliriz
şurda bir örnek vermiş ama bunu nasıl uyarlayabiliriz
http://stackoverflow.com/questions/2426656/programmatically-creating-linked-tables-in-access
http://msdn.microsoft.com/en-us/library/bb243164%28v=office.12%29.aspx
Cvp: başka veri tabanının tüm tablolarını kod ile bağlı tablo haline getirmek - accessman - 02/04/2013
sn.Alpeki nin eklemiş olduğu
https://accesstr.net/konu-aktif-firma-aktif-donem-afad-farkli-firma-ve-donemlerle-calisma-ornegi.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 Functionteş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
RE: başka veri tabanının tüm tablolarını kod ile bağlı tablo haline getirmek - accessman - 12/04/2020
Güncel