تعديل على كود لحساب القيمة العشرية

[kaser906]

السلام عليكم

اريد التعديل على هذا الكود بحيث لوكان المدخل صفر أو اقل يكون الشرط تحقق

انا كتبته  بهذه الطريقة في حدث بعد التحديث

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 يعتبر ان الشرط تحقق

والشيئ الاخر لا اريدة مغادرة الحقل قبل تعديل الرقم المدخل

بحيث يعيد قيمة الحقل الى قيمة فارغة ويطالبة باالادخال الصحيح

 

[صالح حمادي]

استعمل الكود في حذث قبل التحديث

و أكتب السطر الأول بهذا الشكل

If Me.number_expenditure <= 0 Then

 

[jjafferr]

1 ساعه مضت, kaser906 said:

في حدث بعد التحديث

لا اريدة مغادرة الحقل قبل تعديل الرقم المدخل

بحيث يعيد قيمة الحقل الى قيمة فارغة ويطالبة باالادخال الصحيح

 

وعليكم السلام

مع تعديل أخي صالح ، استعمل الكود في الحدث "قبل التحديث" 

 

جعفر

[kaser906]

الله يعطيكم العافية