ارجو المساعده فى كود 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
وهذه الرساله تظهر