اظهار رسالة تنبيه الشبكة مفصولة تأكد من توصيل كابل الشبكة

السلام عليكم 

نعانى فى بعض الاحيان من قطع الشبكة بالشركة مما  يؤدى الى اتصال المستخدمين بالمبرمج

لذا حاولنا حل المشكلة بادراج كود 

If Forms!MAIN_EntryForm!xy = "#Error" Then

MsgBox "الشبكة مفصولة ..........تأكد من توصيل الكابل "

Else

If Forms!MAIN_EntryForm!xy > 0 Then
MsgBox "برجاء اجراء التحديث  "
'And Forms!MAIN_EntryForm!the_user <> "sameh.awad"
End If
End If

لكن للأسف يعطى رسالة خطأ

Run time Error 

type mismatch

بحثت لا يقل عن 4 ساعات بالامس دون جدوى

فبرجاء المشاركة بالحل اما بتعديل الكود او أى حل بديل

label (2).rar