Aşağıdaki gibi bir kod işinize yarayacaktır. Uygulamanızın yapısına göre ana forma veya tüm formlarınızda ekleyeceğiniz bir butona atayarak kullanabilirsiniz.
Kod:
Sub YenidenBaglan()
On Error Resume Next
CurrentDb.TableDefs.Refresh ' Tablo bağlantılarını yeniden kurar
If Err.Number <> 0 Then
MsgBox "Bağlantı yeniden kurulamadı. Hata: " & Err.Description, vbExclamation, "Bağlantı Hatası" ' Hata durumunu kontrol ederek varsa hata kodu ve açıklamasını mesaj olarak ekrana basar
Else
MsgBox "Bağlantı başarıyla yeniden kuruldu.", vbInformation, "Başarılı Bağlantı" ' BAğlantıların başarıyla sağlandığını bildirir.
End If
On Error GoTo 0
End Sub
Ancak dikkat edilmesi gereken hususlar var. İnternet bağlantısı kesildiği anda kayıt oluşturuluyor ise hata veya corruptiona sebebiyet verebilir. Bunun önüne geçmek için kayıt kontrollerini iyi organize etmelisiniz.
Örnek olarak çok yoğun çalışan bir uygulama değilse şahsen,
- Belirli periyotlarla internet bağlantısı aktif mi kontrol et,
- Bağlantı kesildiyse o esnadaki tüm işlemleri iptal et ve internet bağlantısı sağlanana kadar işlem yapılmasını engelle,
- İnternet bağlantısı yeniden sağlandığında tablo bağlantılarını yenile,
- Bağlantılar başarı ile yenilendiyse işlem yapılmasına izin ver