إدخال قيمة في حقل تلقائياً بناء على إدخالات معينة في الحقول الأخرى

[mr steev]

لدينا قاعدة بيانات للرعاية التناسلية للأبقار

أريد تحديد قيمة الحقل [المراقبة] , [تاريخ_المراقبة] تلقائياً كما يلي:

إذا كان حقل العملية /تلقيح/ وحقل التلقيح /ت ص/

فإن حقل المراقبة /إصراف/

وحقل تاريخ المراقبة = حقل التاريخ + 18 يوم

وفي حال أصبح: حقل التاريخ + 28 يوم > تاريخ اليوم الحالي

فإن حقل تاريخ المراقبة = التاريخ +36 يوم

وفي حال أصبح: حقل التاريخ + 50 يوم > تاريخ اليوم الحالي

فإن حقل المراقبة /جس/

وحقل تاريخ المراقبة = حقل التاريخ + 60 يوم

قمت بإرفاق الملف للتوضيح

مع جزيل الشكر للمساعدة

التناسلية.rar

[ابوخليل]

هذا الكود ضعه في المكان الذي تريد

لاحظ اني وضعته في حدث بعد التحديث لحقل التلقيح

Private Sub التلقيح_AfterUpdate()

If Me.[العملية] = "1" And Me.[التلقيح] = "1" And (Me.[التاريخ]) <= Now() Then

Me.[المراقبة] = "1"

Me.[تاريخ_المراقبة] = Me.[التاريخ] + 18


ElseIf Me.[العملية] = "1" And (Me.[التاريخ] + 28) > Now() Then

Me.[تاريخ_المراقبة] = Me.[التاريخ] + 36


ElseIf Me.[العملية] = "1" And (Me.[التاريخ] + 50) > Now() Then

Me.[المراقبة] = "2"

Me.[تاريخ_المراقبة] = Me.[التاريخ] + 60

End If

End Sub

[mr steev]

ألتمس العذر منكم وآسف للإزعاج مرة أخرى

بالنسبة للحل جزاك الله خيراً لقد أتعبتك معي بدون مقابل

بصراحة المسألة المطلوبة طويلة واختصرتها بثلاث حالات (طلبات) لأقوم بإكمالها وحدي كي لا أطيل عليكم بحلها لي, وأعتقد أني لم أقوم بصياغة المطلوب بشكل جيد لذا يوجد خلل في الحل والخطأ مني .

لذلك جددت المشاركة مرة أخرى وأرجو أن تكون الصياغة واضحة بالنسبة لكم .

قمت بتقسيم الاحتمالات في جدول موجود في صورة مرفقة كمثال تقريبي لما أريد..

وقمت بتغير أسماء الحقول إلى الإنكليزية لتسهيل التعامل معها بملف أكسس وبنفس المرفق ..

وجزيل الشكر والعرفان لكل من ساهم معنا

وذلك تكرماً منكم وليس أمرً مني

التناسلية.rar