تعديل كود لإجراء نسخة احتياطية لبرنامج اكسس مرتبط بأكثر من قاعدة بيانات

[kassem_geo]

هذا الكود يستخدم عادة لعمل نسخة احتياطية:

Public Sub Backupme()

On Error GoTo MyErr

Dim OldFile, NewFile, CopyMyDB, wheretoBackup, BackupFolder, DBName As String

    If IsNull(DFirst("database", "msysobjects", "[Database]<> '""'")) Then
        OldFile = CurrentProject.FullName
        wheretoBackup = CurrentProject.Path
    Else
        OldFile = DFirst("database", "msysobjects", "[Database]<> '""'")
        wheretoBackup = Left(OldFile, InStrRev(OldFile, "\"))
    End If

    BackupFolder = wheretoBackup & "\Backup"

On Error Resume Next
If Len(Dir(BackupFolder)) = 0 Then
    MkDir BackupFolder
    Else
    End If
On Error GoTo MyErr

    DBName = Left(CurrentProject.Name, InStrRev(CurrentProject.Name, ".") - 1)

NewFile = wheretoBackup & "\Backup\" & DBName & "-Backup-" & Format(Date, "dd-mm-yyyy") & "-" & Format(Now(), "Hh-Nn-ss-AMPM.") & Right(OldFile, 5)
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0


MsgBox "Backup........Done" & vbNewLine & vbNewLine & "Saved in :" & vbNewLine & NewFile, , " "

MyErr:
If Err.Number <> 0 Then
MsgBox Err.Number & " - " & Err.Description
End If

End Sub

 لو كان البرنامج متصل بأكثر من قاعدة بيانات   database & database1 & database3
 بحيث كل قاعدة منفصلة عن الاخرى بجداولها واريد ان تكون النسخ الاحتياطية ايضا منفصلة
مع الإشارة بان قواعد البيانات الثلاث موجودة بنفس الفولدر folder وسنضعهم مع بعض في ملف Backup كل على حدا

كيف سيكون الكود؟؟؟؟

على أمل الاستفادة للجميع

 

 

تم تعديل أغسطس 25, 2022 بواسطه kassem_geo
استعمال <> من القائمة ، ثم وضع الكود في نافذته

[kassem_geo]

@jjafferr @Moosak

[kassem_geo]

@مبرمج متقاعد بانتظار خبرتك الكريمة

[Moosak]

السلام عليكم أخي قاسم 🙂 

الحمدلله بعد العديد من المحاولات في جلب أسماء القواعد الخلفية المتعددة (وبدون تكرار) في حال أن القاعدة الواحدة لها أكثر من جدول، توصلت بفضل الله إلى الطريقة .

 

الفكرة تتلخص في كود يحضر لك جميع مسارات القواعد الخلفية BE ويخزنها في متغير من نوع Collection وبدون تكرار .. ثم في حلقة Loop يقوم بإرسال مسارات أو روابط هذه القواعد إلى كود النسخ الإحتياطي Backup ليقوم بحفظ نسخة إحتياطية من القاعدة الخلفية بنفس المسمى + التاريخ والوقت .. يحفظها في مجلد Backup بجانب قاعدة البيانات .

 

في الملف المرفق ستجدون 3 ملفات ( الواجهة : My_App_FE.accdb و القواعد الخلفية : BE_1.accdb و BE_2.accdb )

(ملاحظة : لن تحتاج لإعادة ربط الواجهة بالقواعد الخلفية ، فقد جعلتها ترتبط تلقائيا عند الفتح ) 🙂 

سيفتح لك النموذج واضغط على حفظ وشاهد النتيجة 🙂 

إنشاء مجلد الباكب تلقائيا :

النسخ الإحتياطية :

وهذا هو المرفق: 🙂 

Backup Mor Than One BE.zip

[Moosak]

وبعد هذا الجهد .. صدفة وجدت هذا الموضوع لحبيبنا المهندس محمد عصام @ابو جودي  

طبعا بطريقة مختلفة وفكر متجدد 🙂 

 

[kassem_geo]

فعلا افتخر بنفسي اني تعرفت عليك اخي @Moosakوبارك الله بجهودك

[Moosak]

شكرا لك دكتور قاسم .. والشرف لي بمعرفتك ☺️🌹

[jjafferr]

11 ساعات مضت, rockjone33 said:

(المرفق للنسخه الاحتياطية والاتباط فقط)

انزلت مرفقك وما اشتغل !!

 

جعفر

[jjafferr]

فيه Combobox ما موجود في النموذج 

[jjafferr]

السلام عليكم 🙂

 

اخبرتك المرة السابقة:

21 ساعات مضت, jjafferr said:

انزلت مرفقك وما اشتغل !!

 

20 ساعات مضت, jjafferr said:

فيه Combobox ما موجود في النموذج 

 

وبمرفقك الجديد حصلت على نفس المشكلة:

.

وبالدخول في الكود وعمل Compile:

.

هذا الكائن Combobox غير موجود في النموذج

.

جعفر

[jjafferr]

ياريت تعطينا خطوات العمل ، علشان نعرف شو نعمل ، للحصول على شو !!