كيف يمكن منع ادخال بيانات بعد تاريخ محدد

[المالكي]

بسم الله الرحمن الرحيم

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

الرجاء المساعدة في كيفية منع المستخدم من ادخال بيانات شهر سابق بعد مرور 4 ايام مثلا من الشهر التالي

لدي قاعدة بيانات لتكاليف العمالة ويتم انهاء الادخالات غالبا في اليوم الثالث او الرابع من الشهر الجديد ، وبناء عليه يتم طباعة البيانات وتستخدم في التحليلات ، الا ان بعض المستخدمين الذي قد يكون اخطا بالادخال او نسي ادخال بعض البيانات يقوم باعادة الادخال بعد طباعة التقارير دون اعلامي مما يترتب عليه بعض المشكلات ،

ويتضمن النموزج حقل للتاريخ يظهر تلقائيا به تاريخ اليوم ، واريد اذا قام احد المستخدمين اي بيانات جديدة تخص شهر مارس مثلا وذلك بعد تاريخ 4 ابريل يتم رفض الادخال ويعطي المستخدم رسالة بان هذا التاريخ تعدي وقت الادخال المسموح به

اشكركم مقدما

تم تعديل أبريل 4, 2006 بواسطه المالكي

[المالكي]

ايه الحكاية ما فيش رد ، معقولة عباقرة المنتدي ما عندهم حل

[rudwan]

السلام عليكم

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

private sub form_beforeubdate(cancel as integer)
if datediff("m",now(),"MyDate") =1 and day(now())<4 then
cancel=false
else
if month(now())=month(MyDate)  then

cancel=false
else

 cancel=true
end if
end if
end sub

حيث MyDate هي اسم حقل التاريخ في النموذج

[المالكي]

اخي رضوان

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

اشكرك علي الرد

لكن ياريت تشرح لي الكود لان ما يشتغل ، يمكن لان التاريخ عندي اسمه date ومش عارف MyDate اللي حضرتك كاتبها هل هي اسم الحقل نفسه

وجملة end if مكررة مرتين هل كده مضبوط

واشكرك لتعبك معايا

[rudwan]

أخي الصق الكود كما هو , و غير اسم الحقل MyDate الى اسم حقل التاريخ الذي عندك