اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

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

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, "للمعلومية"

 

  • Like 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, "للمعلومية"

 

 




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

  

تم تعديل بواسطه مصطفى العراقي1
  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information