تفضلي   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
    • Like
    3