Skip to main content

AccessTr.neT


Bağlı Tablo Yöneticisi

Bağlı Tablo Yöneticisi

#1
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)


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task