تعديل على كود للنسخ الاحتياطي

[مصطفى العراقي1]

السلام عليكم ورحمة الله وبركاته ..
اخواني الأعزاء اذا امكن تعديل هذا الكود للنسخ الاحتياطي لقاعدة بيانات خارجية 
بحيث يكون اختيار مسار قاعدة البيانات و مسار حفظ النسخ الاحتياطي من خلال مربع النص التي في النموذج
الكود المستخدم للنسخ الاحتياطي هو الاتي:

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

[ناقل]

تفضل .....

Dim msgstyle
Dim DBOld As String
Dim DBNew As String
DBOld = Me.txtTAB1                     'اختيار قاعدة بيانات الجداول
DBNew = txtPathToExport             'اختيار مكان حفظ النسخة
Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & DBNew & "\" & "DATA.accdb" & """", 0
MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية"

 

[مصطفى العراقي1]

  

6 دقائق مضت, ناقل said:

تفضل .....

Dim msgstyle
Dim DBOld As String
Dim DBNew As String
DBOld = Me.txtTAB1                     'اختيار قاعدة بيانات الجداول
DBNew = txtPathToExport             'اختيار مكان حفظ النسخة
Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & DBNew & "\" & "DATA.accdb" & """", 0
MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية"

 

 

شكراً جزيلاً اخي ناقل نجخ الامر
🤗
  

تم تعديل ديسمبر 13, 2021 بواسطه مصطفى العراقي1