منع التعديل في السجل بعد يوم

[أبو وليد]

لدي نموذج به نموذج فرعي

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

ما اريده اذا كان تاريخ السجل الموجود في النموذج الاساسي بتاريخ سابق أي قبل تاريخ اليوم

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

بارك الله فيكم

[شاهر]

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

الرئيسي

If me.[اسم حقل التاريخ[<>date then
Me![اسم النموذج الفرعي]AllowEdits = False
ELSE
Me![اسم النموذج الفرعي]AllowEdits = True
END IF

تم تعديل يناير 24, 2006 بواسطه شاهر

[أبو وليد]

الف شكر لك لم ينجح

[rudwan]

أخي حاول عكس كود الأخ شاهر

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

private sub form_before_undate(cancel as integer)

if datediff("d",[MyDate],me.parent.mydate)>0 then
cancel=true
else
cancel=false
end if
end sub

جرب الكود و أخبرني فانا لم أجربه , و اذا احتاج تعديل نعدله ان شا الله

تم تعديل يناير 26, 2006 بواسطه rudwan

[أبو وليد]

الف شكر لقد نجح الكود الاول مع تعديل بسيط