السلام عليكم ورحمة الله
اعضاء المنتدى الكرام اساتذتي الافاضل اود عمل رسائل تنبيه او تحذير للغياب وعلى سبيل المثال اذا كان عدد غياب الموظف يتجاوز ثلاث ايام متالية(بالنسبة لتاريخ تغيبه) يظهر مسج معين كأن يكون (تحذير لقد تجاوزت حد الاعلى للغياب )واذا تجاوز الحد المذكور لكن بتاريخ غياب متقطع يظهر مسج اخرى بتنبيه معين ,
المطلوب عمل استعلام يبحث عدد الموظفين الغياب محدد بثلاث ايام متتالية في جدول الحضور والانصراف وكذلك يبحث عدد الموظفين الغياب لثلاث ايام لكن بشكل منقطع
هذا ولكم كل
تفضلي
1. عملنا نموذج فيه التاريخ من/الى ،
2. عملنا استعلام مجموعي ، لحساب عدد الغياب فقط بين التاريخين ، والموظف الذي يملك عدد غياب اكبر من يومين ، يتم ارسال اسمه الى الوحدة النمطية Check_Abs
.
تقوم الوحدة النمطية بمقارنة اليوم rst!Date ، باليوم السابق + يوم (DateAdd("d", 1, Prev_Date)،
واذا كانت النتيجة متساوية ، يقوم العداد Seq بجمع الايام ،
Function Check_Abs(EN)
'EN = Employee Name
Dim rst As DAO.Recordset
fD = [Forms]![frm_Da