عمل نسخة احتياطية لجداول مرتبطة

السلام عليكم ورحمة الله

قمت بتصميم برنامج مقسم على قسمين القسم الأول للواجهات والاستعلامات وغيرها والثاني لجداول مرتبطة واسمه data

السؤال أريد كود لنسخ احتياطي لملف data مثلاُ على القرص d دون تخير المستخدم مكان النسخة واستبدال النسخة القديمة

كنت قبل أن افصل البرنامج واقسمه إلى قسمين استعمل هذا الكود عند زر الخروج

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:\" & "\" & DBwithoutEXT & "" & Right(DBwithEXT, 4)
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0

MyErr:
If Err.Number <> 0 Then
MsgBox Err.Number & " - " & Err.Description
End If

DoCmd.Quit

الرجاء التعديل على الكود بحيث لاينسخ البرنامج عند الضغط على الزر وانما ينسخ ملف data ويقوم باستبداله

أتمنى أن اجد الاجابة في هذا المنتدى الرائع ولكم جزيل الشكر سواء حصلت عليها أم لا