اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أفضل طريقة لعمل نسخ أحتياطية وأستعادتها


qathi

الردود الموصى بها

أخي @حلبي 

اخيرا وجدت الملف ..

الملف من تطوير أعتقد أخونا الغالي @محمد سلامة  أسائل الله أن يجزيه عنا وعن المسلمين خيراً

طبعاً الملف  الذي أضاف الأستعادة تطوير أحد أخوة من زملائنا بالمنتدى الغالي أوفيسنا .. لا أتذكر من الأخ.... الذي أخذت منه الملف .. أو أنه يطلع أخونا @مسفر وأنا لا أدري :rol:

وياريت أعرف أسمه أضعة بجانب الملف حتى أتذكره وأدعو له

المهم ... هو كذلك أسائل الله أن يجزيه عنا وعن المسلمين خيراً .. 

 

002.PNG.c4db4d3df895c94ef905f935660f0d04.PNG

 

مرفق الملف

Backup.rar

تم تعديل بواسطه qathi
  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

لا لم أرى هذا  الملف ولم يفتح معي 

ولكن السؤال هنا لماذا يقوم المبرمج بكل الاعمال التي يجب على المستخدم أن يقوم بها كأخذ نسخة احتياطية من البرنامج مثلا 

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

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

عدم أخذ نسخة احتياطية تكون مسؤولية المستخدم لا مسؤولية المبرمج 

هذا في رأي والله اعلم 

1540877825_.png.6933545b74bfaa5ca7de5f7df2e72466.png

شريط.png

تم تعديل بواسطه مسفر
رابط هذا التعليق
شارك

الاخ الفاضل / @qathi

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

كل عام وحضرتك بخير

رابط هذا التعليق
شارك

  • 2 years later...

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

واجهتني مشكلة وهي أنه عند نقل الجداول والنماذج والوحدة النمطية إلى قاعدة بيانات مصممة بالاكسس 2016 لا يعمل أمر حفظ النسخة الاحتياطية وعند تجربتها على اكسس 2000 ضبطت معاي بس انا ابغى تكون على النسخة 2016 ضروري لو تكرمت افدني عن ذلك الله يجزاك خير ولك وافر الشكر ...

image.png

الان, abraheem said:

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

واجهتني مشكلة وهي أنه عند نقل الجداول والنماذج والوحدة النمطية إلى قاعدة بيانات مصممة بالاكسس 2016 لا يعمل أمر حفظ النسخة الاحتياطية وعند تجربتها على اكسس 2000 ضبطت معاي بس انا ابغى تكون على النسخة 2016 ضروري لو تكرمت افدني عن ذلك الله يجزاك خير ولك وافر الشكر ...

image.png

@مسفر

رابط هذا التعليق
شارك

هل قمت بتغير في الأكواد ؟

هي رسالة تاتي غالبا لعدم تطابق النوع 

وغالبا أيضا تأتي  المشكلة في بعض البرامج وتكون مشكلة هذه الرسالة في اللغة 

تأكد من لغة الجهاز  

لأنه يعمل لدي وانا عندي 2016

 

تم تعديل بواسطه مسفر
رابط هذا التعليق
شارك

  • 2 years later...
في 14‏/7‏/2021 at 21:15, abraheem said:

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

واجهتني مشكلة وهي أنه عند نقل الجداول والنماذج والوحدة النمطية إلى قاعدة بيانات مصممة بالاكسس 2016 لا يعمل أمر حفظ النسخة الاحتياطية وعند تجربتها على اكسس 2000 ضبطت معاي بس انا ابغى تكون على النسخة 2016 ضروري لو تكرمت افدني عن ذلك الله يجزاك خير ولك وافر الشكر ...

image.png

@مسفر

ممكن رابط تحميل الأداة

وشكر

رابط هذا التعليق
شارك

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

 

هنا

11 ساعات مضت, moho58 said:

ممكن رابط تحميل الأداة

وشكر

تفقد المكتبات في محرر الـ VBA

  • Thanks 1
رابط هذا التعليق
شارك

2 ساعات مضت, Foksh said:

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

 

هنا

تفقد المكتبات في محرر الـ VBA

مشكور اخي بارك الله فيك

جاري التحميل والتجريب 

رابط هذا التعليق
شارك

  • 1 month later...
في 6‏/5‏/2019 at 17:13, qathi said:

أشكرك أخي @محمد سلامة لمرورك والرد ..

لا أخفي عليك أخي جربتها من قبل .. لكن في بعض الاحيان لاتعمل ولا اعرف السبب

هل لديك نسخة أحدث من هذه الاداة .. أنت تستخدمها في اعمالك .. هل قمت بعمل تسحينات للاداة ؟؟

أرجو أن ترفق الملف الاداة الاحدث ؟؟

المهم فيها الاستعادة 

وأن تكون مجربه وعملية

هذه صورة الاداة الذي عندي

01.png

السلام عليكم

أنا جربت هذه الأداة أحيانا تشتغل بصورة جيدة وتعمل نسخ احتياطي للجداول المرتبطة عند الخروج من البرنامج

 

وفي بعد الاحيان تتوقف تلقائيا عن العمل ممكن تشتغل يوم أو يومين تم تتوقف

 

الرجاء الإفادة وشكرا

وهل فبه أداة  فعالة تعمل مثلها

أو كود  شغال لعمل نسخة من الجداول  المرتبطة المحمية بكلمة سر  عند الخروج من البرنامج

وبارك الله فيكم

رابط هذا التعليق
شارك

1 دقيقه مضت, moho58 said:

أو كود  شغال لعمل نسخة من الجداول  المرتبطة المحمية بكلمة سر  عند الخروج من البرنامج

وبارك الله فيكم

جرب هذا المرفق أخي الكريم

واذا اردت الحفظ التلقائي عند الخروج للنسخة الإحتياطية ، فقط ضع امر الحدث في زر نسخة احتياطية عند زر الاغلاق او الخروج ، حسب ما تحب

Backup.zip

  • Thanks 1
رابط هذا التعليق
شارك

الان, Foksh said:

جرب هذا المرفق أخي الكريم

واذا اردت الحفظ التلقائي عند الخروج للنسخة الإحتياطية ، فقط ضع امر الحدث في زر نسخة احتياطية عند زر الاغلاق او الخروج ، حسب ما تحب

Backup.zipUnavailable

مشكور أخي على الرد والمتابعة

جربت لكن تطلع رسالة كما في الصورة

ممكن شرح وبارك الله فيك

1.jpg

رابط هذا التعليق
شارك

منذ ساعه, moho58 said:

جربت لكن تطلع رسالة كما في الصورة

بداية يجب عليك استيراد الجداول المرتبطة بالقاعدة الرئيسية من ملف TBL ، لإنه حتماً اختلف مسار الارتباط من جهازي لجهازك ؛ حتى تكتمل عناصر النسخ الاحتياطي.

  • Thanks 1
رابط هذا التعليق
شارك

6 دقائق مضت, Foksh said:

بداية يجب عليك استيراد الجداول المرتبطة بالقاعدة الرئيسية من ملف TBL ، لإنه حتماً اختلف مسار الارتباط من جهازي لجهازك ؛ حتى تكتمل عناصر النسخ الاحتياطي.

بارك الله فيك أخي الكريم بعد استيراد الجداول الطريقة شغالة

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

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

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

تؤدي نفس الوظيفة للآداة التي كنت اشتغل عيها سابقا

وشكرا مرة أخرى

 

 

 

  • Like 1
رابط هذا التعليق
شارك

39 دقائق مضت, moho58 said:

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

هذا المطلب الاول بعد التعديل ، تفضل

Backup.zip

  • Thanks 1
رابط هذا التعليق
شارك

23 ساعات مضت, Foksh said:

هذا المطلب الاول بعد التعديل ، تفضل

Backup.zip 213.51 kB · 0 downloads

مشكور أخي وبارك الله فيك و جعلها الله في ميزان حساناتك

المطلوب الأول شغال بامتياز

إن أمكن بقي المطلب الثاني

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

رابط هذا التعليق
شارك

2 دقائق مضت, moho58 said:

عدم تكرار النسخ التي في نفس اليوم والابقاء على نسخة واحدة في اليوم لآخر تحديث

هنا لمطلبك قد يكون له تبعات أخرى ، ولكن سأقوم بالتعديل وسأبلغك ، ولا يهمك 

  • Thanks 1
رابط هذا التعليق
شارك

2 ساعات مضت, moho58 said:

اخي ان كان لديك الوقت لا تنسى طلبي

أعتذر ، ولكن العمل أخذ وقتي اليوم ،

تفضل التعديل أخوي @moho58

 

 

Backup Update.zip

تم تعديل بواسطه Foksh
تم تعديل الملف
رابط هذا التعليق
شارك

الان, Foksh said:

أعتذر ، ولكن العمل أخذ وقتي اليوم ،

تفضل التعديل أخوي @moho58

 

Backup Update.zip 275.52 kB · 0 downloads

مشكور أخي على الرد والمتابعة و ربي يجعلها في ميزا حسانتك

أخي لكن لا يقوم بأنشاء نسخة احتياطية

قام بانشاء ملف  backup   لكنه فارغ

 

رابط هذا التعليق
شارك

10 دقائق مضت, moho58 said:

مشكور أخي على الرد والمتابعة و ربي يجعلها في ميزا حسانتك

أخي لكن لا يقوم بأنشاء نسخة احتياطية

قام بانشاء ملف  backup   لكنه فارغ

 

 

10 دقائق مضت, moho58 said:

قام بانشاء ملف  backup   لكنه فارغ

شوف التعديل الجديد في المشاركة السابقة ، تم تعديل الملف المرفق

 

مرفق فيديو للتوضيح

 

20231017_210115.zip

تم تعديل بواسطه Foksh
  • Thanks 1
رابط هذا التعليق
شارك

23 ساعات مضت, Foksh said:

 

شوف التعديل الجديد في المشاركة السابقة ، تم تعديل الملف المرفق

أخي الكريم الملف شغال

لكن ربما أنا لم استطع ايصال الفكرة جيدا والله سامحني كثيرا

تقريبا هذا ما أريد

أخي أنا اريد عمل نسخة احتياطية

كما في المثال التالي:

اليوم 2023/10/17  نفرض أني سجلت خروج من البرنامج  5 مرات    في مجلد  backup  أجد نسخة احتياطية واحدة فقط لآخر وقت تسجيل الخروج

في يوم 2023/10/18 نفرض أني سجلت خروج من البرنامج 8 مرات في مجلد backup   أجد نسخة احتياطية واحدة فقط لآخر وقت تسجيل خروج

في النهاية في مجلد bakup أجد نسختين احتياطيتين بتاريخين  2023/10/17  و  2023/10/18 

و هكذا...............

أ خي عند تسجيل الخروج يكون عمل نسخة احتياطية تلقائيا بدون رسالة تأكيد

نفس الشئ لحذف وتعويض النسخ السابقة إذا كان في نفس اليوم يكون تلقائي و بدون رسائل

نتمنى أكون  أوصلت لك الفكرة

و نتمنى يكون عندك الوقت وتقدر تساعدني

وسامحني أخي الكريم في تعبك وربي يجازيك بغير حساب

 

 

 

 

رابط هذا التعليق
شارك

تفضل أخي الكريم @moho58 ، وعذراً على التأخير بسبب العمل

في التعديل جعلت النسخ الإحتياطي ينشئ مجلد بتاريخ اليوم في مجلد Backup ، ويقوم بتخزين النسخ الإحتياطية فيه حتى يصبح التاريخ اليوم التالي ، فيقوم بحذف المجلد بتاريخ يوم أمس وإنشاء مجلد جديد بتاريخ اليوم وحفظ النسخ فيه ,, وهكذا

 

Backup New.zip

تم تعديل بواسطه Foksh
  • Thanks 1
رابط هذا التعليق
شارك

السلام عليكم

انا استخدم هذه الطريقة في النسخ الاحتياطي وقد اخذتها من المنتدى

Public Function CreateBackup() As Boolean
Dim Source As String
Dim Target As String
Dim a As Integer
Dim objFSO As Object
Dim Nam As String
'انشاء اسم النسخة الاحتياطية بالتاريخ والوقت مع تغيير الامتداد
Nam = "Acc_Tavuk_" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Hour(Time) & "-" & Minute(Time) & "-" & Second(Time) & ".ACC4"
' نأخد مسار قاعدة البيانات المرتبطة من استعلام من جداول النظام  
Source = DLookup("[database]", "track", "[ForeignName]='bill'")
' مسار الذي سوف تذهب اليه النسخة الاحتياطية
Target = "D:\2023\tavuk2023" & "\" & Nam

' create the backup
a = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
a = objFSO.CopyFile(Source, Target, True)
Set objFSO = Nothing
End Function

يتم استدعاء هذا الكود على الشكل التالي

CreateBackup

الاستعلام الذي نأخذ منه مسار قاعدة البيانات المرتبطة

image.png.28e207e1fc0340625b98c0869364d757.png

في النهاية احصل على نسخة احتياطية على الشكل التالي

image.png.11efa38b5dc09d31bda2aab13cb49035.png

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information