طلب تعديل كود نسخ قاعدة البيانات

ارجو المساعدة

جرب هذا التعديل

Private Sub Form_Timer()
If MsgBox("åá ÊÑíÏ Úãá äÓÎ ÇÍÊíÇØíÉ ãä ÇáÈÑäÇãÌ", vbInformation + vbOKCancel, "ÑÓÇáÉ") = vbOK Then
Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB
OldFile = CurrentDb.name
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
' Next line shows the required path for the backup database
'NewFile = "D:\backup.mdb"
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0

MyErr:
If Err.Number <> 0 Then
MsgBox Err.Number & " - " & Err.Description
End If
Call Shell("regedit.exe /s """ & CurrentProject.Path & "\Enable.reg""", 0)
MsgBox "Êã ÇáäÓÎ ÈäÌÇÍ", vbOKOnly, "Êã äÓÎ ÞÇÚÏÉ ÇáÈíÇäÇÊ ÈäÌÇÍ .."
End If
DoCmd.Quit

End Sub

شكراً اخي الكريم علي ردك واهتمامك ولكن نفس الفكرة الكود يعمل نسخة عادية بصيغة mde فقط ولكني اريد عمل نسخة إحتياطية مضغوطة بصيغة rar بجانب النسخة العادية<br>

اقوم بالبحث عن ذلك وعندما اجده ساعلمك ان شاء الله

للرفع<br>