السلام عليكم ورحمة الله وبركاته ..
اخواني الأعزاء اذا امكن تعديل هذا الكود للنسخ الاحتياطي لقاعدة بيانات خارجية
بحيث يكون اختيار مسار قاعدة البيانات و مسار حفظ النسخ الاحتياطي من خلال مربع النص التي في النموذج
الكود المستخدم للنسخ الاحتياطي هو الاتي:
Dim DBOld As String
Dim DBNew As String
Private Sub Form_Load()
DBOld = " اختيار المسار الموجود في حقل txtTAB1 " 'اختيار قاعدة بيانات الجداول
DBNew = " اختيار المسار الموجود في حقل txtPathToExport " 'اختيار مكان حفظ النسخة
End Sub
Private Sub ex_Click()
Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & DBNew & "\" & "DATA.accdb" & """", 0
DoCmd.Quit
End Sub
مرفق قاعدة البيانات
مع جزيل الشكر لكم 🤗
Database8.accdb