اريد كود يظهر لى رسالة لأنتهاء تاريخ صلاحية دواء ؟

[ابونواف620]

السلام عليكم ورحمة الله وبركاتة
الأخوة الأفاضل
امل أن تساعدوني في كود يظهر لى رسالة لأنتهاء تاريخ صلاحية دواء في حالة دخول المستخدم على الشاشة
حيث ان المشروع الى لدي مشروع صيدلية
امل الرد والمساعدة
والف شكر

اخوكم ابو نواف

[IGBSpeed]

Declare
/* This Code For Give The User Message For Expire Medicenes 
if Existing *** Put This Code In When-New-Form-Trigger **I.G.B** */
a number (2);
begin select count(*) into a from tbl_medicines where med_expir_date <= sysdate ;
if a <> 0 then 
message ('!!!! هناك عدد ('||a||') أدوية منتهية الصلاحية نرجوا إخراجها من الصيدلية !!! مع تحيات المبرمج ');
message ('!!!! هناك عدد ('||a||') أدوية منتهية الصلاحية نرجوا إخراجها من الصيدلية !!! مع تحيات المبرمج ');
end ;

مع تحيات :
إبراهيم بخش ،،،،
المدينة المنورة

[mmafalha]

الله يعطيكم العافية