ابوخليل قام بنشر يوليو 16, 2009 قام بنشر يوليو 16, 2009 حفظ قاعدة البيانات بأخذ نسخة ووضعها على D:\ عند إغلاق قاعدة البيانات ( أي في كل مرة تغلق فيها قاعدة البيانات ) وتسميتها بالعام مثلا 1429/1430 يتم تحديث بيانات النسخة الاحتياطية عند كل إغلاق ، وفي نهاية السنة وبداية سنة جديدة يتم نسخ قاعدة جديدة باسم العام الجديد ليبقى لكل عام قاعدة تخصه . تقبلوا تحيات أخيكم ... ابو خليل.. في المرفقات المثال قم بعمل التالي : 1 - اجلب الوحدة النمطية SaveFolder الموجودة في المثال إلى قاعدة بياناتك فقد تحتاج اليها مستقبلا عندما تود تحديد مكان النسخة 2- يوجد في النموذج مربعي نص مخفية قم بنسخهما إلى النموذج الرئيسي في قاعدة بياناتك 3 في حد ث عند الإغلاق للنوذج الرئيسي الصق هذا الكود : كود On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = [DBOld] DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) NewFile = [DBNew] & "\" & DBwithoutEXT & "-" & (Format(Date, "yyyy") - 1) & "-" & Format(Date, "yyyy") & Right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub وفي حدث عند التحميل الصق هذا الكود : كود '[DBOld] = CurrentDb.Name اختيار قاعدة البيانات الحالية [DBOld] = "c:\z1.mdb" 'اختيار مسار القاعدة البديلة [DBNew] = "D:\" 'اختيار مكان حفظ النسخة __________________.rar 3
عبيدالله قام بنشر يوليو 17, 2009 قام بنشر يوليو 17, 2009 يا ربي بارك لي في ابو خليل وبارك له في علمه آآآآآآآآآآآآآآآمييييييييييييييييين مشكور اخي ابو خليل مشكور جداً جداً جداً واسأل الله ان يقدرني ورد لك الجميل
ابوخليل قام بنشر يوليو 18, 2009 الكاتب قام بنشر يوليو 18, 2009 الحمد لله أن تحقق المطلوب لقد رددت الجميل بشكرك هذا ودعائك .
راعي الغنم قام بنشر أبريل 7, 2014 قام بنشر أبريل 7, 2014 الله ينور دربك يابوخليل وافضالك علي سابقة وياريت تضيف هذي لجمايلك اريد النسخ يكون لقواعد بيانات الجداول من داخل قاعدة بيانات الواجهة والنماذج بمعنى النسخ الاحتياطي لقواعد بيانات غير القاعدة المفتوحة والتي يتم الحدث من داخلها ارجو ان اكون وضحت المطلوب...
ابوخليل قام بنشر أبريل 7, 2014 الكاتب قام بنشر أبريل 7, 2014 [DBOld] = "c:\z1.mdb" 'اختيار مسار القاعدة البديلة هذا السطر تستطيع من خلالة تحديد اي قاعدة بيانات تريد اخذ نسخة منها 1
جمال جبريل قام بنشر سبتمبر 7, 2014 قام بنشر سبتمبر 7, 2014 السلام عليكم ورحمة الله وبركاته اعجبني هذا المثال جدا ، وهل يمكنا مثلا اخذ نسخة ووضعها في نفس مسار قاعدة البيانات المراد اخذ نسخة منها
ابوخليل قام بنشر سبتمبر 7, 2014 الكاتب قام بنشر سبتمبر 7, 2014 هذا ممكن وهو موجود في التوضيح اعلاه وهذا مثال آخر محدث استبدلنا فيه حقول المسارات بمتغيرات نصية ويحفظ النسخة داخل مجلد البرنامج Public Function DBOld() DBOld = CurrentDb.Name ' قاعدة البيانات الحالية 'DBOld = Application.CurrentProject.Path & "\dbData.db"' قاعد اخرى موجودة بالمسار نفسه End Function طبعا ستختار واحدة فقط والاخرى يلزم تعطيلها او حذفها Public Function DBNew() DBNew = Application.CurrentProject.Path & "\" 'الموقع الجديد للنسخة داخل مجلد البرنامج End Function Public Function BKUp() On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = DBOld DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) Application.SetOption "Use Hijri Calendar", False NewFile = DBNew & "\" & Format(Now, "yyyymm") & ".txt" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Function End Function Private Sub zerExit_Click() BKUp DoCmd.Close End Sub نسخة احتياطية .rar
جمال جبريل قام بنشر سبتمبر 7, 2014 قام بنشر سبتمبر 7, 2014 وفق الله وفتح لك ابواب العلم ، وتنفع الاسلام والمسلمين ، ويكون لك درجات واجر عند الله تعالي, سؤال اخير ، هل يمكنني اضافة كود لضغط البيانات واصلاحها ، بعد هذا الامر مباشرة ، حتى ياخذ البرنامج نسخة احتياطية ، مع ضغطها واصلاحها في نفس الوقت برمجياً. ولك جزيل الشكر
صالح حمادي قام بنشر يونيو 19, 2016 قام بنشر يونيو 19, 2016 ماشاء الله يا أستاذ أنت في كوكب و نحن في كوكب آخر بارك الله فيك و لك و عليك و جزاك الله كل خير
ابوخليل قام بنشر يونيو 19, 2016 الكاتب قام بنشر يونيو 19, 2016 شكرا اخوي صالح على هذا الاطراء ولا كوكب ولا شي يمكن الاسبقية او ما تسمى الخبرة فكنت احفظ الاعمال ثم انقلها اليكم وربما ينطبق علي المثل : رب حامل فقه الى من هو افقه منه 2
محمد سلامة قام بنشر يونيو 20, 2016 قام بنشر يونيو 20, 2016 6 ساعات مضت, ابوخليل said: شكرا اخوي صالح على هذا الاطراء ولا كوكب ولا شي يمكن الاسبقية او ما تسمى الخبرة فكنت احفظ الاعمال ثم انقلها اليكم وربما ينطبق علي المثل : رب حامل فقه الى من هو افقه منه متعك الله بالصحة والعافية يا ابا خليل وغفر الله جميع ذنوبك في هذا الشهر الطيب المبارك 1
صالح حمادي قام بنشر يونيو 20, 2016 قام بنشر يونيو 20, 2016 و الله نعم الرجل أنت يا أستاذنا الكريم دائما يقولون أن الذي لديه العلم الوفير سمته التواضع و حب مساعدة الناس و ها نحن الآن نقف مصدقينا لهذا القول. أدامك الله نافع و منتفعا بلعمك و أنار الله دربك في حياتك و أنار لك قبرك في مماتك إن شاء الله "اللهم أجمعني بعبدك هذا في الجنة مع نبينا محمد صلى الله عليه و سلم و جميع المسلمين يا رب العالمين".
صالح حمادي قام بنشر يونيو 21, 2016 قام بنشر يونيو 21, 2016 لقد حاولت تطبيق البرنامج على قاعدة بيانات عندي فلم يفلح الأمر و لا أدري أين الخطأ. التلاميذ.rar
ابوخليل قام بنشر يونيو 21, 2016 الكاتب قام بنشر يونيو 21, 2016 يبدو انك جمعت بين الطريقتين من غير قصد في اول مشاركة لي يتم اخذ مسار القاعدة ومكان النسخ من مربعي نص تم انشاؤهما داخل النموذج ولكن في مشاركتي الثانية رقم 7 (تعديل وتحديث ) يتم اخذ المسارات من وحدتين نمطيتين ولو تلا حظ ان المسميات واحدة فأنت جمعت بين الطريقتين : أنشأت مربعي نص داخل النموذج + استخدمت الوحدات النمطية وبالمسمى نفسه فحصل التعارض الحل : احذف مربعي النص 2
صالح حمادي قام بنشر يونيو 21, 2016 قام بنشر يونيو 21, 2016 شكرا أستاذنا الفاضل. لقد تم تنفيذ البرنامج و قام بعمل نسخة احتياطية بشكل مستند نص أريد عمل زر عند الضغط عليه ينشئ نسخة أحتياطية لقواعد البيانات (الجداول فقط) في مجلد البرنامج و يقوم بتفريغ الجداول المصدر من أجل تقليل حجم البرنامج. و عمل زر آخر يقوم بإستدعاء النسخة الإحتياطية للبرنامج. أرجوا أن ألا أكون قد أثقلت عليك يا أخي الكريم.
ابوخليل قام بنشر يونيو 22, 2016 الكاتب قام بنشر يونيو 22, 2016 ان شاء الله كل ما تفضلت به يمكن عمله ولكن من واقع الخبرة والعمل ارى ان الطريقة هذه لا تخدم المبرمج اقصد انه من الافضل فصل الجداول لوحدها وجعل الواجهات في قاعدة أخرى والعمل على البرنامج من هذا الاساس هذه الطريقة لها فوائد عديدة جمة 1
صالح حمادي قام بنشر يونيو 22, 2016 قام بنشر يونيو 22, 2016 شكرا أستاذ أبوخليل سوف أقوم بتقسيم البرنامج. و أنا في إنتظار إجابتك على الأسئلة السابقة. تقبل الله منا و منكم الصيام و القيام.
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.