اذهب الي المحتوي
أوفيسنا

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

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

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

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

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

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





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...
قام بنشر

الاخ 

عبد الله قدور

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

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

هل بالامكان وضع الكو بعد التعديل

وشكرا

  • 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