عمل نسخة احتياطية من قاعدة البيانات علي الايميل

[ابو عبد الرحمن اشرف]

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

اخواني واساتذتي الكرام 

عندي قاعدة بيانات مقسمه الي جداول ونماذج وعند الخروج من البرنامج يتم عمل نسخة احتياطية علي مجلد علي الدريف :c

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

وعليه كان من الضروري عمل نسخةاحتياطية علي البريد الالكتروني بحيث نستطيع قتحها من اي مكان او من اي جهاز اخر 

وهذا هو المديول :

 

Option Compare Database
Option Explicit

Public Function InitiateAutoBackup() As Boolean
' هذه الدالة خاصة بعملية التحقق من البدء في إجراء النسخ الاحتياطي
' ثم إنشاء النسخة الاحتياطية حسب المعطيات
' وهي الدالة التي يتم مناداتها في ماكرو AutoExec

On Error GoTo HandleError

Dim WhereToSave As String

InitiateAutoBackup = False

' مكان الحفظ بجانب قاعدة البيانات
 
 'WhereToSave = BECurrentPath & "Bakup\"
  
  WhereToSave = "c:\Bakup"

' التحقق من وجود نسخة سابقة أم لا .. وعمل النسخة في حال عدم وجودها
If CheckBackupWeek() = False Then
    ' يفحص من جدول النسخ الاحتياطية إذا كانت هناك نسخة محفوظة سابقا خلال هذا الأسبوع
    ' إذا ما وجدها يحفظ وإذا وجدها ينتقل للإجراء التالي
    Call BackupToPath(WhereToSave)
    InitiateAutoBackup = True
Else
    ' توجد نسخة سابقة لذلك يلغي العملية
    InitiateAutoBackup = False
    Exit Function
End If

HandleExit:
Exit Function

HandleError:
If err.Number = 0 Then
Exit Function
Else
MsgBox err.Number & vbNewLine & vbNewLine & err.Description, , "Code : InitiateAutoBackup()"
End If
Resume HandleExit

End Function