المساعدة فى تنشيط زر الحفظ فى نموذج على حسب التاريخ

[الحســـام]

السلام عليكم ورحمة الله

ارجو من حضراتكم توضيح كيف يتم تنشيط وعدم تنشيط الازرار بناء على حقل به تاريخ على اوفيس 2010

وجزاكم الله خيرا

test.rar

[عبدالرحمن هاشم]

وعليكم السلام ورحمة الله

 

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

If Me.ÇáÊÇÑíÎ.Value >= DatNow.Value Then
save.Enabled = True
Else
save.Enabled = False
End If

test.rar

[ابو جودي]

 

وعليكم السلام ورحمة الله

 

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

If Me.ÇáÊÇÑíÎ.Value >= DatNow.Value Then
save.Enabled = True
Else
save.Enabled = False
End If

 

تسلم ايدك استاذنا الغالى 

على فكرة عجبتنى قوى الفكرة دى

[عبدالرحمن هاشم]

تسلم أستاذي وأخي الكريم أسير الشروق

[رمهان]

مشاركة مع الأستاذ عبدالرحمن

ضع الحدثين التاليين :

Private Sub Form_Current()
Me.save.Enabled = Nz(Me.التاريخ, 0) >= Date
End Sub

Private Sub التاريخ_AfterUpdate()
Me.save.Enabled = Nz(Me.التاريخ, 0) >= Date
End Sub

بالتوفيق

تم تعديل أبريل 3, 2015 بواسطه رمهان

[الحســـام]

جزاكم الله خيرا جميعا

جار التجربة .......

[الحســـام]

اشكركم على المتابعة واسف للاطالة ....

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

فكيف يتم اضافتة لكى يعمل مع النموذج المستمر

[رمهان]

ارفق النموذج المستمر وبه الاستفسار ! ويمكن وضعه بموضوع جديد !

تحياتي