كيفية عمل كود يعطى رسالة بقيمة حقل؟ Msgbox

[mom20088]

اخوانى الاعزاء

عندى حقلين الاول (text482) به قيمة حسابية والاخر (qproduced) قيمة يضعها المستخدم 

اريد عمل كود يقول الاتى :

ان قيمة الحقل الثانى (qproduced)  اعلى من قيمة الحقل الحسابى (text482)  مع ذكر قيمة الحقل ده فى الرسالة التى سوف تظهر لى

 

معنى اخر:

لو انا اضفت قيمة مثلا 200 فى الحقل (qproduced)  وكانت قيمة الحقل الحسابى(text482)   تساوى 100 

المطلوب: البرنامج يعطينى رسالة تقول " القيمة التى ادخلتها اكبر من 200 " بينما الحد الاقصى لك هو 100" سوف نحذف البيانات كلها

شكرا

ارجوكم ساعدونى

 

[AlwaZeeR]

select case qproduced
case > text482
msgbox("القيمة التي تم ادخالها أعلى من قيمة الحقل (" & [text482] & ")"
DoCmd.CancelEvent
end select

 

[mom20088]

اخى العزيز

اشكرك على ردك على استفسارى

ممكن اعرف يا اخى كيف اضع هذا الكود فى اى حدث وعلى اى من الحقلين

 

[AlwaZeeR]

حقل الادخال:

qproduced

بعد التحديث

::

 

[mom20088]

أخى العزيز

جزاك الله خيرا

عندما وضعت الكود تظهر لى رسالة تتضمن اسم الحقل وليس قيمة الحقل نفسه

انا محتاج يكتب فى الرسالة قيمة الحقل نفسه وليس اسم الحقل

لو سمحت اكتب الرسالة بالانجليزى وليس بالعربى

 

[mom20088]

اسف يا اخى العزيز

الخطأ بسبب الكتابة باللغة العربية فى الرسالة

انا صححت الخطأ واشكرك 

لكن هناك مشكلة ان قيمة الحقل فى الرسالة كبير جدا واريد اختصاره وحاولت ظبط تنسيق الحقل الحسابى لكن دون جدوى

شكرا

[AlwaZeeR]

استخدم :

Me.txt482.Value = Round(Me.txt482.Value,0) 

للحقل الذي تريد اظهاره في الرسالة

او ارفق مثالا للتعديل عليه

::

تحياتي

[mom20088]

If [Qproduced] > [Text482] Then
Beep
MsgBox ("The Entered value high than" & [Text482] & " Kg ") & """", vbCritical, "Critical Message!"
DoCmd.CancelEvent
MsgBox "This order will be deleted now!", vbCritical, "Attention"
DoCmd.OpenQuery "Query3"
DoCmd.RefreshRecord
DoCmd.GoToRecord , , acNewRec
End If

الكود كويس جدا ومفيهوش غير مشكلة واحدة ان قيمة الحقل text482  كبيرة جدا مثلا 7584.25896214 

انا عاوز يكون الرقم ده مختصر 7584.25 فقط

مش عاوز اكتر من كده

مع العلم انا عامل تنسيق الحقل من الخصائص fixed