اخواني الاعزاء
لقد قمت بوضع هذا الكود الخاص بعمل نسخة الاحتياطية ويعمل ولكن قاعدة البيانات تظهر بدون أيكونة الأكسيس بعد أن يتم عمل نسخة احتياطية لها
فهل من خطأ في الكود
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
بوركتم جميعا