نسخة احتياطية أتوماتيك كل يوم

اليك أخى هذا الكود

Public Sub BackupDB(Bk_path As String)
On Error GoTo my_err
Dim oldfile, NewFile, CopyMyDB
oldfile = CurrentProject.FullName

NewFile = Bk_path & "\" & Split(CurrentProject.Name, ".")(0) & "_" & Day(Date) & "." & Split(CurrentProject.Name, ".")(1)
CopyMyDB = "cmd.exe /C copy " & """" & oldfile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0
MsgBox "تمت العمليه بنجاح"
Exit Sub
my_err:
MsgBox Err.Description
End Sub

ضعه فى النموذج او فى وحده نمطيه

حيث سيقوم بعمل نسخة مرقمة حسب اليوم و يحذف النسخة السابقة لنفس اليوم من الشهر الماضى

و يمكن استدعاءه بهذه الطريقه

بادخال المسار الذى تريد وضع النسخة به

BackupDB CurrentProject.Path & "\BKp"