تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل كواد النسخ الاحتياطيه
#1
كود :
ممكن تعديل الكواد التالي بحيث يتم حفظ النسخ بتاريخ وساعه وفي نفس الفولدر البرنامج وجزاكم الله خير لي ولكم
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
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

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

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 
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: ahmed20



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم