مطلوب عمل باك اب (backup) لقاعدة بيانات

اخي الفاضل : محمد ابراهيم

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

بعد القيام بعمل كود النسخة الإحتياطية اين تريد ان يكون مكان الملف 

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

بالتوفيق

بعد إذن أستاذتنا زهرة

نفذت المطلوب ثم وجدت مشاركتك

ووجدت موضوع آخر يطلب صاحبه تعديل مثال أ / MAXXin لعمل نسخة احتياطية

لذلك قلت أضع الحل ليستفيد كل من الموضوعين وأستأذن سيادتك

وبالمرفق المعدل :

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

ويمكن بالطبع اختيار أي اسم آخر للمجلد

كذلك يمكن تحديد مسار المجلد إما بجوار قاعدة البيانات أو باختيار مسار آخر

ويعمل نموذج التخزين بعد اغلاق النموذج الأصلي

Calendar 1.rar

zahrah كتب:

اخي الفاضل : محمد ابراهيم

 

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

 

بعد القيام بعمل كود النسخة الإحتياطية اين تريد ان يكون مكان الملف 

 

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

 

بالتوفيق

شكرا للاهتمام و المساعدة اختى الفاضلة : زهراء

وارجو استخدام هذا المسار لحفظ النسخ (F:\ssc\archive)

شاكر لحسن التعاون

أمير2008 كتب:

بعد إذن أستاذتنا زهرة

نفذت المطلوب ثم وجدت مشاركتك

ووجدت موضوع آخر يطلب صاحبه تعديل مثال أ / MAXXin لعمل نسخة احتياطية

لذلك قلت أضع الحل ليستفيد كل من الموضوعين وأستأذن سيادتك

 

وبالمرفق المعدل :

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

ويمكن بالطبع اختيار أي اسم آخر للمجلد

 

كذلك يمكن تحديد مسار المجلد إما بجوار قاعدة البيانات أو باختيار مسار آخر

ويعمل نموذج التخزين بعد اغلاق النموذج الأصلي

جزاك الله خيرا اخى الفاضل : أمير 

 وجارى اختبار البرنامج

وشكرا على المجهود

أمير2008 كتب:

بعد إذن أستاذتنا زهرة

نفذت المطلوب ثم وجدت مشاركتك

ووجدت موضوع آخر يطلب صاحبه تعديل مثال أ / MAXXin لعمل نسخة احتياطية

لذلك قلت أضع الحل ليستفيد كل من الموضوعين وأستأذن سيادتك

 

وبالمرفق المعدل :

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

ويمكن بالطبع اختيار أي اسم آخر للمجلد

 

كذلك يمكن تحديد مسار المجلد إما بجوار قاعدة البيانات أو باختيار مسار آخر

ويعمل نموذج التخزين بعد اغلاق النموذج الأصلي

الجميل امير

والجميلة زهرة

مجهود رائع يستحق الشكر

هل من الممكن التعديل على الكود ليقبل قاعدة البيانات من نوع  (.accdb) حيث انه يعمل بشكل جيد على قاعدة البيانات التي لدي 2010 ولكن لايتم فتح الملف بعد الحفظ

مثال

ناصر المصلح كتب:

 

الجميل امير

والجميلة زهرة

 

مجهود رائع يستحق الشكر

هل من الممكن التعديل على الكود ليقبل قاعدة البيانات من نوع  (.accdb) حيث انه يعمل بشكل جيد على قاعدة البيانات التي لدي 2010 ولكن لايتم فتح الملف بعد الحفظ

 

مثال

 

اخي الفاضل : ناصر

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

استخدم هذا الكود الجديد لنسخ اكسيس 2007  و 2010 و 2013  لأن الكود الموجود في المثال هو لنسخ  اكسيس 97 و 2000 و 2002  و  2003

لذا يجب ان تقوم بحذف القديم واستبداله بهذا الكود الجديد

Public Function za_backup()Dim sourceFile As String, destinationFile As StringDim aFSO As VariantDim path As String, name As String sourceFile = CurrentProject.FullNamepath = "F:\ssc\archive"name = CurrentProject.namedestinationFile = path & "\" & Left(name, Len(name) - 6) & Year(Now) & ".accdb" If Dir(destinationFile) <> "" ThenKill destinationFileEnd If If Dir(destinationFile) = "" Then Set aFSO = CreateObject("Scripting.FileSystemObject")aFSO.CopyFile sourceFile, destinationFile, True MsgBox "  مبروك .... تم عمل نسخة إحتياطية الى    " & vbNewLine & vbNewLine & destinationFile, vbInformation + vbMsgBoxRtlReading, "backup"End IfEnd Function

path = "F:\ssc\archive"

path = "C:\MyArchive"

ثم قم بإستدعاؤه من تحت زر الأمر بهذه الطريقة

Private Sub BackUP_Click()Call za_backupEnd Sub

بالتوفيق

تم دمج الكود القديم مع الكود الجديد في كود واحد

جرب الصيغتين

Calendar 2 mdb.rar

Calendar 2 accdb.rar

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

كان ليا طلب و الحقيقة تلقيت اكثر مما كنت  اتمنى

جعلكم الله من اهل العلم وانار بكم سبل الهدى والرشاد 

مع تحياتى ..

صراحة نفتخر بوجود مبرمجين امثالكم

الله يبعد عنكم كل مكروه