[vbnet]

.....

توجد طريقة لمراقبة التحديث التي تتم على قاعدة بيانات أكسس أفضل من استخدام التايمر
وهي مراقبة الأحداث التي تجري على الملف باستخدام FileSystemWatcher

تم تطبيق الفكرة على المثال المرفق في موضوعك (رسالة خطاء تظهر عند قراءة ملف نصي)

الإضافة أو التعديل في الموديول Module1

كود :

Module Module1
   '--------------------------------------
   '
   ' الأكواد السابقة التي لديك
   '
   '--------------------------------------

   ' مراقبة الأحداث على ملف قاعدة البيانات بدون تايمر
#Region " Monitor "
   Public WithEvents fsWatcher As New IO.FileSystemWatcher()
   Public Sub startDatabaseMonitor()
       fsWatcher.Path = IO.Path.GetDirectoryName(Con.DataSource) ' مسار الملف
       fsWatcher.Filter = IO.Path.GetFileName(Con.DataSource) ' اسم الملف
       fsWatcher.EnableRaisingEvents = True ' تشغيل المراقبة
   End Sub
   ' حدث تغيير محتويات ملف
   Private Sub fsWatcher_Changed(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles fsWatcher.Changed
       ' هنا أكتب أمر أو استدع التحديث
       MsgBox("حدث تغيير في قاعدة البيانات")
   End Sub
#End Region

End Module

الإضافة أو التعديل في فورم frm_LogIn في حدث الزر btn_Inter_Click

كود :

Private Sub btn_Inter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Inter.Click
   '--------------------------------------
   '
   ' الأكواد السابقة التي لديك
   '
   '--------------------------------------

   startDatabaseMonitor() '<<<<<<<<<< تنفيذ اجراء مراقبة الملف بعد نجاح تسجيل الدخول
   frmMain.Show()
   End If
End Sub

.....