09-10-13, 08:48 PM
ممكن مساعدة لانه يطلع لي خطاء وهذي الصوره للخطاء مع الكود
هذا وانا احفظها باسم 123
وعند الضغط على حفظ
هذا وانا احفظها باسم 123
وعند الضغط على حفظ
PHP كود :
On Error GoTo BackupError
Dialog.FileName = ""
Dialog.Filter = "Backup files (*.bck) |*.bck|"
Dialog.ShowSave
If Dialog.FileName <> "" Then
If FileLen(App.Path & "\Lab.MDB") > 1210000 And Mid(Dialog.FileName, 1, 1) = "A" Then
MsgBox "لا يمكن نسخ قاعدة البيانات على هذا المحرك فضلاً قم بإستبداله بمحرك ذو سعة اكبر .", vbOKOnly + vbCritical, " خطأ في النسخ" + UserName
Else
FileCopy (App.Path & "\Lab.MDB"), Dialog.FileName
MsgBox "تم عمل نسخة احتياطية بنجاح", vbOKOnly + vbInformation, " النسخ الاحتياطي" + UserName
End If
End If
Exit Sub
BackupError:
MsgBox Err.Description, vbOKOnly + vbCritical, " Warning:End-User" + UserName