فكرة حلو استاذ ابو اخليل
زالرساله بتكون بهذا الشكل
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Count(*) as expr1 FROM (SELECT DISTINCT tblcomIn.Datem FROM tblcomIn)as expr2 ")
MsgBox " ( عدد ايام العمل الفعلية " & " ( " & rs!expr1 & " ", vbOKOnly + vbInformation, " تنبيه "