اخي ناجي شكرا لمشاركتك المشكله تكمن في مسار قاعدة البيانات عندما اقوم بعمليه النسخ الإحتياطي
ارجو التعديل على البرنامج في المرفقات ووضع كود النسخ الأحتياطي الصحيح وكذلك كود استعادة النسخة الاحتياطية وشكرا سلفا
أولاً لديك متغيران باسم DB من النوع ADODB.Connection واحد في الـ Module و الآخر في Form2. يكفي للمشروع Connection واحد معرف على أنه Public في الـ Module. و لهذا احذ عبارة Dim DB As New ADODB.Connection الموجودة في Form2 و كذلك سطر DB.Open الموجود في الحدث Form_Load التابع لـ Form2 أيضاً.
ثانياً كود حفظ النسخة الاحتياطية و الاستعادة في المرفقات.
أخبرتك في الرد السابق أن لا تترك في البرنامج متغير من النوع ADODB.Connection إلا المتغير DB الموجود في الـ Module. و كذلك جمل DB.Open إلا الموجودة في الإجراء Connect الموجود أيضاً في الـ Module أو تلك المستعملة لفتح الاتصال بعد إغلاقه لغرض معين كما هو الحال عند النسخ و الاستعادة.
سبب الخطأ هو أن لديك أكثر من اتصال بقاعدة البيانات و بالتالي عندما نغلق الاتصال الافتراضي عند النسخ أو الاستعادة فإن هناك تصال آخر مازال موجوداً - أي أن قاعدة البيانات مازالت مفتوحة و بالتالي لا يمكن نسخها و لا استعادتها.
أخي ناجي المحترم لقد جربت كما نصحتني فنجح معي الأمر في المرفق الأول ولكن في المرفق التاني (pharma ) لم ينجح معي وحصلت أخطاء أرجو منك التكرم والتعديل عليه ولكم جزيل الشكر