نسخة احتياطية

تفضل اخي الكريم : ابراهيم

سوف نستخدم هذا الكود لعملية النسخ الإحتياطي للملف وفي حالة عدم وجود المجلد Save_db على السواقة D او تم نقله الى مكان آخر سيتم انشاء المجلد ووضع النسخة الإحتياطية للملف بداخله

Private Sub CmdBackUP_Click()
Dim strDirectoryPath As String
strDirectoryPath = "d:Save_db"
If Dir(strDirectoryPath, vbDirectory) = "" Then MkDir strDirectoryPath
FileCopy "d:\post.mdb", "d:Save_db\" & Format("post") & "~" & Format(Date, "dd-mm-yyyy") & "~" & Format(Time, "hh-mm-ss") & ".mdb" & ""
MsgBox "تمت عملية النسخ الإحتياطي بنجاح", vbInformation, " مبروك "
End Sub

اذهب الى السواقة D وتأكد بنفسك اذا لم يكن هناك مجلد قد تم انشاؤه مسبقا فسيتم انشاء المجلد Save_db ووضع النسخة الإحتياطية للملف post به واخبرنا بالنتيجة بارك الله بك

za-BackUp.rar

بالتوفيق

zahrah كتب:

تفضل اخي الكريم : ابراهيم

سوف نستخدم هذا الكود لعملية النسخ الإحتياطي للملف وفي حالة عدم وجود المجلد Save_db على السواقة D او تم نقله الى مكان آخر سيتم انشاء المجلد ووضع النسخة الإحتياطية للملف بداخله

Private Sub CmdBackUP_Click()
Dim strDirectoryPath As String
strDirectoryPath = "d:Save_db"
If Dir(strDirectoryPath, vbDirectory) = "" Then MkDir strDirectoryPath
FileCopy "d:\post.mdb", "d:Save_db\" & Format("post") & "~" & Format(Date, "dd-mm-yyyy") & "~" & Format(Time, "hh-mm-ss") & ".mdb" & ""
MsgBox "تمت عملية النسخ الإحتياطي بنجاح", vbInformation, " مبروك "
End Sub

اذهب الى السواقة D وتأكد بنفسك اذا لم يكن هناك مجلد قد تم انشاؤه مسبقا فسيتم انشاء المجلد Save_db ووضع النسخة الإحتياطية للملف post به واخبرنا بالنتيجة بارك الله بك

za-BackUp.rar

بالتوفيق

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

وجزاكي الله كل خير

لكن بقي السؤال الاول لم يتم الاجابة عنه

وهو اذا نقل الملف المراد نسخه

مثلا على سطح المكتب عندها لن يتم النسخ

المطلوب هل توجد طريقة لتحديد مسار الملف تلقائيا

وجزاكم الله عنا كل خير

ebraheem-w كتب:

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

وجزاكي الله كل خير

لكن بقي السؤال الاول لم يتم الاجابة عنه

وهو اذا نقل الملف المراد نسخه

مثلا على سطح المكتب عندها لن يتم النسخ

المطلوب هل توجد طريقة لتحديد مسار الملف تلقائيا

وجزاكم الله عنا كل خير

لا يوجد اي مشكلة اخي الكريم : ابراهيم

تم تعديل المثال بناء على طلبك

الآن قم بنقل الملف الأساسي Post.mdb من مكانه الى اي مكان تختاره سواء على سطح المكتب او حتى على سطح كوكب الزهره فالبرنامج سيتعرف على مكانه بعد فتح واختيار مكان الملف

za-BackUp2.rar

بالتوفيق

zahrah كتب:

لا يوجد اي مشكلة اخي الكريم : ابراهيم

تم تعديل المثال بناء على طلبك

الآن قم بنقل الملف الأساسي Post.mdb من مكانه الى اي مكان تختاره سواء على سطح المكتب او حتى على سطح كوكب الزهره فالبرنامج سيتعرف على مكانه بعد فتح واختيار مكان الملف

za-BackUp2.rar

بالتوفيق

اشكرك اختي زهرة على التفاعل

جزاك الله كل خير

حصلت على هذا الكود

Function InitialSetting()
'تغيير الدليل الافتراضي للاكسس الى الدليل الحالي لقاعدة البيانات
ChDir (CurrentProject.Path)

هل استطيع الاستفادة منه في موضوعي

ebraheem-w كتب:

حصلت على هذا الكود

Function InitialSetting()
'تغيير الدليل الافتراضي للاكسس الى الدليل الحالي لقاعدة البيانات
ChDir (CurrentProject.Path)

هل استطيع الاستفادة منه في موضوعي

لا يا أخي ليس له اي داعي في موضوعك لأن موضوعك الخاص بعمل نسخة احتياطية موجود به المسار الإفتراضي لقاعدة البيانات CurrentProject.Path فلماذا تريد تغيره ؟؟

اترك الكود كما هو لأنه يعمل بصوره صحيحة .

بالتوفيق

zahrah كتب:

لا يا أخي ليس له اي داعي في موضوعك لأن موضوعك الخاص بعمل نسخة احتياطية موجود به المسار الإفتراضي لقاعدة البيانات CurrentProject.Path فلماذا تريد تغيره ؟؟

اترك الكود كما هو لأنه يعمل بصوره صحيحة .

بالتوفيق

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