سؤال عن عمل نسخة من القاعدة عند الخروج

أخى الكريم

تفضل المرفق.

إضغط فى النموذج الرئيسى على زر أمر الخروج.

سيفتح لك نموذج الخروج للتأكيد

عند الضغط على نعم سيقوم بعمل نسخة من برنامجك .. مضافاً إليها كلمة ____ Copy وذلك للتفريق بين أصل القاعدة والنسخة,

سيتم وضع النسخة على الـــD بالهارد ديسك الخاص بك (على الـ D مباشرة).

ولتغيير هذا المسار عليك بالتالى:

إفتح نموذج تأكيد الخروج واسمه Frm_Exit فى وضع التصميم.

فى خصائص الزر (نعم) ولونه الأخضر إذهب إلى خصائص الزر وعدل فى السطر التالى فى الكود الخاص بحدث عند النقر أو On Click بالمسار الذى تريده.

NewFile = "D:" & "\" & DBwithoutEXT & " ____ Copy" & right(DBwithEXT, 4)

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

ولضم هذا لبرنامجك .. إستورد النموذج Frm_Exit واجعل زر أمر فى نماذجك يفتح هذا النموذج عندما يريد المستخدم الخروج.

لعل هذا هو ما طلبت.

تحياتى

محمد ندا

.

My_Database.rar

شكرا جزيلا

باركك الله

والله معلم

تمت الاجابة وهو المطلوب

وبارك عليك وعلى كل فريق وأعضاء منتدانا الغالى.

تحياتى

محمد ندا

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

اقتباس

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

حياك الله اخي hema212006 وجميع الاخوان

استخدم هذا الكود في حدث عند النقر

وإن شاء الله يكون هو المطلوب

If MsgBox("سوف تقوم الان بأجراء نسخة احتياطية لقاعدة البيانات   هل بالفعل تريد إجراء ذلك", _
    vbCritical + vbYesNo, _
    "تحذير") = vbYes Then
Call Shell("xcopy /y d:\ASF\ASF_be.mde d:\backup", 1)

    End If

d:\backup اسم المجلد اللي تكون فيه النسخة الاحتياطيه مع تحديد المسار

ASF_be.mde اسم القاعدة المرتبطه اللتي نريد عمل نسخه احتياطه لها

d:\ASF مسار القاعده والمجلد التي فيه القاعده

شكرا