في البداية انا عملت استعلام باسم query2 وخليت في حقل تاريخ انتهاء العقد هذا
<=date()
يعني يظهر استعلام من تاريخ الحقل انتهاء العقد اصغر او يساوي اليوم
وبعدين عملت نموذج باسم asmend وخليت مصادره استعلام query2
و في نموذج الرئيسي عند يفتح كتبت هذا الكود
dim xx as integer
'متغير باسم ئكس ئكس وخليتها رقم
xx = nz(dcount("[employee_name]" , "query2"))
'ئكس ئكس يساوي نول زير يعنس اذا كان خالي خليها صفر وتعدا من حقل امبلوي نيم من كواريري 2
if xx > 0 then
'اذا ئكس ئكس كان اكبر من الصفر بعدين
beep
'صوت
if msgbox("عندك" & " ( " & xx & " ) " & "موظف المنتهي عقده ، هل تريد تتابعها" , vbyesno + vbmsgboxright, "تنبيه" ) = vbyes then
' بعدين فتحت شرط اخر برسالة وبها زرين نعم و لا و خليت اسم الرسالة تنبيه و خليت الرسالة بيكون من اليد اليمنى وقفلت قوس الرسالة و واذا كان تضغط على زر الرسالة نعم بعدين
docmd.openform "asmend" m acnormal
' فتح نموذج "asmend" بطريقة نورمال
else
' واذا كان لا تضغط على زر نعم ما كتبت شي يعني لا تعمل اي شيء
end if
'قفل ايف الاول
end if
'قفل ايف الثاني
مع تحياتي
شفان ريكاني
PSDB - Copy.rar