وعليكم السلام ورحمة الله  
 
اخي خضر بدايتا اشكرك جزيل الشكر  
 
اخي احمد الله وصلت للحل وذلك عن طريق متغير في Query  اسميته m يعطيني قيمة الشهر فقط      m:month([DateEntry])   
 
ولكن تظهر رسالة بعد الطباعة تقول   
 
'' Microsoft Access has encountered a problem and needs to close . We are sorry for the inconvenience ''  
 
حدثت مشكلة ما ولا اعلم ماهي مع العلم بأن كل شي تمام والطباعة اوكي !!!!!!!    ارجوا ان تتوصلوا للحل .. 
 
هذا المثال بعد التعديل  
 
http://www.kfupm.edu.sa/library/MonthlyRecord1.zip 
 
 
 
اشكركم  
 
 
استودعكم الله