تضمين كود للنسخ الاحتياطي أماكن مختلفة للنسخ

تفضل

لاحظ الكود خلف الزر الجديد مع التعديل المناسب لك

0db1.rar

جزاك الله خيرا أخى أواب على المثال

وزيادة الخير رابط للمشرفه الغائبه الحاضره برائحتها الذكيه العطره فى كل أرجاء المنتدى

هذا مثال على عملية نسخ قاعدة البيانات الى اي مكان تحدده

تمنياتى لكم بالتوفيق

أواب كتب:

تفضل

لاحظ الكود خلف الزر الجديد مع التعديل المناسب لك

مشكور أخي الكريم .. ولكن الكود يوجد به خطأ ولا يعمل

وقد وجدت الحل بالكود التالي :

Private Sub Backup_Click()
Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, NewFile2, NewFile3, CopyMyDB
OldFile = CurrentDb.Name
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
NewFile = "c:\mybackup\" & "\" & DBwithoutEXT & Right(DBwithEXT, 4)
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0
MyErr:
If Err.Number <> 0 Then
MsgBox Err.Number & " - " & Err.Description
End If
Call Shell("regedit.exe /s """ & CurrentProject.Path & "\Enable.reg""", 0)

OldFile = CurrentDb.Name
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
NewFile2 = "d:\mybackup\" & "\" & DBwithoutEXT & Right(DBwithEXT, 4)
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile2 & """"
Shell CopyMyDB, 0
Call Shell("regedit.exe /s """ & CurrentProject.Path & "\Enable.reg""", 0)

OldFile = CurrentDb.Name
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
NewFile3 = "f:\mybackup\" & DBwithoutEXT & Right(DBwithEXT, 4)
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile3 & """"
Shell CopyMyDB, 0
Call Shell("regedit.exe /s """ & CurrentProject.Path & "\Enable.reg""", 0)

MsgBox "تم نسخ قاعدة البيانات بنجاح ..", vbOKOnly, "تم النسخ بنجاح"
End Sub

تفضل اخى التعديل المطلوب

Private Sub Backup_Click()
Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB, mypaths, tpath, i As Integer
mypaths = "c:,d:,f:"
tpath = Split(mypaths, ",")

OldFile = CurrentDb.Name
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)

For i = 0 To 2
NewFile = tpath(i) & "\mybackup\" & DBwithoutEXT & Right(DBwithEXT, 4)
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0
Next

MyErr:
If Err.Number <> 0 Then
MsgBox Err.Number & " - " & Err.Description
End If
'Call Shell("regedit.exe /s """ & CurrentProject.Path & "\Enable.reg""", 0)
MsgBox "تم نسخ قاعدة البيانات بنجاح ..", vbOKOnly, "تم النسخ بنجاح"
End Sub

و لكن لا اجد اى داعى للسطر الاخير فى الكود

لانه خاص بالتعديل على الريجسترى

ما شاء الله عليك أبا يوسف

يعطيك العافية ..

إذا كان كل قرص يحتوي على مجلد مختلف غير Mybackup فما التغييرات المطلوبة على الكود ؟

اضف اسم المجلد الى الدريف فى هذا المتغير

mypaths = "c:,d:,f:"

مشكور جزيلا .