طريقة ربط الجداول بقاعدة البيانات

ارجو من الاخوة الاعضاء من لديه ادنى فكرة عن الموضوع ان لا يحرمنا الافادة

عزيزي السؤال الذي طرحته جدا مهم،

هذه محاولة مني لحل هذه المعضلة:

1- من خصائص النموذج في حدث "عند الخطأ" نقوم باختيار منشيء التعليمات البرمجية.

2- في شاشة التعليمات البرمجية قم بكتابة الأوامر التالية:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
' تنبيه المستخدم بحدوث مشكلة
MsgBox "لا يمكن الإتصال بقاعدة البيانات.", vbCritical
' فتح مربع حوار إدارة الجداول المرتبطة
DoCmd.RunCommand acCmdLinkedTableManager
' تجاوز تكرار ظهورة رسالة الخطأ
Response = -1
' إعلام المستخدم بأنه يجب أن يقوم بإعادة تشغيل قاعدة البيانات
MsgBox "يجب إعادة تشغيل قاعدة البيانات.", vbExclamation
' إغلاق قاعدة البيانات
DoCmd.Quit
End Sub

هذا اجتهاد مني وهو يصلح كحل مؤقت وسهل، وانا بانتظار رد الخبراء. :)

اقتباس

عزيزي السؤال الذي طرحته جدا مهم،

هذه محاولة مني لحل هذه المعضلة:

1- من خصائص النموذج في حدث "عند الخطأ" نقوم باختيار منشيء التعليمات البرمجية.

2- في شاشة التعليمات البرمجية قم بكتابة الأوامر التالية:

كودPrivate Sub Form_Error(DataErr As Integer, Response As Integer)

' تنبيه المستخدم بحدوث مشكلة

MsgBox "لا يمكن الإتصال بقاعدة البيانات.", vbCritical

' فتح مربع حوار إدارة الجداول المرتبطة

DoCmd.RunCommand acCmdLinkedTableManager

' تجاوز تكرار ظهورة رسالة الخطأ

Response = -1

' إعلام المستخدم بأنه يجب أن يقوم بإعادة تشغيل قاعدة البيانات

MsgBox "يجب إعادة تشغيل قاعدة البيانات.", vbExclamation

' إغلاق قاعدة البيانات

DoCmd.Quit

End Sub

هذا اجتهاد مني وهو يصلح كحل مؤقت وسهل، وانا بانتظار رد الخبراء.

معلومات مهمة ورائعة وبالنسبة لي استفدت جدا منها بارك الله فيك

ولكن شاهدت في بعض البرامج بانه بالفعل يعطي مثل تلك المسج بعدم التعرف على قاعدة لبيانات ويفتح لك dialog من اجل اختيارها ومن ثم يعطي مسج على الفور بانه تم الاتصال والتعرف على قاعدة البيانات

فأرجو من الاخوة الاعضاء من لديه خبرة في هذا الامر بان لا يبخل علينا

بارك الله فيك

اقتباس

شاهدت في بعض البرامج بانه بالفعل يعطي مثل تلك المسج بعدم التعرف على قاعدة لبيانات ويفتح لك dialog من اجل اختيارها ومن ثم يعطي مسج على الفور بانه تم الاتصال والتعرف على قاعدة البيانات

عزيزي جرب الكود الذي كتبته لك

لأنه يظهر مربع حوار إدارة الجداول المرتبطة في أحد أجزائه،

DoCmd.RunCommand acCmdLinkedTableManager

أما الخطوة المتعلقة بإعادة تشغيل قاعدة البيانات فهي خطوة إختيارية وليست مطلوبة،

ووضعتها لهدف معين ربما ستكتشفه بعد أن تجرب الكود بنفسك.

ومع ذلك أنا أقر بأنه توجد طريقة أخرى إحترافية أكثر، ولكن للأسف لم أستطع التوصل إليها لغاية الآن.

تقبل تحياتي.

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

شكرا لتفاعلك معي اخي العضو الكريمbollbol

م

أخي العزيز..

يرجى مراجعة هذا الموضوع للأهمية القصوى :)

/index.php?showtopic=165036