اذهب الي المحتوي
أوفيسنا

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


أكسس وبس

الردود الموصى بها

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

فى المرفق نموذج التصنيع  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

  • Like 1
رابط هذا التعليق
شارك

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

رسالة تظهر عند عدم وجود كمبية للصنف فى حدث 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 فيه بعض الاشياء مازالت لم تكمل ومحتاج مساعدة من اهل الخبرة  واوعدك اول ما يخلص حرفعه فى المنتدى

رابط هذا التعليق
شارك

اخوانى 

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information