14-03-20, 05:05 AM
السلام عليكم ورحمة الله وبركاته
أهلا بك أخي الكريم , هذا تعديل الكود :
أهلا بك أخي الكريم , هذا تعديل الكود :
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