عند عدم تحقق الشرط ... كيف أوجه المؤشر ؟

[saaaleee]

السلام عليكم و رحمة الله و بركاتة

من زمان و انا ازور منتداكم و اقرا مواضيعة بصراحة المشرفين رائعين يشتغلون صح

تحياتي لهم

عندي سؤال : انا اعمل قاعدة بيانات لمستودع في شركة

الموظفين يطلبون مواد و امين المستدوع يصرفها لهم

عملت ثلاث جداول 1-المستودع

2-الموظفين" بيانات لموظفين الأقسام الذين يأخذون المواد من المستودع"

3- صرف المواد"بيانات صرف المواد"

عملت نموذج لصرف المواد و طبعا لازم تكون الكمية الموجودة بالمستودع اكبر او تساوي الكمية المطلوبة

عملت كود عند خانة الكمية المطلوبة

Private Sub barrow_amount_Enter()

If barrowamount.Value <= amount.Value Then

amount.Value = amount.Value - barrowamont

Else

MsgBox"الكمية لا تسمح"

لكن المؤشر ينتقل للخانة التالية عندما لا يتحقق الشرط و انا لا اريد ان يتقل الا اذا كات المية المدخلة صحيحة

[rudwan]

ضع الكود في حدث قبل الادخال لحقل الكميه و ذلك كما يلي :

Private Sub Borrow_Amount_BeforeUpdate(Cancel As Integer)

If barrowamount.Value <= amount.Value Then
amount.Value = amount.Value - barrowamont
Cancel = False
Else
MsgBox " Quantity Not Aloowed Here "
Cancel = True
End If

End Sub

حيث في هذه الحاله يتم الغاء ادخال القيمه في حال عدم توفر الشرط

[saaaleee]

شكر جزيلا اخي العزيز اضفت لي معلومه جديدة و هي cancel