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

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

قام بنشر (معدل)

أخي @حلبي 

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

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

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

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

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

 

002.PNG.c4db4d3df895c94ef905f935660f0d04.PNG

 

مرفق الملف

Backup.rarFetching info...

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

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

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

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

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

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

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

1540877825_.png.6933545b74bfaa5ca7de5f7df2e72466.png

شريط.png

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

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

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

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

  • 2 years later...
قام بنشر

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

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

image.png

  في 14‏/7‏/2021 at 19:15, abraheem said:

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

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

image.png

Expand  

@مسفر

قام بنشر (معدل)

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

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

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

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

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

 

تم تعديل بواسطه مسفر
  • 2 years later...
قام بنشر
  في 14‏/7‏/2021 at 19:15, abraheem said:

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

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

image.png

@مسفر

Expand  

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

وشكر

قام بنشر

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

 

هنا

  في 15‏/9‏/2023 at 10:33, moho58 said:

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

وشكر

Expand  

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

  • Thanks 1
قام بنشر
  في 15‏/9‏/2023 at 21:43, Foksh said:

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

 

هنا

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

Expand  

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

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

  • 1 month later...
قام بنشر
  في 6‏/5‏/2019 at 15:13, qathi said:

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

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

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

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

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

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

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

01.png

Expand  

السلام عليكم

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

 

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

 

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

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

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

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

قام بنشر
  في 16‏/10‏/2023 at 17:59, moho58 said:

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

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

Expand  

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

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

Backup.zipFetching info...

  • Thanks 1
قام بنشر
  في 16‏/10‏/2023 at 18:13, Foksh said:

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

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

Backup.zipUnavailable

Expand  

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

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

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

1.jpg

قام بنشر
  في 16‏/10‏/2023 at 19:07, moho58 said:

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

Expand  

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

  • Thanks 1
قام بنشر
  في 16‏/10‏/2023 at 20:11, Foksh said:

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

Expand  

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

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

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

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

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

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

 

 

 

  • Like 1
قام بنشر
  في 16‏/10‏/2023 at 22:05, Foksh said:

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

Backup.zip 213.51 kB · 0 downloads

Expand  

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

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

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

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

قام بنشر
  في 16‏/10‏/2023 at 22:19, moho58 said:

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

Expand  

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

  • Thanks 1
قام بنشر
  في 16‏/10‏/2023 at 22:22, Foksh said:

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

Expand  

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

  • Like 1
قام بنشر (معدل)
  في 17‏/10‏/2023 at 15:26, moho58 said:

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

Expand  

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

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

 

 

Backup Update.zipFetching info...

تم تعديل بواسطه Foksh
تم تعديل الملف
قام بنشر
  في 17‏/10‏/2023 at 17:40, Foksh said:

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

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

 

Backup Update.zip 275.52 kB · 0 downloads

Expand  

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

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

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

 

قام بنشر (معدل)
  في 17‏/10‏/2023 at 17:52, moho58 said:

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

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

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

 

Expand  

 

  في 17‏/10‏/2023 at 17:52, moho58 said:

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

Expand  

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

 

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

 

20231017_210115.zipFetching info...

تم تعديل بواسطه Foksh
  • Thanks 1
قام بنشر
  في 17‏/10‏/2023 at 18:00, Foksh said:

 

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

Expand  

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

 

 

 

قام بنشر (معدل)

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

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

 

Backup New.zipFetching info...

تم تعديل بواسطه 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
قام بنشر

طبعا انا افضل ان يكون لدى الزبون فلاش رام ...عند غلق البرنامج يتم التحديث في الحاسوب و في الفلاش 

تحسبا لاي طاريء يحدث في الحاسوب 

  • 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