مساعدة فى حل مشكلة

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

اذا كنت مضطراً لتشغيل البرنامج من سطح المكتب

لا تعمل نسخ من الملف التنفيذي لسطح المكتب " افعل إختصار فقط " Shortcut "

في حدث تحميل النموذج [Form_Load] أكتب الكود التالي :

 Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\DatabaseName"
'أو اكتب مسار قاعدة البيانات 
'مثلاً
Data1.DatabaseName = "C:\DatabaseName"
End Sub

ولكن أخي الكريم البرنامج يأخذ وقتاً طويلاً حتى يفتح لماذا ؟ :unsure:

ثم تظهر رسالة ، تم التحميل اضغط Ok للدخول :blink:

اذا كان مسار الداتا بيز مربوط بمسار البرنامج مثلا بنفس الملف استعمل الامر app.path اما ان كان المسار غير مرتبط بمسار البرنامج فاكتب المسار كاملا

data1.databasename="c:\m.mdb"

السلام عليكم

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

G:\program\projects\results of en center\ENresult.mdb

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

أشكركم جميعاً على الرد