كود عمل النسخة الاحتياطية

[أيمن عبادي]

اخواني الاعزاء

لقد قمت بوضع هذا الكود الخاص بعمل نسخة الاحتياطية ويعمل ولكن قاعدة البيانات تظهر بدون أيكونة الأكسيس بعد أن يتم عمل نسخة احتياطية لها

فهل من خطأ في الكود

Private Sub Form_Close()
On Error Resume Next '-------      by caboon    -----
Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB
OldFile = [StrOld]
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
If [BKUP] = True Then
NewFile = Me.StrNew & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & Right(DBwithEXT, 4)
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0
Exit Sub
End If

End Sub

----------------------------------------------------------------------------------------

Private Sub Form_Load()
On Error Resume Next

[StrOld] = CurrentDb.Name
[StrNew] = "D:\LaundrySoftware\"

End Sub

 

بوركتم جميعا

[ابو جودي]

اتفضل جرب الكود الاتى 

Dim StrNew As String
Dim StrOld As String
Dim DBwithEXT As String
Dim NewFile As String
Dim CopyMyDB As String

StrNew = "D:\LaundrySoftware\"
StrOld = CurrentDb.Name
DBwithEXT = Dir(StrOld)


NewFile = StrNew & "\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM" & "-") & DBwithEXT
CopyMyDB = "cmd.exe /C copy " & """" & StrOld & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0

 

تم تعديل مارس 31, 2021 بواسطه ابا جودى

[ابوخليل]

السلام عليكم

لما تأخر الأخ ايمن بالرد على ابي جودي قلت يمكن لم يحقق مطلبه فرجعت للكود فوجدت انه ينقصه نقطة في هذا السطر ليصبح هكذا :

NewFile = Me.StrNew & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & "." & Right(DBwithEXT, 4)

 

[ابو جودي]

2 دقائق مضت, ابوخليل said:

السلام عليكم

لما تأخر الأخ ايمن بالرد على ابي جودي قلت اكيد ما حقق مطلبه رجعت للكود فوجدت انه ينقصه نقطة في هذا السطر ليصبح هكذا :

NewFile = Me.StrNew & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & "." & Right(DBwithEXT, 4)

 

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

استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل 

اولا وقبل كل شئ كل عام وانتم بخير 

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

الكود كان مكتوب على اعتبار ان الامتداد .mdb

ولكن فى حالة ان الامتداد accdb

يعتبر الامتداد ccdb فقط طبقا لذلك الجزء من الكود
 

Right(DBwithEXT, 4

لاحظ الامتداد بعد الوقت pm 

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

[ابوخليل]

هذه نتيجة الرد السريع من غير فحص وتأكد 

نعم ما تفضلت به صحيح  ..   استاذنا الغالي 

 

 

[ابو جودي]

2 دقائق مضت, ابوخليل said:

هذه نتيجة الرد السريع من غير فحص وتأكد

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

اسال الله لكم البركة فى العمر والعمل والاهل والولد والرزق

[أيمن عبادي]

بوركت أخي أبوجودي 

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

الموضوع تمام ميه على ميه

وأتقدم بالشكر لأخي أبوخليل