عمل نسخه احتياطيه

[WESAMZALL1177]

السلام عليكم شباب بدي كود تفريغ الجدوال من البيانات وقبل التفريغ عمل نسخه احتياطيه برقم سري  شكرا للجميع

[WESAMZALL1177]

@د.كاف يار

 

[د.كاف يار]

اخي الكريم 

لافراغ الجداول استخدم الكود التالي ما اضافة اسم كل جدول 

DoCmd.RunSQL "DELETE  FROM " & "Table Name 1"
DoCmd.RunSQL "DELETE  FROM " & "Table Name 2"
DoCmd.RunSQL "DELETE  FROM " & "Table Name 3"

لعمل نسخة احتياطية بتاريخ كل يوم استخدم الكود التالي

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

- انشاء مجلد بإسم Backup

- انشاء جدول يتضمن رقم النسخة و مسار النسخة و تاريخها

- يتم عمل نسخة مطابقة بالكامل في نفس المجلد

Dim fso As Object
Dim fldrname As String
Dim fldrpath As String

Set fso = CreateObject("scripting.filesystemobject")
          fldrpath = CurrentProject.Path & "\Backup"
          If Not fso.FolderExists(fldrpath) Then
             fso.createfolder (fldrpath)
             
          End If

Dim MyFile, DstFile As String
Dim Syso As Object
On Error GoTo ErrH

MyFile = CurrentProject.FullName
DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb"

DBEngine.Idle

Set Syso = CreateObject("Scripting.FileSystemObject")
Syso.copyfile MyFile, DstFile
Set Syso = Nothing

Name DstFile As DstFile & ".ptc"
DBEngine.CompactDatabase DstFile & ".ptc", DstFile
Kill DstFile & ".ptc"
DoCmd.RunSQL "CREATE TABLE Backup (Backup_NO INT , Backup_Name VARCHAR (50) , Backup_Path VARCHAR (100), Backup_Date Date);"
Dim db As DAO.Database
Dim MaxBackup_NO As Integer
MaxBackup_NO = Nz(DMax("[Backup_NO]", "[Backup]"), 0) + 1
    Dim rs As DAO.Recordset
    Set db = CurrentDb
Set rs = db.OpenRecordset("Backup")
    With rs
        .AddNew
        ![Backup_NO] = MaxBackup_NO
        ![Backup_Name] = Format(Date, "dd-mm-yyyy")
        ![Backup_Path] = DstFile
        ![Backup_Date] = Now()
        .Update

    End With


MsgBox "تم انشاء نسخة احتياطية بنجاح" , vbMsgBoxRight + vbOKOnly,  "تاكيد"

Exit Sub
ErrH:
Select Case Err.Number
End Select

 

تم تعديل أغسطس 27, 2020 بواسطه د.كاف يار

[WESAMZALL1177]

يعطيك الف عافيه اخي الكريم الله يسعدك يارب