كيف اوقف البرنامج من اظافة قسط جديد؟

مثلاً مربع النص الذي به الباقي من الاقساط اسمه Remainder

اذن عند حدث قبل التحديث لمربع النص Remainder داخل نموذج الادخال ضع الكود التالي:

Private Sub Remainder_BeforeUpdate(Cancel As Integer)

If Remainder.Value < 0 Then

MsgBox "انتبة !! هذا العميل قام بسداد اقساط زائدة .. ولا يمكن حفظ السجل", _

 vbInformation + vbOKOnly, "الفريق العربي للبرمجة"

Cancel = True

End If

End Sub

استاذي الكريم اشكر لك اهتمامك ولكن للاسف لم يحدث معي اي شي

ارجوا التكرم بمساعدتي

انشر المثال

السلام عليكم

الكود ممتاز جدا من اخونا مبتدئ جدا ولكن عليك اخي سامي معرفة الوقت اللازم لتشغيل الكود ؟

فمثلا مربع نص reminder لايتم فيه اي ادخال ولذلك حدث قبل التحديث لا يقع .

ابحث عن المكان الذي يتم فيه التحديث ثم ضع الكود السابق وسوف يعمل باذن الله

وآخر العلاج الكي .... ارفق المثال .