خطا vba

[Tamer Murad]

السلام عليكم
ممكن اعرف ايه الخطأ الي في الاكواد دي
 

 

' ========== زر الحفظ ==========
Private Sub btnSave_Click()
    On Error GoTo SaveErr
    
    If Me.Dirty Then Me.Dirty = False
    MsgBox "تم حفظ بيانات المركبة بنجاح!", vbInformation, "حفظ"

ExitSub:
    Exit Sub
SaveErr:
    MsgBox "حدث خطأ أثناء الحفظ: " & Err.Description, vbCritical
    Resume ExitSub
End Sub

' ========== زر تحديث الكيلومتر ==========
Private Sub btnUpdateMileage_Click()
    Dim newMileage As Variant
    newMileage = InputBox("أدخل الكيلومتر الحالي للمركبة:", "تحديث الكيلومتر")

    If IsNumeric(newMileage) Then
        If newMileage > Me.CurrentMileage Then
            Me.CurrentMileage = newMileage
        Else
            MsgBox "الكيلومتر الجديد أقل من الحالي!", vbExclamation
        End If
    ElseIf newMileage <> "" Then
        MsgBox "أدخل رقم صحيح فقط!", vbExclamation
    End If
End Sub

 

تم تعديل منذ 5 ساعات بواسطه Tamer Murad