+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Altın Üye Bölümü (https://accesstr.net/forum-altin-uye-bolumu.html)
+---- Forum: Altın Üye Örnek Uygulamalar (https://accesstr.net/forum-altin-uye-ornek-uygulamalar.html)
+---- Konu Başlığı: Bağlı Tablo Yöneticisi (/konu-bagli-tablo-yoneticisi.html)
Bağlı Tablo Yöneticisi - ozanakkaya - 19/03/2011
Arkadaşlar, nette gezinirken yabancı bir siteden bir örnek uygulama buldum.
Ekteki klasörde 2 adet dosya mevcut (malesef 2003'e çevrilmiyor)
Linked Table Pro AddIn 7.accda
Add-In Demo1.accdb
isimli dosyalar.
Linked Table Pro AddIn 7.accda isimli dosya Add-In Demo1.accdb içerisine referans olarak eklenmiş ve tüm kodları kitli.
Add-In Demo1.accdb dosyalında bulunan LinkTable tablosuna bağlı tablo isimleri ve tabloların bulunduğu veritabanları yazılı. Uygulama ilk açıldığında farklı veritabanlarındaki bağlı tabloları yüklüyor.
Orijinalde Customers isimli tablo daha önce bağlı ise ilk açılışta aynı tabloyu Customers1 olarak tekrar bağlıyordu.
Ben
Sub TablolariSil()
On Error Resume Next
DoCmd.GoToRecord , , acFirst
Dim sayi As Integer
sayi = DMax("[Sno]", "Sorgu1")
For i = 0 To sayi
Dim tablo As String
tablo = Me.TableName
DoCmd.SetWarnings False
DoCmd.RunSQL "drop table " & tablo
DoCmd.GoToRecord , , acNext
Next i
End SubUygulamada ilk açılan formun açıldığında olayına
Dim strDatabasePath As String
Dim strDatabasePassword As String
Dim DEFAULT_DATABASE_PATH As String
Dim DATABASE_PATH As String
Call TablolariSil
DEFAULT_DATABASE_PATH = Application.CurrentProject.Path & "\Data\data1.mdb"
strDatabasePassword = "demo"
Call InitializeLinks(DEFAULT_DATABASE_PATH, strDatabasePassword)
Bu arada 2 üstteki koddaki Sorgu1
SELECT (select count([ID]) from LinkTable where [ID]<=Tablolar.[ID]) AS Sno, Tablolar.TableName
FROM LinkTable AS Tablolar;
Üyeliğiniz yetersiz.
Önemli Bilgilendirme !
Şu anda Altın Üye Bölümündesiniz. Bu bölümdeki konuların içeriğinde ilk mesajı ve bu mesajın bir kısmını görebilirsiniz. Konunun tamamını ve eklentileri sadece "Altın Üyeler" görüntüleyebilir. Altın Üye olarak sizde bu bölümü görebilir ve sitemize destek olabilirsiniz. Altın Üyelik ile ilgili bilgi almak veya Altın Üye olmak için buraya tıklayınız. Altın Üye olmadan sitemizdeki diğer forumlardan faydalanabilirsiniz.