السلام عليكم
اريد التعديل على هذا الكود بحيث لوكان المدخل صفر أو اقل يكون الشرط تحقق
انا كتبته بهذه الطريقة في حدث بعد التحديث
Private Sub number_expenditure_AfterUpdate()
If Me.number_expenditure < (0.1) Then
MsgBox " أدخل رقم صحيح", vbCritical, "إدخال خاطئ "
Cancel = True
Me.number_expenditure.Undo
End If
End Sub
المشكلة عند ادخال 0.5 يعتبر ان الشرط تحقق
والشيئ الاخر لا اريدة مغادرة الحقل قبل تعديل الرقم المدخل
بحيث يعيد قيمة الحقل الى قيمة فارغة ويطالبة باالادخال الصحيح