[the viper]

ممكن مساعدة لانه يطلع لي خطاء وهذي الصوره للخطاء مع الكود

هذا وانا احفظها باسم 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