07-03-20, 03:43 PM
كود :
ممكن تعديل الكواد التالي بحيث يتم حفظ النسخ بتاريخ وساعه وفي نفس الفولدر البرنامج وجزاكم الله خير لي ولكم
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