كود نسخة احتياطية

[Ahmed_J]

السلام عليكم

استاذ @د.كاف يار

انا واجهتني نقس المشكلة 

علما ان كود استدعاء الزر صحيح

تحياتي

تم تعديل أغسطس 17, 2021 بواسطه Ahmed_J

[د.كاف يار]

اتوقع المشكلة في صلاحيات المجلد 

ارجوا ممن يواجه مشكلة بأن يزودنا بصورة من رسالة الخطأ

[Ahmed_J]

السلام عليكم

استاذ @د.كاف يار

ارجو التعديل على الملف  المرفق ووضع  كود  استدعاء  زر  Back_up في زر انهاء التطبيق (يعني عمل نسخة قبل الخروج)

Call Back_up_Click

تحياتي

test.rar

تم تعديل أغسطس 17, 2021 بواسطه Ahmed_J

[سامي الحداد]

 تفضل اخي الكريم

جرب التعديل واخبرنا بالنتيجة

 

test.rar

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

في ٢٣‏/٧‏/٢٠٢١ at 06:59, محمد أبوعبدالله said:

بالاضافة الى ما تفضل به استاذنا الفاضل @د.كاف يار وله جزيل الشكر

تفضل اخي الكريم

جرب الكود التالي

    Dim strFolderPath As String
  
    Dim DB_Full_Name As String
    Dim DB_Name As String
    Dim Backup_Full_Name As String
    Dim Copy_File As Variant
    Dim DB_Directory As String

    strFolderPath = CurrentProject.Path & "\Backup\"
    ' التاكد من وجود مجلد Backup
    ' اذ لم يكن موجود يتم انشائه
    If Len(Dir(strFolderPath, vbDirectory)) = 0 Then
       MkDir strFolderPath
    End If


    ' تحديد قاعدة البيانات
    DB_Full_Name = CurrentProject.Path & "\" & CurrentProject.Name
    ' تحديد مسار قاعدة البيانات
    DB_Directory = CurrentProject.Path
        ' تحديد اسم قاعدة البيانات
    DB_Name = CurrentProject.Name
    ' تحديد مسار النسحة الاحتياطية
    Backup_Full_Name = strFolderPath & Left(DB_Name, Len(DB_Name) - 6) & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & ".accde"

    If MsgBox("هل تريد اجراء نسخة احتياطية من البرنامج؟", vbQuestion + vbYesNo, "نسخة احتياطية") = vbYes Then
        Set Copy_File = CreateObject("Scripting.FileSystemObject")
        Copy_File.copyfile DB_Full_Name, Backup_Full_Name, True
    End If

تحياتي

السلام عليكم
اخ محمد هل يمكن تعديل الكود وجعل مسار حفظ الباك اب في كوكل درايف على المجلد ( G:\My Drive )  بدون نقل مجلد البرنامج الرئيسي الى كوكل درايف ؟

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