مشكلة عند تقيسم قاعدة البيانات_ فحص كيبل الشبكة

[hassan omara]

مساء الخير علي الاساتذة

المشكة هي اني عملت قاعدة بيانات اكسس

وعملت ليها تقسيم ووزعت نسخ علي عدة اجهزة كمبيوتر موصولة بسوتش بس المشكلة هنا في حالة ان جهاز حصله مشكلة في كابل الانترنت الخاص بيه قاعدة البيانات هنا بتبقي شغالة بس البيانات مش بتتنقل للسيرفر الرئيسي .

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

[ابوخليل]

4 ساعات مضت, hassan omara said:

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

نعم يوجد وهي فحص حالة الاتصال بقاعدة البيانات

ويمكن وضع كود الفحص في حدث النقر على زر الحفظ مثلا 

ولكن وقت انقطاع الاتصال والفورم مفتوح لن يظهر شيء يدل على ذلك الا فيما لو تم تشغيل الفحص في حدث عداد الفورم

وهي طريقة غير محببة .

[hassan omara]

شكرا علي الرد ولكن ماهو هذا الكود برجاء كتابة الكود وشكرا .....

[hassan omara]

13 ساعات مضت, ابوخليل said:

نعم يوجد وهي فحص حالة الاتصال بقاعدة البيانات

ويمكن وضع كود الفحص في حدث النقر على زر الحفظ مثلا 

ولكن وقت انقطاع الاتصال والفورم مفتوح لن يظهر شيء يدل على ذلك الا فيما لو تم تشغيل الفحص في حدث عداد الفورم

وهي طريقة غير محببة .

ماهو الكود وشكرا ....

[ابوخليل]

Public Function CheckLinks() As Boolean
    On Error GoTo CheckLinksErr
    Dim tdf As TableDef
    Dim strNewMDB As String
    Dim fd As FileDialog
    For Each tdf In CurrentDb.TableDefs
    If UCase(Left(tdf.Name, 6)) <> "CROSGAD" Then
    If Len(tdf.Connect) > 0 And tdf.Fields.Count = 0 Then
    If Len(strNewMDB) = 0 Then
    MsgBox "لا يمكن الاتصال بقاعدة البيانات ، سيتم غلق البرنامج"
    DoCmd.Quit
    End If
     tdf.RefreshLink
        End If
    End If
    Next tdf
    CheckLinks = True
CheckLinksDone:
    Exit Function
CheckLinksErr:
    MsgBox "Error #" & err.Number & ": " & err.Description, vbCritical
    Resume CheckLinksDone
End Function

 

[سلمان الشهراني]

جميل جدا