اليك الكود يا اخي
Dim oldfile, NewFile, CopyMyDB
oldfile = Application.CurrentProject.Path & "\new\new.accdb"
NewFile = Me.yy
CopyMyDB = "cmd.exe /C copy " & """" & oldfile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0
حيث NewFile مسار النسخة الاحتياطية ( مكانها الجديد)
و oldfile مسار قاعدة البيانات المراد نسخها
وشكرا