MS ACCESS DE HARİÇİ VERİTABANINDAN BAĞLANAN TABLOLA ADRESLERİNİN VBA İLE GÜNCELLENMESİ
Merhaba Arkadaşlar.
İki ayrı veritabanı ile çalışan ms access programcıları veritabanının birinde formlardan raporlar dan ve sorgulardan faydalanır, diğer veritabanın da ise veriyi yani tabloları tutarlar. Bu yöntem veritabanının kararlılığını arttırır boyutunu azaltır. Ayrıca Çok kullanıcılı bir program yazıldığında da gereklidir.
Konumuzda bu iki ayrı veritabanının bir birine bağlanması. formların bulunduğu uygulamada kaynak veritabanının adı, yolu,adresi değiştiğinde yeni adresin güncellenmesi gerekir. Bu adres güncelleme işlemi otomasyonu için aşağıdaki kodları kullanınız.
Function TabloBaglaGuncelle()
Dim cdb As DAO.Database
Set cdb = CurrentDb
cdb.TableDefs("remoteTable").Connect = ";DATABASE=\\192.168.1.2\Paylasim\veriler2015.accdb"
cdb.TableDefs("remoteTable").RefreshLink
Set cdb = Nothing
End Function
İki ayrı veritabanı ile çalışan ms access programcıları veritabanının birinde formlardan raporlar dan ve sorgulardan faydalanır, diğer veritabanın da ise veriyi yani tabloları tutarlar. Bu yöntem veritabanının kararlılığını arttırır boyutunu azaltır. Ayrıca Çok kullanıcılı bir program yazıldığında da gereklidir.
Konumuzda bu iki ayrı veritabanının bir birine bağlanması. formların bulunduğu uygulamada kaynak veritabanının adı, yolu,adresi değiştiğinde yeni adresin güncellenmesi gerekir. Bu adres güncelleme işlemi otomasyonu için aşağıdaki kodları kullanınız.
Function TabloBaglaGuncelle()
Dim cdb As DAO.Database
Set cdb = CurrentDb
cdb.TableDefs("remoteTable").Connect = ";DATABASE=\\192.168.1.2\Paylasim\veriler2015.accdb"
cdb.TableDefs("remoteTable").RefreshLink
Set cdb = Nothing
End Function
Yorumlar