AccessTr.neT

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 Sub

kodu ile ilk açılışta eski tabloların silinmesini sağladım. Belkide farklı şekilde eski tabloları yeniden yüklüyordur. Ben çözemedim.

Uygulamada 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)

şeklinde kod ile çalışıyor.

Bu arada 2 üstteki koddaki Sorgu1

SELECT (select count([ID]) from LinkTable where [ID]<=Tablolar.[ID]) AS Sno, Tablolar.TableName

FROM LinkTable AS Tablolar;

Ek Dosyalar

Access-Linked-Table-Demo1.zip(6.18 MB)