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

[حسين العربى]

السلام عليكم ورحمة الله وبركاته اعضاء ومشرفي المنتدي الكرام

اخوني واساتذتي الافاضل  في المرفق كود ينسخ البرنامج في نفس المسار الموجود فيه 

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

انا عاوز احدد في الكود نفسة / قاعدة الجدول هي الي تنسخ وليس الشاشات 

وشكرا

TEST1.accdb

[ابو جودي]

اتفضل

 

[Matin_Murad]

اختر مسار 

TEST1 (1).accdb

[حسين العربى]

منذ ساعه, ابو جودي said:

اتفضل

ممتاز استاي الفاضل ابو جودي  بس كنت عاوز اضيف فيه الوقت ساعة دقيقه ثانيه 

[حسين العربى]

ظبط معي استاذي الفاضل ابو جودي ممتاذ

 

 

[ابو جودي]

في ٣‏/١٢‏/٢٠٢١ at 23:23, حسين العربى said:

ظبط معي استاذي الفاضل ابو جودي ممتاذ

تحياتى استاذ @حسين العربى 

[حسين العربى]

في ٥‏/١٢‏/٢٠٢١ at 15:23, ابو جودي said:

تحياتى استاذ @حسين العربى 

 

استاذي الفاضل ابو جودي 

ملوحظه مهمه اكتشفتها اليوم  في الكود بالصدفة 

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

 

تم تعديل ديسمبر 9, 2021 بواسطه حسين العربى
فف

[حسين العربى]

Up

[د.كاف يار]

تفضل هذا الكود

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

If MsgBox("هل تريد انشاء نسخة احتياطية الآن ؟", vbQuestion + vbYesNo + vbMsgBoxRight, "تأكيد") = vbYes Then
Dim MyFile, DstFile As String
Dim Syso As Object

MyFile = " ضع هنا مسار قاعدة البيانات "
DstFile = CurrentProject.Path & "\Backup-" & Format(Now, "dd-mm-yyyy") & "." & Split(Mid(MyFile, InStrRev(MyFile, "\") + 1), ".")(1)

Set Syso = CreateObject("Scripting.FileSystemObject")
Syso.copyfile MyFile, DstFile
Set Syso = Nothing
End if

 

[ابو جودي]

22 ساعات مضت, حسين العربى said:

 

استاذي الفاضل ابو جودي 

ملوحظه مهمه اكتشفتها اليوم  في الكود بالصدفة 

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

 

ممكن اطلع على مرفقكم استاذى

[حسين العربى]

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

الباسورد 1982

test1.rar

[حسين العربى]

8 ساعات مضت, د.كاف يار said:

تفضل هذا الكود

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

If MsgBox("هل تريد انشاء نسخة احتياطية الآن ؟", vbQuestion + vbYesNo + vbMsgBoxRight, "تأكيد") = vbYes Then
Dim MyFile, DstFile As String
Dim Syso As Object

MyFile = " ضع هنا مسار قاعدة البيانات "
DstFile = CurrentProject.Path & "\Backup-" & Format(Now, "dd-mm-yyyy") & "." & Split(Mid(MyFile, InStrRev(MyFile, "\") + 1), ".")(1)

Set Syso = CreateObject("Scripting.FileSystemObject")
Syso.copyfile MyFile, DstFile
Set Syso = Nothing
End if

 

 استاذي الفاضل د.كاف يار  شكرا علي مرورط الطيب وجزاك الله خير الجزاء كود فوق الممتاذ بس ناقصه حاجه انا عاوز النسخة توضع في فولدر اسمه Backup

[د.كاف يار]

50 دقائق مضت, حسين العربى said:

 استاذي الفاضل د.كاف يار  شكرا علي مرورط الطيب وجزاك الله خير الجزاء كود فوق الممتاذ بس ناقصه حاجه انا عاوز النسخة توضع في فولدر اسمه Backup

تفضل

If MsgBox("هل تريد انشاء نسخة احتياطية الآن ؟", vbQuestion + vbYesNo + vbMsgBoxRight, "تأكيد") = vbYes Then
Dim MyFile, DstFile As String
Dim Syso As Object

MyFile = " ضع هنا مسار قاعدة البيانات "
DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "dd-mm-yyyy") & "." & Split(Mid(MyFile, InStrRev(MyFile, "\") + 1), ".")(1)

Set Syso = CreateObject("Scripting.FileSystemObject")
Syso.copyfile MyFile, DstFile
Set Syso = Nothing
End if

 

[حسين العربى]

الف الف شكر استاذي الفاضل  د.كاف يار 

[د.كاف يار]

العفو اخي الكريم تحت امرك في اي وقت