AccessTr.neT

Bul · 19/03/2011, 00:58

Arkadaşlar, nette gezinirken yabancı bir siteden bir örnek uygulama buldum.
Ekteki klasörde 2 adet dosya mevcut (malesef 2003'e çevrilmiyor) Img-cray

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)

AccessTr.neT

Bağlı Tablo Yöneticisi

Bağlı Tablo Yöneticisi

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri