اخي الفاضل عندي فكره بسيطه وانا مجربه وظابطه معي تمام
ممكن تنشأ جدول علي قاعدة بيانات sql server مكون من حقل فقط وتضع في الحقل هذا اي قيمه مثلا 1 وتذهب الي اكسس وتعمل ربط للجدول وفي النموذج نعمل مربع نص مرتبط بالحقل بحيث لو الحقل لاتوجد به قيمة معناه انه غير متصل وانت عمل الشرط بتاعك
انا بستعمل الشرط هذا
If Len(Me.chk_1 & "") = 0 Then
MsgBox "لايوجد اتصال بالشبكة الرجاء التأكد من اتصال الشبكة "
Me.serh.SetFocus
Undo
Exit Sub
End If
chk_1 هو حقل غير منضم في نموذج
يتم جلب القيمة من الجدول المرتبط مع sgl عن طريق هذ هذا الكود
Me.chk_1 = DLookup("[cvil_id]", "tabol_1", "[cvil_id]")
tabol_1 هو اسم الجدول و cvil_id هو الحقل في الجدول المرتبط و chk_1 هو مربع النص الغير منضم في النموذج