طلب مساعدة لحل مشكلة

[RAGABFAROUK]

السادة الخبراء بالمنتدي 
كل عام وأنتم بخير 
 مصمم برنامج  لإدارة عيادة طبية  منذ أكثر من 3 سنوات و يعمل بكفاءة بفضل الله ..إلا أنه من وقت لأخر  منذ اسبوع تظهر الرسالة المرفقة عند الاتصال بين الطبيب  والسكرتارية  لعرض بيانات الحالة المطلوب الكشف عليها ...  علماً بأن الجهازين وندوز 7 وأوفيس 2010 نوت 32 شبكة (داخلية سلكية ) بالإنترنت وبدون إنترنت .. ارجو  سبب ظهور هذه الرسالة وكيفية علاجها ... تكرماً .. جزاكم الله خيراً

[Eng.Qassim]

لم استطع قراءة الرسالة لانها غير واضحة ..

لكن اعتقد ان الاتصال ينقطع مع Back End..جرب بوجود نت ..لان احتمال هناك مشكلة في التوصيلات 

[Moosak]

كما قال المهندس @Eng.Qassim  .. تم فقد الاتصال بقاعدة البيانات الخلفية ..

وإليك هذا الكود لفحص إذا كانت الجداول المرتبطة متصلة أم لا ..

عندما يكون البرنامج مقسم لنسختين FE و BE
وضيفة الكود أن تعطيه اسم أحد الجداول المرتبطة فيفحصه إذا كان متصل أم لا ويعطيك النتيجة True / False .. وبعدها يمكنك إعطاء أي أمر في حال تم فقد الإتصال كغلق البرنامج مثلا ..

Private Function TableLinkOkay(strTableName As String) As Boolean
'Function accepts a table name and tests first to determine if linked
'table, then tests link by performing refresh link.
'Error causes TableLinkOkay = False, else TableLinkOkay = True
    Dim CurDB As dao.Database
    Dim tdf As TableDef
    Dim strFieldName As String
    On Error GoTo TableLinkOkayError
    Set CurDB = DBEngine.Workspaces(0).Databases(0)
    Set tdf = CurDB.TableDefs(strTableName)
    TableLinkOkay = True
    If tdf.Connect <> "" Then
        '#BGC updated to be more thorough in checking the link by opening a recordset
        'ACS 10/31/2013 Added brackets to support spaces in table and field names
        strFieldName = CurDB.OpenRecordset("SELECT TOP 1 [" & tdf.Fields(0).Name & "] FROM [" & tdf.Name & "];", dbOpenSnapshot, dbReadOnly).Fields(0).Name  'Do not test if nonlinked table
    End If
    TableLinkOkay = True
TableLinkOkayExit:
    Exit Function
TableLinkOkayError:
    TableLinkOkay = False
    GoTo TableLinkOkayExit
End Function

'==========================================(مجربة تمام)==(وهذي دالة ثانية تقوم بنفس الوظيفة)
Public Function IsConnectedToBE(strLinkedTable As String) As Boolean
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
On Error Resume Next
Set rs = db.TableDefs(strLinkedTable).OpenRecordset
IsConnectedToBE = (Err = 0)
Set rs = Nothing
Set db = Nothing
End Function

طريقة الاستدعاء : 

TableLinkOkay("strTableName")