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

[AhmedEmam]

السلام عليكم السادة الاعضاء

كل عام وانتم بخير والى الله اقرب 

انا عندى قاعدة بيانات اكسس وعامل تقسيم للقاعدة الجداول لوحدها والشاشات لوحدها 

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

انا عندى كود بياخد نسخه احتياطى من الشاشات والجداول اللينك 

يعنى لو الجداول الاساسيه اتمسحت كل النسخ الاحتياطى ملهاش لازمه

  وده الكود اللى عندى

On Error Resume Next
        Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB
           Dim fs, cf, strFolder
                   strFolder = CurrentProject.Path & "\Backup"
            Set fs = CreateObject("Scripting.FileSystemObject")
                If fs.FolderExists(strFolder) = False Then
            Set cf = fs.CreateFolder(strFolder)
      End If
        OldFile = CurrentDb.Name
        StrNew = CurrentProject.Path & "\Backup"
        DBwithEXT = Dir(OldFile)
        DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 6)
        If [BKUP] = True Then
        NewFile = StrNew & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & Right(DBwithEXT, 6)
        CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
        Shell CopyMyDB, 0
        Exit Sub
        End If

[النجاشي]

وعليكم السلام

تفضل طلبك بهذا الرابط

https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=142385

[AhmedEmam]

النجاشي

بيطلع رسالة خطأ

[أبو عبدالله الحلوانى]

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

بالاضافة الي ما تقفضل به أخي @النجاشي 

جرب هذا المرفق لعله يوافق مرادك

المرفق يقوم بي:

1- أخذ نسخة احتياطية من نفسه.

2- ومن قاعدة البيانات المرتبطه به.

جرب أن ترتبط بقاعدة بيانات مختلفة وانظر النتيجة 

ولا تنسانا من دعوة بظهر الغيب

تمنياتي بالتوفيق.

 

TestBackup.rar

[AhmedEmam]

الف الف شكر الله يبارك فيك