التنبيه بقرب تاريخ انتهاء الصلاحية للمنتجات

[hougar]

السلام عليكم

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

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

[Eng.Qassim]

منذ ساعه, hougar said:

أتسائل هل يمكن أن يكون هناك طريقة لعرض التنبيهات أمام المستخدم بوجود انتهاء الصلاحية أو قرب موعد انتهاء الصلاحية للمنتجات في شاشة البيع

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

[hougar]

20 دقائق مضت, Eng.Qassim said:

تضع شرطا قبل انتهاء الصلاحية ب 30 يوما مثلا

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

وان أرد على رسالتك راودتني فكرة الاستعانة بدالة  DLookup مع Count لكن لازلت افكر لم أبدأ التطبيق والتجربة بعد.

[Moosak]

جرب هذه الدالة أخي @hougar 🙂 :

DCount("[ID]","[ItemsTable]","[ExpiryDate] >=#"& date &"# And [ExpiryDate] <=#"& date+30 &"#")

لعد المنتجات التي ستنتهي خلال ال 30 يوما القادمة .

تم تعديل يوليو 4, 2022 بواسطه Moosak

[hougar]

شكراالاخ موسى @Moosak لقدنجح الامر مع الدالة   

بارك الله فيك

[Moosak]

العفو أخي @hougar 🙂 ..

ولا تنسى تمر على الموضوع الجميل ☺️ :

 

 

[Eng.Qassim]

20 ساعات مضت, hougar said:

لازلت افكر لم أبدأ التطبيق والتجربة بعد

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

[hougar]

استاذي @Eng.Qassim فكرتي تركز على اضافة خاصية الاشعار أو التنبيه تظهر عند وجود منتج واحد  أو أكثر قريب انتهاء الصلاحية مثل برامج التواصل الاجتماعي التي تنبهك إلى وجود رسائل غير مقروءة أو غيرها....

أما فكرة انشاء تقرير يكون مصدر بياناته استعلام لعرض المنتجات قريب انتهاء الصلاحية فهي موجودة بالفعل في برنامجي.

وقد أكملت عملي في اضافة خاصية الاشعار notification

والكود الذي يتحكم في ظهور الاشعار  كالتالي:

 

()Private Sub Form_Current
If DCount("[Nproduct]", "[Products]", "[ExpirationD]-Date() <30") <> 0 Then
notification.Visible = True
Else
notification.Visible = False
End If
End Sub

وعند النقر على صورة الاشعار في حالة ظهورها يفتح تقرير عرض المنتج قريب انتهاء الصلاحية. والصور المرفقة توضح حالتين لظهور الاشعار وعدم ظهوره في واجهة البرنامج

()Private Sub notification_Click
On Error Resume Next
DoCmd.OpenReport "ExpP", acViewReport, , , acWindowNormal

End Sub

تم تعديل يوليو 5, 2022 بواسطه hougar