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

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


abouelhassan

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

السلام عليكم

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

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

Call Back_up_Click

تحياتي

test.rar

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

في ٢٣‏/٧‏/٢٠٢١ 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 )  بدون نقل مجلد البرنامج الرئيسي الى كوكل درايف ؟

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information