رسالة مرجع كائن قاعدة البيانات غير صحيح عند تغيير مكان جداول قاعدة البيانات من مكان الى اخر

[f16]

جمعة مباركة على اعضاء هذا النادي العملاق 

اخواني الكرام لدي قاعدة بيانات عند تقسيمها لأول مرة تعمل بشكل جيد ولاكن عند تغيير مكان الجداول لقاعدة البيانات مثلاً نقلها من مجلد A  الى مجلد B وأعادة ربطها مرة اخرى تظهر رسالة  (مرجع كائن قاعدة البيانات غير صحيح)  . بحثت عن مثل هذا على الموقع ولاكن بعض الحلول لم تنجح معي انا استخدم اكسس 2010 

ارجو ان اجد الحل لديكم 

ولكم جزيل الشكر 

[أبو عبدالله الحلوانى]

ممكن حضرتك تصور لنا هذه الرسالة التي تظهر لك 

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

 

[f16]

في ١٧‏/١٠‏/٢٠٢٠ at 00:44, أبو عبدالله الحلوانى said:

ممكن حضرتك تصور لنا هذه الرسالة التي تظهر لك 

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

 

اسعد الله مسائك اخي ابوعبدالله 

والمعذرة على تأخري في الرد 

اعادة الربط لم يكن عن طريق الكود وانما عن طريق ادارة الجداول المرتبطه وذلك بضغط على احد الجداول ومن ثم الذهاب الى ادارة الجداول المرتبطه 

وهذه صورة للرسالة التي تظهر 

مع كل الشكر 

[د.كاف يار]

اخي الكريم جرب هذا الكود و انشاء الله يضبط معاك

Dim strDbFile As String
Dim strPassword As String
Dim strConnect As String

    strDbFile = "مسار قاعدة البيانات"
    strPassword = "كلمة المرور"
    strConnect = "MS Access;PWD=" & strPassword & ";DATABASE=" & strDbFile

    Dim tdf As DAO.TableDef
    Dim db As DAO.Database

    	Set db = CurrentDb

    For Each tdf In db.TableDefs       
        If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then
            tdf.Connect = strConnect
            tdf.RefreshLink
        End If
    Next

 

[f16]

اخي حسين كمال اشكرك على ردك الجميل 

ولاكن اين اضع هذا الكود هل في النموذج الواجهه عند فتح البرنامج ؟

[المهاجر ابو معاذ]

غالبا اعمل ضغط وصيانة لقاعدة البيانات هيظبط معاك عن تجربة

[أبو عبدالله الحلوانى]

في ١٩‏/١٠‏/٢٠٢٠ at 17:04, f16 said:

ولاكن اين اضع هذا الكود هل في النموذج الواجهه عند فتح البرنامج ؟

بعد اذن استاذنا الدكتور حسين كمال

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

تمنياتي بالتوفيق

[محمد القدسي]

استاذي ابو عبد الله ظهر عندي هذا الخطأ

 

[د.كاف يار]

16 ساعات مضت, محمد القدسي said:

استاذي ابو عبد الله ظهر عندي هذا الخطأ

 

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

اذ لم تكن تقاعدة البيانات محمية بكلمة مرور فقط ضع كومتين "" بدون مسافات بينهم

الواضح في الكود لديك هو انك وضعت مسافية بين الكومتين

في ٢١‏/١٠‏/٢٠٢٠ at 02:02, أبو عبدالله الحلوانى said:

بعد اذن استاذنا الدكتور حسين كمال

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

تمنياتي بالتوفيق

شكرا لك اخي الكريم على هذه الكلمات الجميلة

فعلا يمكن وضعه في ازرار و يمكن كذلك وضعه في حدث عند فتح النموذج الرئيسي فهو افضل 

[محمد القدسي]

نفس الخطأ استاذي @د.كاف يار يظهر الخطأ حتة عند وضع كومتين "" بدون مسافات بينهم

[f16]

في ٢٠‏/١٠‏/٢٠٢٠ at 21:02, أبو عبدالله الحلوانى said:

بعد اذن استاذنا الدكتور حسين كمال

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

تمنياتي بالتوفيق

جزاء الله خير اخي ابو عبدالله والعفو على تأخري في الرد

[د.كاف يار]

تفضل هذا العديل

Dim strDbFile, strConnect As String

    strDbFile = "مسار قاعدة البيانات"
    
    strConnect = "MS Access;DATABASE=" & strDbFile

    Dim tdf As DAO.TableDef
    Dim db As DAO.Database
    Set db = CurrentDb
    For Each tdf In db.TableDefs
        If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then
            tdf.Connect = strConnect
            tdf.RefreshLink
        End If
    Next