مشكلة فى كود vba

[figo82eg]

ارجو المساعده فى كود vba استخدمه عند تسجيل قراءة عداد حيث اريد عند تسجيل القراءة فى نموذج وتكون القراءة اقل من الشهر السابق تظهر رسالة خطأ

الكود يعمل لدى بشكل جيد جداً حتى 4 ارقام ولكن المشكلة عند كتابة رقم مكون من 5 ارقام او اكثر تظهر هذه الرسالة ولا يعمل الكود

Private Sub Text376_BeforeUpdate(Cancel As Integer)
WriteAuditUpdate txtTableName, Me.crn, "Text376", Me.Text376.OldValue, Me.Text376.Value
Dim i, ii As Integer
i = Nz(DLookup("[HALYA]", "[إصدار بتروتريد]", "[crn] ='" & [Forms]![البيانات الرئيسيه]![crn] & "'"), 0)
ii = Me.Text376
If ii < i Then
Beep
If MsgBox("إنــتــبــه ...... الإستــهلاك أقــل مـن المسـجل بالشهر السابق برجـاء التأكد قبل تسجيل الإستهلاك ....... هل تريد إضافة القيمة؟", _
    vbCritical + vbYesNo, _
    "تننبيه") = vbYes Then
    Exit Sub
    Else
    Exit Sub
End If
End If
End Sub

وهذه الرساله تظهر 

[محمد احمد لطفى]

غير 

 

Dim i, ii As Integer

الى 

 

Dim i As Long, ii As Long

استبدلت المتغيرين i و ii بنوع Long للتعامل مع أرقام أكبر من 4 خانات.

الخطأ "Run-time error 6" يتعلق بتجاوز الحد الأقصى لنوع البيانات Integer.

أن شاء الله هو الحل بالتوفيق

تم تعديل سبتمبر 30 بواسطه محمد احمد لطفى

[figo82eg]

اشكرك استاذى الكريم على اهتمامك هو المطلوب فعلا