كود حفظ نسخة من قاعدة البيانات ( الجداول )

[كوماندير]

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

شباب لدي كود حفظ نسخة من قاعدة البيانات الحالية .

المطلوب هو تغيير الكود ليحفظ نسخة من قاعدة البيانات (الجداول ) حيث ان قاعدة البيانات لدي مقسمة .

الكود هو :

 

Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB, strFolderName
OldFile = CurrentDb.Name
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 6)
'OurDb Backup
strFolderName = "D:\LabDb Backup"
If Len(Dir(strFolderName, vbDirectory)) = 0 Then
     MkDir (strFolderName)
     End If
' Next line shows the required path for the backup database
NewFile = strFolderName & "\" & DBwithoutEXT & " " & Format(Date, "dddd dd mmmm yyyy") & Right(DBwithEXT, 6)
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0
MsgBox "áÞÏ Êã ÍÝÙ äÓÎå ÇÍÊíÇØíÉ ÈäÌÇÍ Ýí ÇáãÓÇÑ " & vbCrLf & _
 strFolderName
'MyErr:
'If Err.Number <> 0 Then
'MsgBox Err.Number & " - " & Err.Description
'End If
If MsgBox("åá ÊÑíÏ ÇáÎÑæÌ ãä ÇáÈÑäÇãÌ ÝÚáÇ ¿ ", vbMsgBoxRight + vbMsgBoxRtlReading + vbCritical + vbYesNo, "ÊÍÐíÑ åÇã ¿") = vbYes Then

DoCmd.Quit
End If

 

 

سؤال على الهامش ؟

عند تجربتي لهذا الكود على قاعدة بيانات تعمل على جهاز عليه Windows7 تعمل جيدا بدون مشاكل ، الملاحظ انه عند نقلي لقاعدة البيانات على جهاز به وندوز اكس بي ان شكل النماذج في النسخة المحفوظة تغير ، ماهو السبب برأيكم ؟

[كوماندير]

عفوا بعد البحث وجدت طريقة لذلك بتغيير OldFile = CurrentDb.Name  الى مسار واسم قاعدة بيانات الجداول .

 

لكن سؤال كيف يمكنني ان اردت ؟ الارتباط بالنسخة المحفوظة ؟