اظهار رسالة تنبيه -- ضروري جدا ارجو احد الاخوة يتبنى الموضوع

[monefask]

السلام عليكم

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

الامر مهم جدا بالنسبة لي

 

[.Azhar]

اخي العزيز يمكن ان تضيف كود عند تحميل الفورم حيث يبين لك ان هنالك منتج قد انتهت صلاحيته 

تفضل 

Private Sub Form_Load()
 Between = Date And DateAdd("m", -6, Date)
MsgBox ("لديك منتج قد انتهت صلاحيته.")
'DoCmd.Quit
End Sud

انا اوقفت السطر الذي بعد النقر على زر ok يتم غلق البرنامج