ظهور رسالة عند ادخال تاريخ قبل ادخال رقم في حقل السداد

لديك حلان..

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

يظهر او يفعل فقط في حال ادخال المبلغ

والكود هو

If Not IsNull(Me.Ctl66) Then
   Me.PayDate.Enabled = True
Else
  Me.PayDate.Enabled = False
End If

او كما تريد رسالة..

Private Sub äÕ46_AfterUpdate()
If IsNull(Me.Ctl66) Then
  MsgBox "ادخل المبلغ"
   Me.Ctl66.SetFocus
   Me.Undo
End If
End Sub

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

جزاك الله الف خير عزيزي لكن عندي سؤال عزيزي هو ان مبلغ السداد الافتراضي قيمة صفر لا يحسب الصفر قيمة وياريد تطبق المثال لاني طبقة ظهر خطا معي لو تكرمت

عزيزي الله يجزيك الخير طبقت المثال ولكن عندي قيمة مبلغ السداد الافتراضية 0 يظهر الرسالة اذا كان مبلغ السداد =صفر او اقل تظهر الرسالة انة لا يمكن ادخال التاريخ الا اذا ادخل المبلغ مع خالص تحياتي

اشكرك عزيزي عدلت المعادلة ونجحت وصار المطلوب وهذة المعادلة بعد التعديل عليها الله يجزيك الجنة

Private Sub äÕ46_AfterUpdate()

If IsNull(Me.Ctl66)=0 Then

MsgBox "ادخل المبلغ"

Me.Ctl66.SetFocus

Me.Undo

End If

End Sub

عزيزي للاسف فكرت اني حليتها ولكن اصبحت الرسالة تظهر كل مرة

المشكلة اريد الرسالة تظهر اذا كانت حقل مبلغ السداد صفر واراد المستخدم ادخال تاريخ السداد

اخي fas2010

هذا برنامجك بعد التعديل إن شاء الله ان هذا ماتريد

وتقبل مروري

2365.zip

اخي العزيز fas2010

المرفق الاول يظهر رساله في حاله حقل مبلغ السداد 0 او رقم بسالب

اما المرفق الثاني فيظهر رساله تنبيه نفس الاول بالأضافة الى اذا كان الحقل فارغ

تحياتي

2365.zip

سلمان الشهراني كتب:

اخي العزيز fas2010

المرفق الاول يظهر رساله في حاله حقل مبلغ السداد 0 او رقم بسالب

اما المرفق الثاني فيظهر رساله تنبيه نفس الاول بالأضافة الى اذا كان الحقل فارغ

تحياتي

نعم هذا المطلوب جزاك الله الف خير