10-04-20, 02:03 PM
(آخر تعديل لهذه المشاركة : 10-04-20, 02:14 PM {2} بواسطة Ahmed_Mansoor.)
(09-04-20, 10:11 AM)مصمم هاوي كتب :(08-04-20, 02:17 PM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم , تم تعديل المثال , بالتوفيق .
هذا هو المطلوب إن شاء الله، غير أنه هناك شرطاً أعتقدُ أنه لم يتحقق - وهو شرط مادة علوم الحديث أن تكون درجة النجاح (80) فما فوق
فأرجو التعديل على هذا الجزء فقط
كود :
If DataControl1.Recordset.Fields("tr" & I).Value < 40 Then
ولا يسُعني في هذا المقام إلا أن أقـــول لكَ:
ﻋَﻦْ ﻋَﺎﺋِﺸَﺔَ ﺭَﺿِﻲَ ﺍﻟﻠَّﻪُ ﻋَﻨْﻬَﺎ: (ﻣَﻦْ ﺃَﺗَﻰ ﺇﻟَﻴْﻪِ ﻣَﻌْﺮُﻭﻑٌ ﻓَﻠْﻴُﻜَﺎﻓِﺊْ ﺑِﻪِ ﻓَﺈِﻥْ ﻟَﻢْ ﻳَﺴْﺘَﻄِﻊْ ﻓَﻠْﻴَﺬْﻛُﺮْﻩُ ﻓَﻤَﻦْ ﺫَﻛَﺮَﻩُ ﻓَﻘَﺪْ ﺷَﻜَﺮَﻩُ) .
ﺭَﻭَﺍﻩُ ﺃَﺣْﻤَﺪُ .
* ﻭَﻋَﻦْ ﺃُﺳَﺎﻣَﺔَ ﻣَﺮْﻓُﻮﻋًﺎ )ﻣَﻦْ ﺻُﻨِﻊَ ﺇﻟَﻴْﻪِ ﻣَﻌْﺮُﻭﻑٌ ﻓَﻘَﺎﻝَ ﻟِﻔَﺎﻋِﻠِﻪِ : ﺟَﺰَﺍﻙَ ﺍﻟﻠَّﻪُ ﺧَﻴْﺮًﺍ ﻓَﻘَﺪْ ﺃَﺑْﻠَﻎَ ﻓِﻲ ﺍﻟﺜَّﻨَﺎﺀِ) ﺭَﻭَﺍﻩُ ﺍﻟﺘِّﺮْﻣِﺬِﻱُّ .
* ﻭَﻋَﻦْ ﺃَﺑِﻲ ﺳَﻌِﻴﺪٍ: (ﻣَﻦْ ﻟَﻢْ ﻳَﺸْﻜُﺮْ ﺍﻟﻨَّﺎﺱَ ﻟَﻢْ ﻳَﺸْﻜُﺮْ ﺍﻟﻠَّﻪَ ﻋَﺰَّ ﻭَﺟَﻞَّ)
ﺭَﻭَﺍﻩُ ﺃَﺣْﻤَﺪُ ﻭَﺍﻟﺘِّﺮْﻣِﺬِﻱُّ ﻭَﺣَﺴَّﻨَﻪُ .
فأسالَُ اللهَ الواحد الأحدَ الفرد الصمدَ أن يحييكَ حياةً طيبةً مباركةً فيها،
وأن يمنَّ عليكَ بالصحةِ والعافية، وراة البالِ، وأن يمنَّ عليك بطول العمر
وأن يرزقكَ من الخيرِ كلهِ عاجلهِ وآجلهِ
وأن يجعلَ هذا العملَ في ميزانِ حسناتكِ في الدنيا والآخرة
أهلا بك أخي الكريم , اللهم آمين يارب العالمين , الله يتقبل لي ولك , جزاك الله كل خير وشكرا جزيلا لك .
السلام عليكم ورحمة الله وبركاته
أهلا بك أخي الكريم , تم تعديل المثال , بالتوفيق .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next