شرح طريقة النسخة الاحتياطية

وينكن يا محترفين

أخي الكريم إن شاء الله سأقوم بإرفاق مثال ولكن بالمختصر وبدن تعقيد أنشئ ماكرو يقوم بتصدير الجداول إلى قاعدة بيانات أخرى وضع زر أمر تنفيذ للماكرو ...

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

Private Sub mcopymdb_Click()
Dim msg, style, title, response, mystring
  msg = "هل تريد اجراء نسخة أحتياطية_ اغلق البرنامج من الاجهزه التابعة"	   ' Define message.
  style = vbYesNo + vbCritical + vbDefaultButton2	 ' Define buttons.
  title = "MsgBox Demonstration"	  ' Define title.
   response = MsgBox(msg, style, title)
  If response = vbYes Then	' User chose Yes.
SetDB
Dim fname As String
Dim OldName, NewName, fs
DelLast
cd.CancelError = True
On Error GoTo ErrHandler
cd.filename = "الكادر الخاص"
cd.Filter = "MsAccess Database *.MDB"
cd.ShowSave
OldName = pamdb: NewName = cd.filename & Format(Date, "yy-mm-dd") & ".mdb"
DBEngine.CompactDatabase OldName, OldName & "1", , , ";pwd=oaar"
Kill OldName
DBEngine.CompactDatabase OldName & "1", OldName, , , ";pwd=oaar"
Kill OldName & "1"
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile OldName, NewName, True
MsgBox "تم النسخ"
End If
Exit Sub
ErrHandler:
Exit Sub
End Sub

بالإضافة لما تقدم به الأخ KARIMSOFT

أقدم لك الرابط التالي وبه مشاركة فيها مواضيع متعددة عن النسخ الاحتياطي، آمل أن تجدبها الفائدة.

أربعة روابط للنسخ الاحتياطي