رسالة تفيد بصحة الربط أو المطالبة بإعادة الربط إذا لم يتم الاتصال

[محمد صلاح1]

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

New Microsoft Access Database.accdb

تم تعديل أغسطس 18, 2019 بواسطه محمد صلاح1

[محمد صلاح1]

تبسيط للمطلوب إذا لم يكن واضحاً

تعديل بالإضافة علي كودي الاتصال وإعادة الربط بالوحدة النمطية بكودين لإظهار رسالة تفيد بصحة الربط أو رسالة أخري تفيد بعدم صحة الاتصال إذا لم يحدث بالشكل المطلوب

والغرض من الرسالتين التأكد من صحة الاتصال من عدمه عند بدء تشغيل القاعدة

للرفع

[د.كاف يار]

اخي الكريم هذا كود بسيط لعملية الربط المهم ان تكون قاعدة البيانات في نفس مسار البرنامج

انشئ موديل و الصق التالي مع التعديل كما هو موضح

Option Compare Database
Option Explicit

Public Function updateTableLinks()
 On Error GoTo updateTableLinks_Err
  Dim varThis As Variant
  Dim strBEFileSpec1 As String


 dim x
x=CurrentProject.Path & "\" & "اسم قاعدة البيانات"& ".mdb" ' او ضع مسار قاعدة البيانات
  

strBEFileSpec1 = x
    For Each varThis In CurrentDb.TableDefs
      With varThis
        If Trim(Nz(.Connect)) Like ";DATABASE=*" Then
          .Connect = ";DATABASE=" & strBEFileSpec1
          .RefreshLink
        End If
      End With
    Next varThis

updateTableLinks_Exit:
    Exit Function

updateTableLinks_Err:
    If Err.Number > 0 Then
       Resume Next
    Else
        MsgBox Err.Description
        Resume updateTableLinks_Exit
    End If
End Function

 

في حدث عند الفتح في نموذج الواجهة استدعي 

Call updateTableLinks

 

[محمد صلاح1]

المطلوب هو التعديل علي الوحدة النمطية المرفقة وشكراً

[kaser906]

10 دقائق مضت, محمد صلاح1 said:

المطلوب هو التعديل علي الوحدة النمطية المرفقة وشكراً

وكيف سيتم التطبيق ؟

 

[د.كاف يار]

اخي الكريم طلبك موجود ضمن الكود و لست بحاجة لانشاء رسالة اخرى

 

في حال ان الاتصال فشل سوف تظهر الرسالة ادناه

VBA.MsgBox "Error " & err.Number & " (" & err.Description & ")"

لكن تستطيع اضافة رسالة في حال نجاح الاتصال و لا انصح بها لأنه في كل الاحوال سيتم استخدام الكود في نموذج الواجهة الرئيسية ففي كل مرة يتم الدخول للواجعة سوف تظهر رسالة تفيد بنجاح الربط و هذا غير منطقي

 

شكرا لك...

[محمد صلاح1]

أخي @د.كاف يار منور المنتدي

رغم انه لا يظهر لي شيئاً سواء اتم الاتصال أم لم يتم وهذا ما دفعني لطرح الموضوع وما دام هناك رسالة تفي بالغرض هل يمكن تعديل مضمونها لتظهر باللغة العربية وفي حال كان الاتصال صحيحاً هل يمكن بعد ظهور الرسالة ان تختفي من تلقاء نفسها بعد إيصال المهلومة كنوع من التنبيه وعند فقد الاتصال هل يمكن فتح متصفح للبحث عن مكان القاعدة الخلفية لمعاودة الاتصال وشكرا