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

(تمت الاجابة)عمل نسخه احتياطية


safwatscc

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

مطلوب عند اغلاق البرنامج

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

هذا كود شغال على الاكسل يقوم بنفس العملية

هل يمكن تعديلة الى الاكسيس





Shell "cmd.exe /C copy " & """" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & """" & " " & """" & "D:\backup1\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-AMPM-") & ThisWorkbook.Name & """", 0




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

اليك الكود يا اخي

Dim oldfile, NewFile, CopyMyDB

oldfile = Application.CurrentProject.Path & "\new\new.accdb"

NewFile = Me.yy

CopyMyDB = "cmd.exe /C copy " & """" & oldfile & """" & " " & """" & NewFile & """"

Shell CopyMyDB, 0



حيث NewFile مسار النسخة الاحتياطية ( مكانها الجديد)

و oldfile مسار قاعدة البيانات المراد نسخها

وشكرا 

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

الاخ الفاضل بارك الله فيك

اين يتم وضع الكود حيث عند اغلاق وانهاء الاكسيس يقوم بعمل النسخة الاحتياطية

اخى اعزرنى لقلة خبرتى

اين اضع المسار الجديد للنسخة الاحتياطية وهو D:\Access\CopyStudent

والمسار االحالى للملف هو D:\Access

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

الاخ الفاضل abdalla89

كل عام وانت بخير

مرفق ملف ارجو اضافة كود اعمل النسخة عليه

المسار الجديد للنسخة الاحتياطية وهو فولدر D:\Access\CopyStudent

والمسار االحالى للملف هو مجلد فولدر D:\Access

student.rar

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

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

student2.rar

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

السلام عليكم

جزاك الله خيرا اخونا عبدالله عسى المانع يكون خيرا

السلام عليكم

مشكور كيتر اخي كابون

المانع هو بعض الاعمال التي منعتني من الدخول الى النت في هذه الفترة 

شكرا على اهتمامك

واتمنى التوفيق  للاخ الكريم safwatscc

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

بارك الله فيكم جميعا

هذا الكود جميل جدا ورائع جدا

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

كيف انقل هذا الكود الى حدث عند اغلاق ملف الاكسيس نفسة وليس اغلاق النموذج

وكل عام وانتم بخير

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

اخي safwatscc

ضع نموذج واجه للبرنامج يفتح مع البرنامج ولا يغلق الا باغلاق البرنامج و ضع الاكواد التي تريدها فيه

هذا اولا 

اما ثانيا

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

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

اخي safwatscc

ضع نموذج واجه للبرنامج يفتح مع البرنامج ولا يغلق الا باغلاق البرنامج و ضع الاكواد التي تريدها فيه

هذا اولا

اما ثانيا

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

الاخ الفاضل الاستاذ عبدالله بارك الله فيك

انا عامل نموذج يفتح مع بداية البرنامج ويقوم باخفاء اشرطة الادوات والقوائم

ثانيا / انا لا اريد ان اضع نموذج نسخ منعا للنسيان من قبل المستخدمين وان البرنامج لا يستخدم فى العام الا اسبوعين فقط

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

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

او 

ضع الكود في وحدة نمطية ثم من كل نموذج عند الاغلاق اتصل بالوحدة النمطية

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

لذلك افضل اخذ نسخة احتياطية للقاعدة بعد الانتهاء من العمل ويتغير اسمها ليصبح التاريخ و الوقت بدقيقة و الثانية

هذا رأيي

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

الاخ الفاضل الاستاذ عبدالله

قمت بادراج الكود فى نموذج لا يغلق الا مع البرنامج

وشغال كويس

واكتملت الفائدة بحمد الله تعالى

وبارك الله فيك وفى الاستاذ كابون

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

  • 4 years later...

السلام عليكم

لدي مثال قاعدة ايانات تعمل على الشبكة و بها عدة اجهزة متصل بالسيرفر ، هل ممكن عمل هذا التطبيق عليه

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

 

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

  • 2 months later...
  • 3 weeks later...
  • 1 year later...

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