مصطفى العراقي1 قام بنشر ديسمبر 13, 2021 مشاركة قام بنشر ديسمبر 13, 2021 السلام عليكم ورحمة الله وبركاته .. اخواني الأعزاء اذا امكن تعديل هذا الكود للنسخ الاحتياطي لقاعدة بيانات خارجية بحيث يكون اختيار مسار قاعدة البيانات و مسار حفظ النسخ الاحتياطي من خلال مربع النص التي في النموذج الكود المستخدم للنسخ الاحتياطي هو الاتي: 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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ناقل قام بنشر ديسمبر 13, 2021 أفضل إجابة مشاركة قام بنشر ديسمبر 13, 2021 تفضل ..... 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 رابط هذا التعليق شارك More sharing options...
مصطفى العراقي1 قام بنشر ديسمبر 13, 2021 الكاتب مشاركة قام بنشر ديسمبر 13, 2021 (معدل) 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 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان