وعليكم السلام
بالاضافة لما تفضل به الاستاذ خليفة ..تعمل استعلام يظهر الارقام المتشابهة لمرة واحدة بأستخدام الاداة DISTINCT
SELECT DISTINCT الموظفين.القسم, الموظفين.الادارة
FROM الموظفين
WHERE (((الموظفين.الادارة)=1));
ثم تقوم بحساب عدد الاقسام من مربع النص:
=DCount("[القسم]","[Qry1]")