• 0
pero110

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

سؤال

السادة الكرام

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

وفي كل مرة يتم الخروج فيها تستبدل النسخة المحفوظة سابقا بالجديدة

شكرا للقراءة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

أخى الكريم

تفضل المرفق.

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

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

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

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

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

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

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

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

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

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

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

تحياتى

محمد ندا

.

My_Database.rar

تم تعديل بواسطه Mohamed Nada
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا جزيلا

باركك الله

والله معلم

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

تحياتى

محمد ندا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


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

حياك الله اخي 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 مسار القاعده والمجلد التي فيه القاعده

شكرا

تم تعديل بواسطه at_aziz
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .