نموذج نسخ احتياطي (يحتاج الى تعديل بسيط)

[TQTHAMI]

 

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

مرفق نموذج نسخ احتياطي اره جميل وخادمني وقد عدلت عليه بعض الاشياء قد يستفيد منه الي مثل حالاتي لان عملية النسخ الاحتياطي تهدف الى المحافظه على البيانات المدخله في البرنامج من جراء العبث بالبرنامج  أو خلل في البرنامج . لذا يتوجب القيام بعملية النسخ الاحتياطي بعد كل شهر  أو حسب المدة التي تراها مناسبه . ويفضل تصدير النسخه الاحتياطيه في الدرايف \:D  أو في درايف موجود بجهازك بخلاف الدرايف \:C   

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

فمن يجد عند ه الوقت نرجو من الله ثم منه بالتعديل عليه واصلاح هذي المشكله 

والشكر مقدما لكل اعضاء المنتدى من خبراء واعظاء مميزين وغيره

تقبلوا تحياتي 

برنامج النسخ المعدل الاخير.mdb

[أ / محمد صالح]

ربما لا تحتاج إلى النموذج 1 ولا التايمر الخاص به

في حدث عند الفتح للنموذج الرئيس في البرنامج يمكن وضع الكود الموجود في التايمر

If Day(Date) = 1 Then
DoCmd.OpenForm "frmBackupCompact1"
End If

وبهذا سيفتح النموذج مرة واحدة عند فتح النموذج الرئيس

لأن موضوع التايمر يستهلك ذاكرة الجهاز

[TQTHAMI]

يسعد لي صباحك 

نعم كود جميل من استاذ 

بارك الله فيك