(29-03-18, 11:30 AM)عبدالله الدوسري كتب :

كود :

SaveFileDialog1.Filter = "Access DB | *.accdb"

             
                  Dim sourcePath, DistPath As String
                  sourcePath = Application.StartupPath & "\Data.accdb"
                  DistPath = "هنا اكتب مسار الحفظ لأنه سيكون ثابت ولا يمكن للمستخدم تحديدة"
                  My.Computer.FileSystem.CopyFile(sourcePath, DistPath)
                  MsgBox("تم عمل نسخه إحتياطيه من البرنامج")

ضع الكود داخل مصيدة الأخطاء تحسباً لأي خطأ غير متوقع

كود :

Try

ضع الكود هنا

Catch ex As Exception
   MsgBox("حدث خطأ غير متوقع" & vbCrLf & ex.Message)
End Try

(29-03-18, 02:46 PM)عبد العزيز البسكري كتب :

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

إضافة لما تقدّم به أستاذنا القدير " عبد الله الدّوسري "

جزاه الله خير الجزاء و زادها بموازين حسناته إن شاء الله

أخي الكريم .. هذا مثال إقتطفته من مشروعي الخاص

لا تهتم بالأزرار الثانويّة لأنّي إنشغلت بال SQL و لم أكملها .. ما يهمّك هو فقط الزر المشار إليه بالسّهم الأحمر

قمت بعمل قاعدة البيانات باسمي حتي يسهل عليك تغيير اسم قاعدة بياناتك بالكود

مكان الحفظ التلقائي هو القرص C و بإمكانك تغييره مثلما تشاء

ألفت إنتباهك أخي الغالي ..

إذا كنت تود عمل نسخة إحتياطية تلقائية

1 - يمكنك إكمال عمل الأزرار بالمشروع

2 - بزر الخروج تعمل أمر ضغط زر النسخ الإحتياطي مثلا .. Button1 Preformclick 

أتمنى أن يفي الملف بالغرض ولو بالجزء اليسير إن شاء الله