[مصمم هاوي]

(08-04-20, 02:17 PM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم , تم تعديل المثال , بالتوفيق .

هذا هو المطلوب إن شاء الله، غير أنه هناك شرطاً أعتقدُ أنه لم يتحقق - وهو شرط مادة علوم الحديث أن تكون درجة النجاح (80) فما فوق

فأرجو التعديل على هذا الجزء فقط

كود :

If DataControl1.Recordset.Fields("tr" & I).Value < 40 Then

ولا يسُعني في هذا المقام إلا أن أقـــول لكَ:
ﻋَﻦْ ﻋَﺎﺋِﺸَﺔَ ﺭَﺿِﻲَ ﺍﻟﻠَّﻪُ ﻋَﻨْﻬَﺎ: (ﻣَﻦْ ﺃَﺗَﻰ ﺇﻟَﻴْﻪِ ﻣَﻌْﺮُﻭﻑٌ ﻓَﻠْﻴُﻜَﺎﻓِﺊْ ﺑِﻪِ ﻓَﺈِﻥْ ﻟَﻢْ ﻳَﺴْﺘَﻄِﻊْ ﻓَﻠْﻴَﺬْﻛُﺮْﻩُ ﻓَﻤَﻦْ ﺫَﻛَﺮَﻩُ ﻓَﻘَﺪْ ﺷَﻜَﺮَﻩُ) .
ﺭَﻭَﺍﻩُ ﺃَﺣْﻤَﺪُ .
* ﻭَﻋَﻦْ ﺃُﺳَﺎﻣَﺔَ ﻣَﺮْﻓُﻮﻋًﺎ )ﻣَﻦْ ﺻُﻨِﻊَ ﺇﻟَﻴْﻪِ ﻣَﻌْﺮُﻭﻑٌ ﻓَﻘَﺎﻝَ ﻟِﻔَﺎﻋِﻠِﻪِ : ﺟَﺰَﺍﻙَ ﺍﻟﻠَّﻪُ ﺧَﻴْﺮًﺍ ﻓَﻘَﺪْ ﺃَﺑْﻠَﻎَ ﻓِﻲ ﺍﻟﺜَّﻨَﺎﺀِ) ﺭَﻭَﺍﻩُ ﺍﻟﺘِّﺮْﻣِﺬِﻱُّ .
* ﻭَﻋَﻦْ ﺃَﺑِﻲ ﺳَﻌِﻴﺪٍ: (ﻣَﻦْ ﻟَﻢْ ﻳَﺸْﻜُﺮْ ﺍﻟﻨَّﺎﺱَ ﻟَﻢْ ﻳَﺸْﻜُﺮْ ﺍﻟﻠَّﻪَ ﻋَﺰَّ ﻭَﺟَﻞَّ)
ﺭَﻭَﺍﻩُ ﺃَﺣْﻤَﺪُ ﻭَﺍﻟﺘِّﺮْﻣِﺬِﻱُّ ﻭَﺣَﺴَّﻨَﻪُ .

فأسالَُ اللهَ الواحد الأحدَ الفرد الصمدَ أن يحييكَ حياةً طيبةً مباركةً فيها،
وأن يمنَّ عليكَ بالصحةِ والعافية، وراة البالِ، وأن يمنَّ عليك بطول العمر
وأن يرزقكَ من الخيرِ كلهِ عاجلهِ وآجلهِ
وأن يجعلَ هذا العملَ في ميزانِ حسناتكِ في الدنيا والآخرة