المساعدة فى ظهور رسالة الرصيد غير كافي رغم ان الرصيد كافي

[أكسس وبس]

اخوانى سلام الله عليكم

فى المرفق نموذج التصنيع  frmControl والفرعى الخاص به frmControlSub 

عند ادخال بيانات فى النموذج الفرعى frmControlSub اختيار المنتج ثم كميته التى تصنع ثم اسم صنف المادة الخام ثم ((((( ادخال كمية المنصرف من المادة الخام )))) تظهر رسالة تحذيرية الرصيد غير كافي رغم اني بدخل كمية اقل من الرصيد الحالى وهذه الرسالة مفروض تظهر فقط عندما تكون الكمية المنصرفة للتصنيع اكبر من الرصيد وهذه الرسالة لا تختفى بل تقوم بغلق النموذج بالكامل 

الرجاء تصحيح الكود حيث انه عند الخروج من الكمية Cquantityout

Private Sub Cquantityout_Exit(Cancel As Integer)
If Cquantityout > ItemBalance Then
MsgBox "الرصيد غـير كافي", vbCritical + vbOKOnly, "رسالة تحذيرية"
Cancel = -1
Else
Me.Total.SetFocus
End If
End Sub

End4.rar

[عبد الله قدور]

السلام عليكم

جرب هذا المرفق

لكن اخي الكريم عندي ملاحظات صغيرة

1- انت وضعت الكود في حدث بعد الخروج وهذا يعطي مشكلة عند استعراض الفواتير فمثلا انت تراجع فاتورة كتبت من ستة الاشهر والمواد التي فيها قد انتهت في المستودع فاذا مر المؤشر على الكمية فستحدث عندك المشكلة

انا افضل حدث بعد التحديث في هذه الحالة

وعند الضفط على زر اضافة اتأكد أيضا ان البيانات كلها صحيحة مرة اخرى

2- محاسبيا احيانا قد تضطر الى اخراج مواد من المستودع واستخدامها في التصنيع قبل وصول فاتورة الادخال لسبب ما

لذلك برأيي يجب ان تكتفي بالتحذير ان الكمية لا تكفي في المستودع

تحياتي لك

 

End4.rar

[أكسس وبس]

اشكرك يا اخي نأخذ بالرأى الاصوب ان شاء الله

[Peposat]

السلام عليكم ا/اكسيس 

انا متابع حضرتك و ليا رجاء عند حضرتك لو ممكن لو  ممكن البرنامج بعد تعديله عشان محتاجه جدا 

انا منتظر ردك

[أكسس وبس]

اخى الكريم فيه رسالتين فى الفيجوال بيسك بتظهر خطأ

رسالة تظهر عند عدم وجود كمبية للصنف فى حدث Private Sub Category_Code_Exit(Cancel As Integer)نص الرسالة Run-time reeor "94"  ( Invaild use null) 

ورسالة تظهر  فى حدث Private Sub Category_Code_Exit(Cancel As Integer) نص الرسالة خطأ فى بناء الجملة ( عامل التشغيل مفقود) فى تعبير الاستعلام [Category_Code ]=

اخى Peposat ان شاء الله الفضل يعود لله ثم للاحبة الى فى المنتدى يكمل لان لازم يكون البرنامج مظبوط ولا يحتمل نسبة خطأ 0.0000001 فيه بعض الاشياء مازالت لم تكمل ومحتاج مساعدة من اهل الخبرة  واوعدك اول ما يخلص حرفعه فى المنتدى

[Peposat]

انا اشكرك جدا علي ردك و اهتمام وربنا يزيدك من علمه وانا هحاول اعمل سيرش علي الخطأ اللي بيظهر يمكن اعرف اساعدك ان شاء الله

[أكسس وبس]

اخوانى 

اين انتم  المشكلة عند الصرف للتصنيع فى النموذج frmControl قمت بتعديل المعادلة جملة Cancel = -1 الى جملة Cancel = 1 مرة وحذفتها مرة ولكن تظهر رسالات خطأ بالنسبة للفيجوال وهذه الرسائل تعمل ارباك للبرنامج