كود لعمل نسخة احتياطية لبرنامج اكسيس بكل الكائنات الموجودة فيه …


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

Public Function Backup()
On Error GoTo Error_Handler
Dim sFile As String, oDB As DAO.Database
Dim strCurrentName As String
Dim oTD As TableDef
Dim qDF As QueryDef
Dim obj As AccessObject

strCurrentName = Application.CurrentObjectName
sFile = CurrentProject.Path & “\” & Left(CurrentProject.Name, Len(CurrentProject.Name) – 6) & ” ” & Format(Date, “dd-mm-yyyy”) & “.accdb”
If Dir(sFile) “” Then Kill sFile
Set oDB = DBEngine.Workspaces(0).CreateDatabase(sFile, dbLangGeneral)

‘الجداول
For Each oTD In CurrentDb.TableDefs
If Left(oTD.Name, 4) “MSys” Then
DoCmd.TransferDatabase acExport, “Microsoft Access”, sFile, acTable, oTD.Name, oTD.Name, False
End If
Next oTD

‘الاستعلامات
For Each qDF In CurrentDb.QueryDefs
If Left(qDF.Name, 1) “~” Then
DoCmd.TransferDatabase acExport, “Microsoft Access”, sFile, acQuery, qDF.Name, qDF.Name, False
End If
Next qDF

‘النماذج
For Each obj In CurrentProject.AllForms
DoCmd.TransferDatabase acExport, “Microsoft Access”, sFile, acForm, obj.Name, obj.Name, False
Next obj

‘التقارير
For Each obj In CurrentProject.AllReports
DoCmd.TransferDatabase acExport, “Microsoft Access”, sFile, acReport, obj.Name, obj.Name, False
Next obj

‘الماكرو
For Each obj In CurrentProject.AllMacros
DoCmd.TransferDatabase acExport, “Microsoft Access”, sFile, acMacro, obj.Name, obj.Name, False
Next obj

‘الوحدات النمطية
For Each obj In CurrentProject.AllModules
DoCmd.TransferDatabase acExport, “Microsoft Access”, sFile, acModule, obj.Name, obj.Name, False
Next obj

MsgBox ” مبروك … تم إنشاء نسخة احتياطية في نفس مجلد القاعدة بتاريخ اليوم “, vbInformation, “BackUp”

Error_Handler_Exit:
On Error Resume Next
Set qDF = Nothing
Set oTD = Nothing
Set obj = Nothing
oDB.Close
Exit Function

Error_Handler:
MsgBox “The following error has occured.” & vbCrLf & vbCrLf & “Error Number: ” & Err.Number, vbCritical, “An Error has Occured!”
Resume Error_Handler_Exit

End Function

تصميم المبدعة الاستاذة / زهرة العبد الله

اترك رد

إملأ الحقول أدناه بالمعلومات المناسبة أو إضغط على إحدى الأيقونات لتسجيل الدخول:

WordPress.com Logo

أنت تعلق بإستخدام حساب WordPress.com. تسجيل خروج   / تغيير )

صورة تويتر

أنت تعلق بإستخدام حساب Twitter. تسجيل خروج   / تغيير )

Facebook photo

أنت تعلق بإستخدام حساب Facebook. تسجيل خروج   / تغيير )

Google+ photo

أنت تعلق بإستخدام حساب Google+. تسجيل خروج   / تغيير )

Connecting to %s

%d مدونون معجبون بهذه: