Merhaba,
Kusura bakmayın yeni gördüm.
Bir modül oluşturmanız gerekiyor. Örnek olarak "Module7"yi oluşturdum.
Module7 nin içerisine aşağıdaki kodları ekledim.
'--------------------
Public Function TableRelinkSample()
DoCmd.OpenForm "tablobaglantisikontrol" 'Ben bu adda bir tablo oluşturdum. İçerisinde Lütfen bekleyin Tablo bağlantıalrı yenileniyor diye bir yazı ekledim. Görsel olarak daha güzel gözükmesi için. Sizde yapabilirsiniz.
CurrentDb.TableDefs("Tablo1").RefreshLink 'Tablo 1 yazan yere hangi tabloyu tekrar bağlamak istiyorsanız onu yazacaksınız
CurrentDb.TableDefs("Tablo2").RefreshLink 'Birden fazla tablo adı yazabilirsiniz. Kaç adet tablonuz var ise o kadar ekleyebilirsiniz.
DoCmd.Close acForm, "tablobaglantisikontrol" 'burada oluşturduğum formu kapattım
DoCmd.OpenForm "ACILIS" 'Açılış adında bir form oluşturup tablo bağlantıları başarılı. Sisteminiz açılıyor yazısı ekledim.
End Function
'--------------------------
Modülü oluşturmayı tamamladıktan sonra Form1 adında bir form oluşturalım ve sistemin açılışında bu formu açtıralım. (Form1'e arka olan gizleme komutlarını yazmanızı öneririm.
Sistem açılışında bir formu açtırma;
Dosya - seçenekler - geçerli veritabanı - Form Görüntüle kısmına açılmasını istediğiniz formu seçin. Kaydedip kapatın.
Form1'in açıldığında özelliğine,
Module7.TableRelinkSample
yazıyoruz.
Bu şekilde sistemde bir kopma olduğunda her açılışta kopma kendini onaracak.
Fakat kopmadan sonra bir işlem yapıldı ise o veriler tablolar yenilendiğinde kaybolacak.
Bununda önüne geçmenin bir yolu var çok daha uzun bir işlem.
Daha geniş bir zamanda onuda yazıyor olurum.
İyi çalışmalar,