مشكلة خطأ انقطاع الشبكة اثناء العمل على البرنامج

[ahmad_mustafa]

السلام عليكم

بالمرفق قاعدة كنت جربت فبها ربط القاعدة بالجداول عند قطع الشبكة او تغيير مكان الجداول فهي تعمل تمام عند بداية فتح البرنامج لكنها لا تعمل بشكل صحيح اذا انقطعت الشبكة اثناء العمل وتظهر رسالة خطا

المطلوب استبدال رسالة اكسسز برسالة اخرى عند انقطاع الشبكة بشكل مفاجئ اثناء العمل على البرنامج

ولكم الشكر

اثناء انقطاع الشبكة.rar

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

Private Sub فتح_ادخال_تذاكر_Click()
DoCmd.Close
On Error GoTo Err:
DoCmd.OpenForm "تذاكر_ادخال"
Err:
    If Err.Number = 3043 Or Err.Number = 3024 Or Err.Number = 3044 Or Err.Number = 3078 Then
        MsgBox "فشل الاتصال بالسيرفر يرجى ابلاغ المسؤول", vbExclamation, "حالة الاتصال بالشبكة"
        Exit Sub
    End If
End Sub

اثناء انقطاع الشبكة.rar

تحياتي

[ahmad_mustafa]

السلام عليكم 

اشكرك اخي محمد

الكود يعمل عند الفتح او الاغلق بشكل صحيح لكن مشكلتي رسالة خطأ تظهر اثناء العمل على فورم وانقطعت الشبكة مع العلم انه يوجد لدي بالقاعدة اكثر من 60 فورم فهل انا مضطر ان اضع الكود في كل الفورمات في حدث عند الخطأوحدث عند الفتح او الاغلاق ؟؟ الايوجد كود في وحدة نمطية يحل هذه المشكلة بحيث يبحث باستمرار اذا كانت الجداول مربوطة او فقط الاتصال ليظهر لنا رسالة واغلاق القاعدة.