البحث في الموقع
Showing results for tags 'كيفية اخذ باكب من قاعدة بيانات اكسس تلقائى عند الدخول وعند الخروج من البرنامج'.
تم العثور علي 1 نتيجه
-
السلام عليكم السادة الاعضاء كل عام وانتم بخير والى الله اقرب انا عندى قاعدة بيانات اكسس وعامل تقسيم للقاعدة الجداول لوحدها والشاشات لوحدها انا عايز لما افتح الشاشة الرئيسيه للبرنامج وعند الخروج ياخد نسخه احتياطى من الجداول فقط اللى هي مقسومة لان طبعا دى الاهم انا عندى كود بياخد نسخه احتياطى من الشاشات والجداول اللينك يعنى لو الجداول الاساسيه اتمسحت كل النسخ الاحتياطى ملهاش لازمه وده الكود اللى عندى 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