خطا 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

 

تم تعديل أغسطس 4 بواسطه Tamer Murad

[ابو جودي]

رسالة الخطأ اللى في الصورة

Invalid procedure call or argument
نداء إجراء غير صالح او وسيط غير صحيح

ده معناه ان هناك دالة أو إجراء تم تمريره له قيمة غير مناسبة
واتصور أنه في زر تحديث الكيلومتر (btnUpdateMileage_Click) 

إذا كان Me.CurrentMileage فارغا (Null) أو غير رقمي
أو تم إدخاله من عنصر تحكم غير موجود أو غير معرف فإن المقارنة تؤدي إلى الخطأ الذي ظهر

اقرب الاحتمالات التى اتصورها هذا السطر
If newMileage > Me.CurrentMileage Then

لو ترسل القاعدة يكون افضل

[Tamer Murad]

Fleet.accdb

[ابو جودي]

المشكلة ان قاعدة البيانات حصل فيها تلف  Corruption

انا عملت قاعدة جديدة وقمت بعمل استيراد لكل شئ من القاعدة القديمة واشتغلت تمام

Fleet.accdb

[Tamer Murad]

مشكوووور والله حبيبي ما نتحرم منك يارب

[ابو جودي]

3 ساعات مضت, Tamer Murad said:

مشكوووور والله حبيبي ما نتحرم منك يارب

اهلا بيك فى المنتدى وتحت امرك بأى وقت