رسالة تفيد بأن الكمية المنقوصة أكثر من الكمية المتاحة

[أب مارية]

السلام عليكم اخوتي الكرام

شكر جزيل لكل الاخوة في هذا المنتدى التعليمي القيم.

أعمل منذ مدة على برنامج متواضع لكن واجهت عدة مشاكل سوف أقوم بطرحها مشكل بمشكل لتعميم الفائدة باذن الله.

على بركة الله:

1 -  في الصورة التالية نريد ادراج رسالة تنبيه تفيد بأن عدد الوحدات المباعة أكبر من عدد الوحدات المتاحة 

في انتظار حل هذا الاشكال تقبلو مني فائق التقدير والاحترام.

 

ProjetB3.rar

[أبو حنــــين]

السلام عليكم

قم بنسخ هذا الكود كما هو

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Val(TextBox7.Value) < Val(TextBox5.Value) Then
MsgBox "La quantité n'est pas disponible", vbExclamation, "ERREUR"
TextBox5 = "": Cancel = True

End If
End Sub

[أب مارية]

مشكور أخي أبو حنين تم التجريب بالنجاح

ننتقل إلى المشكل الموالي:

ثانيا: هنا نريد اضافة ليست بكوس لاجراء تعديلات وهو موضع بالصورة التالية

 

في انتظار ردودكم تقبلوا تحياتي

[أب مارية]

لكسب الوقت ونظرا لعدم توفر حل للمشكل السابق سنتطرق إلى أشياء أخرى

ثالثا: عند الضغط على زر O.Vents قمنا بادراج زر جديد تحت اسم Vider Celleles حيث يكمن دوره في مسح جميع المعلومات الخاصة بـ Date - Désignation - P.Achat - Qn - Montant - P.Vent.

رابعا: هنا المشكل متعلق بحذف عملية في تاريخ معين دون التاريخ الأول المدرج في القائمة والشرح مرفق في الصورة التالية:

[أب مارية]

لكسب الوقت ونظرا لعدم توفر حل للمشكل السابق سنتطرق إلى أشياء أخرى

ثالثا: عند الضغط على زر O.Vents قمنا بادراج زر جديد تحت اسم Vider Celleles حيث يكمن دوره في مسح جميع المعلومات الخاصة بـ Date - Désignation - P.Achat - Qn - Montant - P.Vent.

رابعا: هنا المشكل متعلق بحذف عملية في تاريخ معين دون التاريخ الأول المدرج في القائمة والشرح مرفق في الصورة التالية:

Projet.rar

[أب مارية]

هل المطلوب غير واضح