هل أستطيع عدم تعديل اسم قاعدة البيانات

وعليكــم السـلام ورحمة الله وبركاتـه..

تفضل الحل:

اقتباس

Private Sub Form_Load()

On Error GoTo Err_Form_Load

Dim CurrentFilePath As String

CurrentFilePath = Application.CurrentProject.Path & "\xxx.mdb"

End If

Exit_Form_Load:

Exit Sub

Err_Form_Load:

MsgBox "لقد تم تغيير إسم قاعدة بيانات، سيتم إغلاق التطبيق.", vbCritical, "رسالة"

DoCmd.Quit

Resume Exit_Form_Load

End Sub

مع تغيير: xxx.mdb إلى إسم قاعدة البيانات المطلوبة.

جزاك الله خيراً يا أخي الكريم وبارك فيكـ

جربت الكود ولكن للأسف لم يعمل قد يكون ناقص لوجود end if دون داله الـ if

شكرا لك .

المعذرة أخي الكريم

لقد تسرعت في إجابة السؤال

أمهلني بعض الوقت وشكرا.

شكرا لك ويعطيك العافيه

عذرا على الإطالة

هذا كود صغير ومجرب

يقوم بأغلاق قاعدة البيانات في حالة تغيير إسم الملف،

وبإمكانك أن تعدل عليه بما شئت.

ما قصرت يا أخ كويت والله يعطيك العافيه

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

على العموم أشكرك أخي الكريم وفقك الله لك خير .

أخى Kwait الكود رائع وبسيط وفعال.

واسمح لى ....

أخى عبد المجيد

يمكنك وضع الإسم الأصلى لقاعدة البيانات فى الرسالة التى تظهر للمستخدم و بذلك لا يضيع الإسم الأصلى للقاعدة.

مثال:

MsgBox "إسم ملف قاعدة البيانات قد تم تغييره،.. يرجى العودة للإسم الأصلى للقاعدة وهو ×××××××××× ... سيتم إغلاق التطبيق.", vbCritical, "رسالة"

حيث أن ××××××× هو اسم القاعدة الأصلى.

تحياتى

محمد ندا