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

AhmedEmam · يناير 1, 2021

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

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

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

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

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

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

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

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