ابشرا اخوتى فى الله
لقد نجح الكود بعد تعديل بسيط فقط تركت الجملة التالية كما كانت عليه من قبل ( جملة ابى خليل )
date1 = DateAdd("d", 1, date1)
والحمد لله نجحت التجربة
اشكرك اخى ابو خليل واشكرك اخى ابى ياسر على تعاونكما
زادكم الله من علمه ووسع عليكما
اخوكم الطالب اسامة