نجوم المشاركات

السلام عليكم : اعضاء المنتدي من خبايا الرقم القومي . صممت هذ البرنامج وبدون اكواد لان في اعضاء كتير يحتاجون هذه المعلومات . الصورة توضح اكثر ... my_data.xlsx

Never mind my bro Abdullah Out target is not to get the best solution but to help others as possible as we can May Allah bless you

في هذا البرنامج بالذات أتعبت الأكسل وأتعبني كان التحدي أن يتم العمل بدون أكواد فيجول فقط بالدوال والتنسيق الشرطي والارتباط التشعبي أدعو الله أن أكون فيه موفقا وأن يفيد ولو واحدا من إخواني المسلمين البرنامج فيه خبايا وأسرار خلف الستار للمهتمين بالأكسل . تأجير الشقق.xlsx

السلام عليكم السيد الفاضل ابو بهاء المصري نأمل منكم تعديل اختياركم افضل اجابة للسيد lionheart فهو من يستحقها وهو صاجب الكود . وعندما كان ردكم على اجابته فاجابكم استاذنا الفاضل انتظر شخص ما لإرفاق الملف من أجلك ما عليك سوى اتباع الخطوات وستتمكن من تشغيلها بشكل صحيح وما قمت به انا وضع الكود بالملف واتباع الحطوات ولم اغير في الكود نقطة واحدة فالحل قام به استاذنا lionheart وهو صاحب الفضل ففضلا لا امر تغيير اختياركم لافضل اجابة الى صاحب الفضل . تحياتي

برنامج رائع تسلم ايديك

تفضل جرب Sub زر1_انقر() Dim Lr As Long, i As Long, R As Long Dim txt Set sht = Worksheets("بحث") Set sht2 = Worksheets("قاموس") txt = sht.Range("B2") Application.ScreenUpdating = False sht.Range("B4:BM30000").ClearContents With sht2 Lr = .Cells(.Rows.Count, "B").End(xlUp).Row For i = Lr To 2 Step -1 If txt = CStr(.Cells(i, "B")) Then 'If txt = CStr(.Cells(i, "B")) Or txt = CStr(.Cells(i, "B")) Or InStr(CStr(.Cells(i, "B")), txt) Then sht.Cells(R + 4, "B").Resize(1, 3).Value = sht2.Cells(i, "B").Resize(1, 3).Value R = R + 1 If R = 40 Then Exit For End If Next End With Application.ScreenUpdating = True End Sub بحث عن طريق الضغط.xlsb

وعليكم السلام ورحمة الله وبركاته .. حياك الله أخي @TQTHAMI 🙂 لو تضع نوع المشاكل التي واجهتك بالتحديد لسهلت الموضوع على الإخوة 🙂 وأعتقد أنا أغلب المشاكل هي دوال ال API وطريقة جعلها تعمل على النواتين 32 بت و 64 بت .. ولحلها يمكنك مراجعة هذا الموضوع للمهندس الكبير @jjafferr : ويمكنك البحث عن المواضيع المشابهة عن طريق برنامج البحث الرائع في مواضيع المنتدى للحصول على الحل المناسب لك :

لم يعمل بس لما غيرت (val as integer) الى double اشتغل الف شكر جزاكم الله خيرا Public Function buyVal(Val As double) As Double

من هذه الخاصية يمكن معرفة حدوث تعديل على البيانات أو لا، ولكن أعتقد (كما أتذكر) أنها تعمل مع النماذج التي لها مصدر بيانات أو كما تسمونها كما أعتقد "مرتبطة". If Me.Dirty Then MsgBox "لقد تم التعديل على البيانات" End If

السلام عليكم ورحمة الله وبركاته تأكد من تثبيت النواة المناسبة لك .. قد تكون قمت بتثبيت أوفيس 64 بت وأنت كنت تستخدم إصدارة 32 بت أو العكس

ويمكن اختصار الإجراءين كالتالي: Dim ctl As Control For Each ctl In Me.Controls ctl.Visible = ctl.ControlType <> acTextBox Next ctl Set ctl = Nothing Dim ctl As Control For Each ctl In Me.Controls ctl.Enabled = ctl.ControlType <> acTextBox Next ctl Set ctl = Nothing

بارك الله لكم جميعا اعضاء ومشرفي هذا المنتدي الكبير ما اعظم عقولكم وما ارقي مساعدتكم ابوحبيبه عبدالله بشير عبدالله lionheart لكم كل تقدير واحترام

تفضل التعديل اخفاء العناصر Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then Form(ctl.Name).Visible = False End If Next ctl عدم تمكين الكتابة داخل مربع النص لجميع العناصر Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then Form(ctl.Name).Enabled = False End If Next ctl Database41.accdb

لإضافة التسميات لقسم رأس الصفحة للتقرير في طور التصميم لتنظيم التسميات لقسم رأس الصفحة للتقرير في طور التشغيل 'AbuuAhmed, Officena.net '2023/06/15 Sub AddReportPageHeaderLabels(rptName As String) Dim acr As Byte, acrs As Byte Dim col As Byte Dim rpt As Report Dim ctl As Control, lbl As Control Dim lblName As String 'لإضافة التسميات في قسم رأس الصفحة للتقارير متكررة الأعمدة في طور التصميم 'On Error Resume Next DoCmd.OpenReport rptName, acViewDesign, , , acHidden Set rpt = Reports(rptName) acrs = rpt.Printer.ItemsAcross With rpt.Section(acPageHeader) Do While .Controls.Count > 0 For Each ctl In .Controls Call DeleteReportControl(rptName, ctl.Name) Next ctl Loop For acr = 1 To acrs col = 0 For Each ctl In rpt.Section(acDetail).Controls col = col + 1 lblName = "col" & Format(col, "00") & Format(acr, "_00") Set lbl = CreateReportControl(rptName, acLabel, acPageHeader, , lblName) lbl.Name = lblName lbl.Caption = IIf(ctl.Tag = "", ctl.Name, ctl.Tag) lbl.ControlTipText = ctl.Name lbl.Left = ctl.Left lbl.Width = ctl.Width lbl.Top = lbl.Height * (acr - 1) lbl.TextAlign = 2 lbl.BorderStyle = 1 lbl.BackStyle = 1 lbl.BackColor = RGB(216, 216, 216) Next ctl Next acr .Height = 0 End With DoCmd.Close acReport, rptName, acSaveYes Set rpt = Nothing Set ctl = Nothing Set lbl = Nothing MsgBox "Done" End Sub Sub ReportOpen4PageHeader(rptName As String) Dim col As Byte, cols As Byte Dim acr As Byte, acrs As Byte Dim rpt As Report Dim ctl0 As Control, ctl1 As Control, ctl2 As Control 'لتنظيم التسميات في قسم رأس الصفحة للتقارير متكررة الأعمدة في طور التشغيل On Error Resume Next Set rpt = Reports(rptName) rpt.Printer.ItemLayout = acPRVerticalColumnLayout rpt.Printer.DefaultSize = False cols = rpt.Section(acDetail).Controls.Count acrs = rpt.Printer.ItemsAcross For Each ctl0 In rpt.Section(acPageHeader).Controls With rpt.Controls(ctl0.ControlTipText) ctl0.Left = .Left ctl0.Width = .Width End With Next ctl0 Set ctl0 = rpt("col" & Format(cols, "00") & "_01") rpt.Width = rpt.WindowWidth For acr = 2 To acrs For col = 1 To cols Set ctl1 = rpt("col" & Format(col, "00") & "_01") Set ctl2 = rpt("col" & Format(col, "00") & Format(acr, "_00")) With ctl2 .Left = ctl0.Left + ctl0.Width + IIf(col = 1, rpt.Printer.ColumnSpacing, 0) .Top = ctl1.Top '.Width = ctl1.Width .Height = ctl1.Height .BackColor = ctl1.BackColor .ForeColor = ctl1.ForeColor .BackStyle = ctl1.BackStyle .Caption = ctl1.Caption End With Set ctl0 = ctl2 Next col Next acr rpt.Width = 0 With rpt.Section(acPageHeader) .Height = 0 .Height = .Height + rpt("col01_01").Top End With Set rpt = Nothing Set ctl0 = Nothing Set ctl1 = Nothing Set ctl2 = Nothing End Sub حل للتقارير متعددة الأعمدة_01.accdb

قد لا يشعر بعضكم بالتعديل في إضافة صناديق التسميات في قسم رأس الصفحة، عليه بفتح تقرير rptReport2 في طور التصميم وحذف كل صناديق التسميات في قسم رأس الصفحة ثم حفظه، ثم تشغيل الإجراء AddReportPageHeaderLabels وإعادة فتح التقرير لمشاهدة نتيجة إضافة الصناديق. للإستفادة الكاملة من حدث الإضافة ينصح بإضافة التسميات في الخاصية Tag لصناديق قسم التفاصيل . أما من لا يريد استخدام هذا الإجراء ويرغب في إضافة التسميات بنفسه فينصح: بإضافة أسماء صناديق قسم التفاصيل في خاصية ControlTipText لصناديق قسم رأس الصفحة. أما بالنسبة للتقرير rptReport1 فقم بفتحه في طور التصميم وانظر إلى بعثرة صناديق التسميات في قسم رأس الصفحة، ثم أعد فتحه في طور التشغيل لمشاهدة الصناديق وقد صفت بشكل منظم. أعتقد أن هذا حل احترافي ويحتاج إلى عناية من المنتدى وكذلك العناية من أعضاء المنتدى ممن يستوعبون فكرته وجدواه.

مع ان السؤال موجه للاخ ابو خليفة ولكن سوف اضع مشاركة ربما ينتفع بها احدهم وسوف اتحدث عن طريقة واحدة Dim txPassword As String txPassword = Me.tx_pas.Value Dim DB As DAO.Database Set DB = DBEngine.OpenDatabase(Name:=txtName, Options:=False, ReadOnly:=False, Connect:=";PWD=" & txPassword) يمكن وضعها قبل امر التصدير هنا استخدمت متغير نصي لكلمة المرور لكوني انفذ الامر عن طريق نموذج واستخدم مربع نص لادخال الكلمة اما لو اكتفينا بادخال كلمة المرور عن طريق الكود مباشرة فيمكن استخدام الثوابت بدلل من المتغيرات او الابقاء على المتغير Const txPassword = "كلمة المرور" ايضا في السطر الرابع Name:=txtName هذا مربع نص يحتوي على مسار قاعدة البيانات ويمكن كتابة اسم القاعدة والمسار مباشرة اخيرا تطبيق الامر على مثالي السابق ووضعت زري امر واحد للتصدير لقاعدة مفتوحة والاخر لقاعدة مشفرة بكلمة مرور ويمكن دمج الامرين في زر واحد ولكني اكتفي بهذا Database23(1).accdb

السلام عليكم ورحمة الله وبركاته مشاركة مع احبائى واساتذتى الكرام و اثراء للموضوع برجاء مشاهدة هذه المشاركة

مشاركة مع الاخ @kkhalifa1960 بداية الاكسس يتيح عملها بدون الحاجة الى اكواد عن طريق استعلام الحاق ويتيح الحاق بيانات من جدول الى اخر في قاعدة اخرى وكذلك الحال يتيح امكانية انشاء جدول في قاعدة اخرى "البنية والبيانات او البنية فقط" بالنسبة لمشاركة الاخ خليفة ممكن اجراء تعديل بسيط من خلال انشاء نموذج يتم من خلاله اختيار مسار قاعدة البيانات وعمل قائمة لاختيار متعدد ليمكن تصدير جدول او اكثر بامر واحد -------------- اخيرا عند الله تجتمع الخصوم Database23.accdb

خطبة عن النفاق والمنافقين للشيخ محمد نبيه يوضح فيها كيف بدأ النفاق ويبين فيها بعض صفات المنافقين كما ورد ذكرهم في القرآن والسنة. بداية النفاق ابتدأ بعد غزوة بدر، وسيبقى ما بقي صراع بين حق وباطل. ولو نظرنا إلى القرآن لوجدنا أن الآيات المكية لا ذكر للنفاق فيها؛ لأن المشركين ما كانوا يسترون كفرهم. فلما هاجر النبي صلى الله عليه وسلم إلى المدينة، لم يكن هناك نفاق في أول الأمر؛ بل كفر ظاهر أوإيمان باطن وظاهر؛ لأنه لم يكن للمسلمين شوكة تخاف، أوقوةٌ تهاب. فلما عزَّ الإسلام، وقويت شوكة المسلمين بعد بدر الكبرى كما في صحيح البخاري: قال عبدالله بن أبي بن سلول: وكان على الكفر آنذاك: “هذا أمر قد توجه”. فأظهر الدخول في الإسلام، ودخل معه في النفاق طوائف من عرب المدينة وأعرابها المجاورين لها، ومن اليهود، فأظهروا الإسلام وأبطنوا الكفر. وصُدِّرت أطول سورة مدنية بذكر صفاتهم، والتحذير من خطرهم بعد ذكر المؤمنين وذكر الكافرين، إنها سورة البقرة، بدأها الله تعالى بذكر المؤمنين في أربع آيات، ثم ثنى بذكر الكفار في آيتين، ثم ثلث بذكر المنافقين في ثلاث عشرة آية، وهذا دليل على أن الاهتمام بدفع شرهم أشدُّ من الاهتمام بدفع شر الكفار، كما يدل على لأنهم أشد خطراً من الكفار. صفات المنافقين المرجفون قال الله تعالى: (لَّئِن لَّمْ يَنتَهِ الْمُنَافِقُونَ وَالَّذِينَ فِي قُلُوبِهِم مَّرَضٌ وَالْمُرْجِفُونَ فِي الْمَدِينَةِ لَنُغْرِيَنَّكَ بِهِمْ ثُمَّ لَا يُجَاوِرُونَكَ فِيهَا إِلَّا قَلِيلًا). (سورة الأحزاب:60) المرجفون هم أشخاص تخصصوا في الافتراء والكذب على الله ورسوله وعلى العلماء وعلى الناس كافة الأحياء والأموات، وعلى تاريخ الأمم وحاضرها ولا تسلم السنون والأيام من إفكهم وتزييفهم. والمرجفون يتلاعبون بالوعي العام ومصالح الناس، هم رسل الشيطان الذين يزينون للناس السوء من الأقوال والأفعال والمواقف، ويزيفون الوقائع والأحداث في كلياتها وتفاصيلها أوجزئياتها. المرجفون يشككون في الأخلاق والقيم والفضائل وكل الأعمال التي تبتغي الإصلاح والصلاح والتغيير. قال ابن عباس رضي الله عنه: الإرجاف: التماس الفتنة وإشاعة الكذب. والإرجاف لغة واحد الأراجيف، وقد أرجفوا في الأمر أي خاضوا فيه وأحدثوا فيه اضطراباً شديداً. وقال صاحب اللسان: (والمرجفون في المدينة هم الذين يُولَّدون الأخبار الكاذبة التي يكون معها اضطراب الناس بقصد إحداث البلبلة وخلخلة الأمن ونشر أخبار السوء حتى قالوا: الأراجيف ملاقيح الفتن). المرجفون: هم من يسعون إلى إحداث الاضطراب الشديد في المجتمع وخلخلة أمنه واستقراره وإشاعة الخوف والهلع في نفوس الناس عن طريق نشر وإشاعة الأخبار الكاذبة والملفقة وتهويل الأمور والمبالغة فيها إلى الحد الذي يجعل الناس في حالة من الاضطراب الشديد فيفقدون معه السيطرة على أفعالهم فينطلقون في كل اتجاه يموجون في المجتمع حيث يخرج الناس على وجوههم لا يدرون إلى أين يتجهون. قال تعالى: (لَقَدِ ابْتَغَوُا الْفِتْنَةَ مِن قَبْلُ وَقَلَّبُوا لَكَ الْأُمُورَ) (سورة التوبة:48))، أي لقد أعملوا فكرهم وأجالوا آراءهم في كيدك وكيد أصحابك وخذلان دينك وإخماده مدة طويلة، وذلك أول مقدم النبي صلى اللّه عليه وسلم المدينة. رمته العرب عن قوس واحدة، وحاربته يهود المدينة ومنافقوها فلما نصره اللّه يوم بدر وأعلى كلمته، قال عبد اللّه بن أبي وأصحابه: هذا أمر قد توجه، فدخلوا في الإسلام ظاهراً، ثم كلما أعز اللّه الإسلام وأهله غاظهم ذلك وساءهم، ولهذا قال تعالى: (حَتَّىظ° جَاءَ الْحَقُّ وَظَهَرَ أَمْرُ اللَّهِ وَهُمْ كَارِهُونَ). (سورة التوبة:48) فقلب الحقائق، وبلاغة اللسان وقلة الأفعال من أبرز صفات المنافقين، يظنون أن الفتنة هي الإثارة والهرج فقط، ويغفلون عن أن أخطر أنواع الفتنة قلب الحقائق والمفاهيم. فكُنْ حريصاً دائماً على التأكُّد مِن جميع ما يُنقل لك مِن النَّاس فإنَّ مِن أخطر أنواع الفتن قلبُ الحقائقِ وإيصالُها لكَ بالكذب، فهناك فئة يملكون مهارة فائقة فى قلب الأمور لكن لن تغيب الحقيقة! فأخطر أنواع الصراع أن يُصوّر صراع الحق والباطل على أنه صراع أفراد مع أفراد وحزب مع حزب فتختفي الحقيقة. قوله: (وَظَهَرَ أَمْرُ اللَّهِ) هو سيظهر بلا شك، ولكن هل ستكون أنت ممن ساهم في إظهاره؟ هنا السؤال. سبب نزول الآية ما رواه عبد بن حميد أن رَسُول اللَّه صَلَّى اللَّه عَلَيْهِ وَسَلَّمَ أَمَرَ أَصْحَابه بِالتَّهَيُّؤِ لِغَزْوالرُّوم وَذَلِكَ فِي زَمَان عُسْرَة مِنْ النَّاس وَشِدَّة مِنْ الْحَرّ وَجَدْب مِنْ الْبِلَاد وَحِين طَابَ الثِّمَار وَأُحِبَّتْ الظِّلَال وَالنَّاس يُحِبُّونَ الْمَقَام فِي ثِمَارهمْ وَظِلَالهمْ وَيَكْرَهُونَ الشُّخُوص عَنْهَا عَلَى الْحَال مِنْ الزَّمَان الَّذِي هُمْ عَلَيْهِ. وَكَانَ رَسُول اللَّه صَلَّى اللَّه عَلَيْهِ وَسَلَّمَ قَلَّمَا يَخْرُج فِي غَزْوَة إِلَّا كَنَّى عَنْهَا وَأَخْبَرَ أَنَّهُ يُرِيد غَيْر الَّذِي يُصْمَد لَهُ إِلَّا مَا كَانَ مِنْ غَزْوَة تَبُوك فَإِنَّهُ بَيَّنَهَا لِلنَّاسِ لِبُعْدِ الشُّقَّة وَشِدَّة الزَّمَان وَكَثْرَة الْعَدُوالَّذِي صَمَدَ لَهُ لِيَتَأَهَّب النَّاس لِذَلِكَ أُهْبَته. فَأَمَّ النَّاس بِالْجِهَادِ وَأَخْبَرَهُمْ أَنَّهُ يُرِيد الرُّوم فَتَجَهَّزَ النَّاس عَلَى مَا فِي أَنْفُسهمْ مِنْ الْكُرْه لِذَلِكَ الْوَجْه لِمَا فِيهِ مَعَ مَا عَظَّمُوا مِنْ ذِكْر الرُّوم وَغَزْوهمْ. ثُمَّ إِنَّ رَسُول اللَّه صَلَّى اللَّه عَلَيْهِ وَسَلَّمَ جَدَّ فِي سَفَره فَأَمَرَ النَّاس بِالْجِهَازِ وَالِانْكِمَاش وَحَضَّ أَهْل الْغِنَى عَلَى النَّفَقَة وَالْحُمْلَان فِي سَبِيل اللَّه. فَلَمَّا خَرَجَ رَسُول اللَّه صَلَّى اللَّه عَلَيْهِ وَسَلَّمَ ضَرَبَ عَسْكَره عَلَى ثَنِيَّة الْوَدَاع وَضَرَبَ عَبْد اللَّه بْن أُبَيّ اِبْن سَلُول عَسْكَره عَلَى ذِي حِدَة أَسْفَل مِنْهُ نَحْوذُبَاب جَبَل بِالْجَبَانَةِ أَسْفَل مِنْ ثَنِيَّة الْوَدَاع وَكَانَ فِيمَا يَزْعُمُونَ لَيْسَ بِأَقَلّ الْعَسْكَرَيْنِ. فَلَمَّا سَارَ رَسُول اللَّه صَلَّى اللَّه عَلَيْهِ وَسَلَّمَ تَخَلَّفَ عَنْهُ عَبْد اللَّه بْن أُبَيّ فِيمَنْ تَخَلَّفَ مِنْ الْمُنَافِقِينَ وَأَهْل الرَّيْب وَكَانَ عَبْد اللَّه بْن أُبَيّ أَخَا بَنِي عَوْف بْن الْخَزْرَج وَعَبْد اللَّه بْن نَبْتَل أَخَا بَنِي عَمْروبْن عَوْف وَرِفَاعَة بْن زَيْد بْن التَّابُوت أَخَا بَنِي قَيْنُقَاع وَكَانُوا مِنْ عُظَمَاء الْمُنَافِقِينَ وَكَانُوا مِمَّنْ يَكِيد لِلْإِسْلَامِ وَأَهْله. (لَقَدِ ابْتَغَوُا الْفِتْنَةَ) طلبوا لك الشَّرَّ والعنتَ قبل تبوك وهوأنَّ جماعةً منهم أرادوا الفتك به ليلة العقبة، ومن مظاهر ذلك: أنهم ساءهم انتصاركم فى غزوة بدر، وامتنعوا عن مناصرتكم فى غزوة أحد، متبعين فى ذلك زعيمهم عبد الله بن أبى بن سلول، ثم واصلوا حربهم لكم سراً وجهراً حتى كانت غزوة تبوك التى فضح الله فيها أحوالهم. فالمراد بقوله: (مِن قَبْلُ) أى: من قبل هذه الغزوة التى كانت آخر غزوة غزاها رسول الله صلى الله عليه وسلم. أى أن ما صدر عن هؤلاء المنافقين من مسالك خبيثة خلال غزوة تبوك ليس هوالأول من نوعه، بل لهم فى هذا المضمار تاريخ مظلم بدأ منذ أوائل عهد الدعوة الإِسلامية بالمدينة. قوله: (وَقَلَّبُوا لَكَ الْأُمُورَ) بيان لتفننهم فى وجوه الأذى للنبى صلى الله عليه وسلم وتقليب الأمر: تصريفه، وترديده، وإجالة الرأى فيه، والنظر إليه من كل نواحيه: لمعرفة أى ناحية منه توصل إلى الهدف المنشود. والمراد أن هؤلاء المنافقين قد ابتغوا الأذى للدعوة الإِسلامية من قبل هذه الغزوة، ودبروا لصاحبها – صلى الله عليه وسلم – المكايد، واستعملوا قصارى جهدهم، ومنهى اجتهادهم، وخلاصة مكرهم، من أجل صد الناس عن الحق الذى جاء به محمد صلى الله عليه وسلم. (وَقَلَّبُوا لَكَ الْأُمُورَ) اجتهدوا في الحيلة عليك والكيد بك. (حَتَّىظ° جَاءَ الْحَقُّ) الآية أَيْ: حتى أخزاهم الله بإظهار الحقِّ وإعزاز الدِّين على كُرهٍ منهم. الذين يحبون أن يحمدوا بما لم يفعلوا روى البخاري في صحيحه عن عَنْ أَبِي سَعِيدٍ الْخُدْرِيِّ رَضِيَ اللَّهُ عَنْهُ، أَنَّ رِجَالًا مِنَ الْمُنَافِقِينَ عَلَى عَهْدِ رَسُولِ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ كَانَ إِذَا خَرَجَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ إِلَى الْغَزْو تَخَلَّفُوا عَنْهُ، وَفَرِحُوا بِمَقْعَدِهِمْ خِلَافَ رَسُولِ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ، فَإِذَا قَدِمَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ اعْتَذَرُوا إِلَيْهِ، وَحَلَفُوا، وَأَحَبُّوا أَنْ يُحْمَدُوا بِمَا لَمْ يَفْعَلُوا، فَنَزَلَتْ: (لَا يَحْسِبَنَّ الَّذِينَ يَفْرَحُونَ). الْآيَةَ. المبطئون الشامتون يقول سبحانه: (وَإِنَّ مِنكُمْ لَمَن لَّيُبَطِّئَنَّ فَإِنْ أَصَابَتْكُم مُّصِيبَةٌ قَالَ قَدْ أَنْعَمَ اللَّهُ عَلَيَّ إِذْ لَمْ أَكُن مَّعَهُمْ شَهِيدًا (72) وَلَئِنْ أَصَابَكُمْ فَضْلٌ مِّنَ اللَّهِ لَيَقُولَنَّ كَأَن لَّمْ تَكُن بَيْنَكُمْ وَبَيْنَهُ مَوَدَّةٌ يَا لَيْتَنِي كُنتُ مَعَهُمْ فَأَفُوزَ فَوْزًا عَظِيمًا (73)).(سورة النساء) في تفسير الطبري قال ابن جريج: المنافق يبطِّئ المسلمين عن الجهاد في سبيل الله، قال الله: (فَإِنْ أَصَابَتْكُم مُّصِيبَةٌ)، قال: بقتل العدو من المسلمين (قَالَ قَدْ أَنْعَمَ اللَّهُ عَلَيَّ إِذْ لَمْ أَكُن مَّعَهُمْ شَهِيدًا)، قال: هذا قول الشامت. المتربصون يقول سبحانه: (الَّذِينَ يَتَرَبَّصُونَ بِكُمْ فَإِن كَانَ لَكُمْ فَتْحٌ مِّنَ اللَّهِ قَالُوا أَلَمْ نَكُن مَّعَكُمْ وَإِن كَانَ لِلْكَافِرِينَ نَصِيبٌ قَالُوا أَلَمْ نَسْتَحْوِذْ عَلَيْكُمْ وَنَمْنَعْكُم مِّنَ الْمُؤْمِنِينَ). (سورة النساء:141) روى الطبري بإسناده عن ابن جريج قوله: (فَإِنْ كَانَ لَكُمْ فَتْحٌ مِنَ اللهِ). قال: المنافقون يتربَّصون بالمسلمين (فَإِنْ كَانَ لَكُمْ فَتْحٌ)، قال: إن أصاب المسلمون من عدوهم غنيمة، قال المنافقون: (أَلَمْ نَكُن مَّعَكُمْ)، قد كنا معكم فأعطونا غنيمة مثل ما تأخذون، (وَإِن كَانَ لِلْكَافِرِينَ نَصِيبٌ) يصيبونه من المسلمين، قال المنافقون للكافرين: (أَلَمْ نَسْتَحْوِذْ عَلَيْكُمْ وَنَمْنَعْكُم مِّنَ الْمُؤْمِنِينَ)، قد كنا نثبِّطهم عنكم. اللمازون روى البخاري في صحيحه عن أَبِي مَسْعُودٍ، قَالَ: لَمَّا أُمِرْنَا بِالصَّدَقَةِ كُنَّا نَتَحَامَلُ، فَجَاءَ أَبُوعَقِيلٍ بِنِصْفِ صَاعٍ، وَجَاءَ إِنْسَانٌ بِأَكْثَرَ مِنْهُ، فَقَالَ الْمُنَافِقُونَ: إِنَّ اللَّهَ لَغَنِيٌّ عَنْ صَدَقَةِ هَذَا، وَمَا فَعَلَ هَذَا الْآخَرُ إِلَّا رِئَاءً. فَنَزَلَتِ: (الَّذِينَ يَلْمِزُونَ الْمُطَّوِّعِينَ مِنَ الْمُؤْمِنِينَ فِي الصَّدَقَاتِ وَالَّذِينَ لَا يَجِدُونَ إِلَّا جُهْدَهُمْ). الْآيَةَ.