تحديد تاريخ إنتهاء صلاحية مواد غذائية بشكل آلي عند الإختيار من قائمة منسدلة

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

أخى الكريم Dr_Aykz

لا أعرف كيف تختار من الأصناف عن طريق كومبو فى النموذج الثابت .. أعتقد أنه من الأفضل أن تقوم بعمل جدول مصدر للأصناف حتى تستطيع تثبيت فترة الصلاحية لكل صنف.

ولكن قمت استعلام ليكون مصدر للنموذج .. ويضيف فترة الصلاحية التى تضعها لتاريخ الإنتاج ويخبرك عن تاريخ انتهاء الصلاحية.

ربما يكون ذلك ما طلبت

تحياتى

محمد ندا

Items.rar

اخي محمد يبدو انك اخطات في المرفق,, رجاء راجع الملف فلا يوجد به كود..

اما انا فلدي وجهة نظر في النموذج وهي ايضا ككما تفضل اخي محمد..

1- اجعل مصدر السجل للكمبو هو الجدول وعدد الحقول نفسه مع التاكد من ان خاصية نوع مصدر السجل تغيرت الى جدول\استعلام

2- الحقل المنضم هو رقم 1 طبعا .. اي رقم المنتج

3-من خلال الكود يتم تعبئة حقل مدة الصلاحية الافتراضية في الحقل.. من خلال كلمة Column السحرية..مثال..وفي حدث بعد التحديث للكمبو اي بعد اختيار قيمة..

Me.ExpirDays=Me.Items.column(3)

وتعني ادخل القيمة المقابلة للمنتج من عمود رقم 4..

وبعملية حسابية تجمع عدد الايام الى تاريخ الانتاج الذي بالمناسبة يمكن جعله تلقائيا..ولدي فكرة سارفقها لاحقا للموضوع

مثال..

Me.Exp_Date = DateAdd("d", Me.PeriodToExpire, Me.Pro_Date)

بخصوص تاريخ الانتاج

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

هنا ياتي دور دوال Dlast وغيرها

فكرة بسيطة للتوضيح فقط

همام

أستاذنا همام

أشكر لك المرور أولاً والملاحظة ثانياً..

فعلاً المرفق ليس به أى كود ... وكنت قد جعلت الموضوع عن طريق الدالة DateAdd فى خاصية بعد التحديث الخاصة بحقل تاريخ الإنتاج فيقوم بجمع الأيام التى تمثل مدة لصلاحية بالأيام إلى تاريخ الإنتاج.

ولكننى عدت وبسطت الفكرة من خلال الاستعلام الذى يقوم بالجمع المباشر .. لأننى ما زلت لا أعرف كبف سيقوم الأخ Dr_Aykz باستخدامه هكذا كما تسائلت فى أول رد لى.

وطبعاً أعتقد أن الحل الذى تفضلت به سيكون رائعاً .. فنحن فى انتظار رد صاحب السؤال.

وكما قال أستاذنا إكسير فى إحدى مشاركاته

اقتباس

ولا عطر ,, بعد عروس

تحياتى وشكرى لك ..

محمد ندا