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

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

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

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

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

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

وشكرا

TEST1.accdbFetching info...

[ابو جودي]

اتفضل

 

[Matin_Murad]

اختر مسار 

TEST1 (1).accdbFetching info...

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

  في 3‏/12‏/2021 at 19:15, ابو جودي said:

اتفضل

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

Expand  

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

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

 

 

[ابو جودي]

  في 3‏/12‏/2021 at 21:23, حسين العربى said:

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

Expand  

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

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

  في 5‏/12‏/2021 at 12:23, ابو جودي said:

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

Expand  

 

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

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

عندما اضع باسورد لقاعدة الجداول 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

 

[ابو جودي]

  في 9‏/12‏/2021 at 14:57, حسين العربى said:

 

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

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

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

 

Expand  

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

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

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

الباسورد 1982

test1.rarFetching info...

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

  في 10‏/12‏/2021 at 07:51, د.كاف يار 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

 

Expand  

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

[د.كاف يار]

  في 10‏/12‏/2021 at 15:57, حسين العربى said:

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

Expand  

تفضل

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

 

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

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

[د.كاف يار]

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