[ahmed20]

كود :

ممكن تعديل الكواد التالي بحيث يتم حفظ النسخ بتاريخ وساعه وفي نفس الفولدر البرنامج وجزاكم الله خير لي ولكم
On Error GoTo BackupError

[size=small]    Dialog.FileName = ""[/size]
[size=small]    Dialog.Filter = "Backup files (*.bck) |*.bck|"[/size]
[size=small]    Dialog.ShowSave[/size]
[size=small]        If Dialog.FileName <> "" Then[/size]
[size=small]            If FileLen(App.Path & "\DataSum.MDB") > 1210000 And Mid(Dialog.FileName, 1, 1) = "A" Then[/size]
[size=small]                MsgBox "áÇ íãßä äÓÎ ÞÇÚÏÉ ÇáÈíÇäÇÊ Úáì åÐÇ ÇáãÍÑß ÝÖáÇð Þã ÈÅÓÊÈÏÇáå ÈãÍÑß Ðæ ÓÚÉ ÇßÈÑ .", vbOKOnly[/size]
[size=small]            Else[/size]
[size=small]                FileCopy (App.Path & "\DataSum.MDB"), Dialog.FileName[/size]
[size=small]               MsgBox "Êã Úãá äÓÎÉ ÇÍÊíÇØíÉ ÈäÌÇÍ", vbOKOnly + vbInformation, " ÇáäÓÎ ÇáÇÍÊíÇØí" + UserName[/size]
[size=small]            End If[/size]
[size=small]        End If[/size]
[size=small]    Exit Sub[/size]
[size=small]BackupError:[/size]
  MsgBox Err.Description, vbOKOnly + vbCritical, " Warning:End-User" + UserName

[Ahmed_Mansoor]

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

أهلا بك أخي الكريم , هذا تعديل الكود :

PHP كود :

On Error GoTo BackupError
Dim BackupName As String
BackupName = Format$(Now, "YYYY-MM-DD_HH-MM-SS") & ".mdb"
FileCopy App.Path & "\db2.MDB", App.Path & "\" & BackupName
MsgBox "تم عمل نسخة احتياطية بنجاح", vbOKOnly + vbInformation, " النسخ الاحتياطي" + UserName
Exit Sub
BackupError:
MsgBox Err.Description, vbOKOnly + vbCritical, " Warning:End-User" + UserName