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

[hassan omara]

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

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

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

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

[ابوخليل]

  في 24‏/12‏/2018 at 13:38, hassan omara said:

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

Expand  

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

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

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

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

[hassan omara]

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

[hassan omara]

  في 24‏/12‏/2018 at 18:40, ابوخليل said:

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

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

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

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

Expand  

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

[ابوخليل]

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

 

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

جميل جدا