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

استاذ ابا جودي هل جربت Dim rs As DAO.recordset

استبدلها بهذا ...... Dim rs As DAO.Recordset

راجعي هذا الموضوع اذا خليكي معايا خطوة بخطوة اول خطوة راح تنشئ حساب في في سيرفر خارجي و يفضل في البداية ان يكون من السيرفرات المجانية لتجربة الخدمة قبل العمل و انصحك بسيرفر SOMEE كما هو موضع في المشاركة اعلاه

شكرا على التحليل والملاحظة 🙂 المرفق ، وفيه استعلامين ، احدهم بالتواريخ الصحيحة ، والآخر تستفيد منه في معرفة التواريخ الخطأ ، جرب نموذج البحث ، وبعدين نتكلن في التفاصيل ان شاء الله 🙂 جعفر IsDate,CDate.zip

طريقة أخرى!! الملف.xlsm

لا اجد التفاعل بالردود المناسبة على اسألتى على بركة الله اكمل العمل كله كما سوف يترأى لى من وجهة نظرى طيب حتى لا يقال لى ان الجداول مستقبلا او النماذج سوف اتعمدت تسمية كل الكائنات التى تخص الصلاحيات بالبداية Usys لذلك سوف تعتبر تلك الكائنات تابعة للنظام وسوف تختفى تلقائيا ارى من وجهة نظرى ان التشفير يكون فقط لـ اسم المستخدم , كلمة المرور , الاجابات الثلاث تعمدت ان تكون ثلاث حتى ان خمن احد المقربين من المستخدم اجابة سؤال وكانت صحيحة يقف امام سؤلاين اخرين

خطبة عن العبادة بعنوان “الإفادة في تحقيق العبادة” من خطب الجمعة للشيخ محمد نبيه يوضح فيها تعريف العبادة وأهميتها وما هي أنواع العبادة ويبين شروط قبول العبادة. العبادة في الإسلام إنَّ للعبادة في الإسلام منزلةً رفيعةً، ومكانةً جليلة، تجعل الحديثَ عنها في غاية الأهمِّيَّة، ولا يُستثنى مِن ذلك زمانٌ أو مكانٌ أو إنسانٌ؛ قال تعالى في سورة الذاريات: (وَمَا خَلَقْتُ الْجِنَّ وَالْإِنْسَ إِلَّا لِيَعْبُدُونِ (56) مَا أُرِيدُ مِنْهُمْ مِنْ رِزْقٍ وَمَا أُرِيدُ أَنْ يُطْعِمُونِ (57) إِنَّ اللَّهَ هُوَ الرَّزَّاقُ ذُو الْقُوَّةِ الْمَتِينُ). (سورة الذاريات) ﻗﺎﻝ اﻟﺸﺎﻓﻌﻲ ﺭﺣﻤﻪ اﻟﻠﻪ: خلق اﻟﻠﻪ ﺗﻌﺎﻟﻰ الخلق لعبادته. وقال بن جرير الطبري – رحمه الله -: أي: لعبادتنا والتَّذلُّل لنا. ولمَّا كانت صُور العبادات وأشكالُها توقيفيَّةً، يُرجع في بيانها إلى الشَّارع الحكيم، احتاج البَشرُ إلى الأنبياء والمرسَلين – عليهم الصَّلاة والسَّلام – الذين يَتلقَّوْن عن الله – سبحانه – أوامرَه ونواهيَه عن طريق الوحي. قال تعالى: (وَلَقَدْ بَعَثْنَا فِي كُلِّ أُمَّةٍ رَسُولًا أَنِ اعْبُدُوا اللَّهَ وَاجْتَنِبُوا الطَّاغُوتَ ۖ فَمِنْهُمْ مَنْ هَدَى اللَّهُ وَمِنْهُمْ مَنْ حَقَّتْ عَلَيْهِ الضَّلَالَةُ ۚ فَسِيرُوا فِي الْأَرْضِ فَانْظُرُوا كَيْفَ كَانَ عَاقِبَةُ الْمُكَذِّبِينَ). (سورة النحل:36) ﻗﺎﻝ سهل التستري: العبادة زينة العارفين، وأحسن ما يكون العارف إذا كان في ميادين العبودية والخدمة، يترك ما له لما عليه. ويقول بن جرير الطبري: ولقد بعثنا أيها الناس في كل أمة سلفت قبلكم رسولا كما بعثنا فيكم بأن اعبدوا الله وحده لا شريك له، وأفردوا له الطاعة، وأخلصوا له العبادة، (واجتنبوا الطاغوت) يقول: وابعدوا من الشيطان، واحذروا أن يغويكم، ويصدكم عن سبيل الله، فتضلوا. ومن ثم يجب على العُلماءِ والدُّعاة إلى الله تعالى أن يُبيِّنوا للنَّاس كلَّ ما يتعلَّق بالعبادة، وما يُصلحها مِن شروطٍ وأركان، أو يُفسدها مِن نواقضَ ومُبطلات، فالعلماء هُمْ ورثةُ الأنبياء. وفي صحيح البخاري عن ابن عباس رضي الله عنهما، قال: قال رسول الله صلى الله عليه وسلم – لمعاذ بن جبل حين بعثه إلى اليمن -: (إِنَّكَ سَتَأْتِي قَوْمًا أَهْلَ كِتَابٍ، فَإِذَا جِئْتَهُمْ فَادْعُهُمْ إِلَى أَنْ يَشْهَدُوا أَنْ لَا إِلَهَ إِلَّا اللَّهُ وَأَنَّ مُحَمَّدًا رَسُولُ اللَّهِ، فَإِنْ هُمْ أَطَاعُوا لَكَ بِذَلِكَ فَأَخْبِرْهُمْ أَنَّ اللَّهَ قَدْ فَرَضَ عَلَيْهِمْ خَمْسَ صَلَوَاتٍ فِي كُلِّ يَوْمٍ وَلَيْلَةٍ، فَإِنْ هُمْ أَطَاعُوا لَكَ بِذَلِكَ فَأَخْبِرْهُمْ أَنَّ اللَّهَ قَدْ فَرَضَ عَلَيْهِمْ صَدَقَةً تُؤْخَذُ مِنْ أَغْنِيَائِهِمْ فَتُرَدُّ عَلَى فُقَرَائِهِمْ، فَإِنْ هُمْ أَطَاعُوا لَكَ بِذَلِكَ فَإِيَّاكَ وَكَرَائِمَ أَمْوَالِهِمْ، وَاتَّقِ دَعْوَةَ الْمَظْلُومِ ؛ فَإِنَّهُ لَيْسَ بَيْنَهُ وَبَيْنَ اللَّهِ حِجَابٌ). (صحيح البخاري:1496) فالحديث دليلٌ على أهمِّية تعليمِ الفرائض والواجبات الشرعيَّة، مِن العِبادات والأخلاق، بعدَ غَرْس الإيمانِ وتصحيحِه. العبادة لغة واصطلاحا العبادة لغة هي: التَّذلُّل والخُضوع؛ قال الرازي: أصلُ العُبوديةِ الخُضوعُ والذُّلُّ، والتَّعبيد التَّذليل، يقال: طريقٌ مُعبَّد، والتَّعبيد أيضًا الاستعباد، وهو اتِّخاذ الشَّخص عبدًا…، والعِبادة الطَّاعة والتَّنسُّك. العبادة اصطلاحا هي: اسمٌ جامعٌ لكلِّ ما يُحبُّه الله ويرضاه، مِن الأقوالِ والأفعالِ الظَّاهرة والباطنة. وهذا التَّعريف يفيد شُموليةُ معنى العبادة لكلِّ حركاتِ العباد وسَكناتهم، فكلُّ فعلٍ، أو ترْكٍ من المكلفين يُمكن أن يكونَ عبادةً وقُربةً باستحضار النِّيَّة، وقصد الطَّاعة منه، وبموافقةِ الشَّرع في طريقة تطبيقه وأدائه. ومن تعريف العبادة: أنها امتثالُ أوامرِ الله، واجتنابُ نواهيه. ويُنبِّه هذا التَّعريف على مسألةٍ خطيرةٍ، ألا وهي: بيانُ مصدر تلقِّي الأوامر والنَّواهي المتعلِّقة بالعِبادة، فليس لأحدٍ غير الله تعالى أن يشرع للعباد شعائر أو شرائع. قال تعالى: (أَمْ لَهُمْ شُرَكَاءُ شَرَعُوا لَهُمْ مِنَ الدِّينِ مَا لَمْ يَأْذَنْ بِهِ اللَّهُ) (سورة الشورى:21)، فلا يَحقُّ لأحدٍ مِن المخلوقين أن يشرع للنَّاس الشَّرائع، أو يضعَ لهم الأديان، أو يحسن أو يقبح لا عالِم، ولا ولي ولا أَمير، ولا غيرهم. لأن الله تعالى يقول: (وَاعْلَمُوا أَنَّ فِيكُمْ رَسُولَ اللَّهِ ۚ لَوْ يُطِيعُكُمْ فِي كَثِيرٍ مِنَ الْأَمْرِ لَعَنِتُّمْ وَلَٰكِنَّ اللَّهَ حَبَّبَ إِلَيْكُمُ الْإِيمَانَ وَزَيَّنَهُ فِي قُلُوبِكُمْ وَكَرَّهَ إِلَيْكُمُ الْكُفْرَ وَالْفُسُوقَ وَالْعِصْيَانَ ۚ أُولَٰئِكَ هُمُ الرَّاشِدُونَ). (سورة الحجرات:7) أنواع العبادة بعد معرفة مفهوم العبادة نوضح أنواع العبادة، والعبادة على أنواعٍ كثيرة، وصُورٍ متعدِّدة؛ ومنها: الدُّعاء: قال تعالى: (وَإِذَا سَأَلَكَ عِبَادِي عَنِّي فَإِنِّي قَرِيبٌ أُجِيبُ دَعْوَةَ الدَّاعِ إِذَا دَعَانِ) (سورة البقرة:186)، وقال صلى الله عليه وسلم: (الدُّعاءُ هو العبادةُ). (صحيح الجامع:3407) والخوفُ: قال تعالى: (وَخَافُونِ إِنْ كُنْتُمْ مُؤْمِنِين). (سورة آل عمران:175) والرَّجاء: قال تعالى: (أُولَئِكَ الَّذِينَ يَدْعُونَ يَبْتَغُونَ إِلَى رَبِّهِمُ الْوَسِيلَةَ أَيُّهُمْ أَقْرَبُ وَيَرْجُونَ رَحْمَتَهُ وَيَخَافُونَ عَذَابَهُ إِنَّ عَذَابَ رَبِّكَ كَانَ مَحْذُورًا). (سورة الإسراء:57) والاستعانة: قال تعالى: (إِيَّاكَ نَعْبُدُ وَإِيَّاكَ نَسْتَعِينُ). (سورة الفاتحة:5) والاستغاثة: قال تعالى: (إِذْ تَسْتَغِيثُونَ رَبَّكُمْ فَاسْتَجَابَ لَكُمْ أَنِّي مُمِدُّكُمْ بِأَلْفٍ مِنَ الْمَلَائِكَةِ مُرْدِفِينَ). (سورة الأنفال:9) وأركان الإسلام وسيأتي ذكرها. والعمل عبادة لما رواه الطبراني في الأوسط بإسناد صحيح عن كعب بن عجرة قال: مر على النبي صلى الله عليه وسلم رجل، فرأى أصحاب النبي صلى الله عليه وسلم من جلده ونشاطه ما أعجبهم، فقالوا: يا رسول الله، لو كان هذا في سبيل الله، فقال رسول الله صلى الله عليه وسلم: (إنْ كان خرج يسعى على ولدِه صغارًا فهو في سبيلِ اللهِ وإن كان خرج يسعى على أبوين شيخين كبيرين فهو في سبيلِ اللهِ وإنْ كان خرج يسعى على نفسِه يعفُّها فهو في سبيلِ اللهِ وإنْ كان خرج يسعى رياءً ومفاخرةً فهو في سبيلِ الشيطانِ). (المتجر الرابح:306) درجات العبادة الفرائض والواجبات، والسُّنن والمستحبات، ومنها ما هي على مجموع الأُمَّة، ومنها ما على أَعيانهم، وسببُ اختلاف درجاتِ العِبادة وتفاوتها هو ما يَقتضيه خِطابُ الشَّارع، مِن طلبِ الفِعْل أوِ التَّرك، ومِن الجَزمِ وعَدمه. فالفرضُ أو الواجبُ في الشَّرع: هو ما يُثاب فاعلُه، ويعاقب تارُكه، ومِن أمثلتِه: أركان الإسلام الشهادتان و الصَّلوات الخمس، وصومُ رمضان، وحجُّ بيت الله الحرام لمَن استطاع إليه سبيلًا. وما أوجبه الله في كتابه وحده. ويليه في الرتبة: المندوب أو المُستحب: وهو ما يُثاب فاعلُه، ولا يُعاقب تارُكه، ومن أمثلته: صلاةُ ركعتي الفجر، وصَومُ يومي الإثنين والخميس. أحب العبادات إلى الله أحب العبادات إلى الله هي الفرائضُ والواجباتُ، ثم يَليها السُّنن والمُستحبَّات، دلَّ على ذلك ما رواه البخاري في صحيحه عن أبي هريرة أن الرسول صلى الله عليه وسلم قال: قال الله تعالى: (مَنْ عادَى لي وَلِيًّا فقد آذَنْتُهُ بِالْحَرْبِ، وَما تَقَرَّبَ إِلَيَّ عَبْدِي بِشيءٍ أَحَبّ إِليَّ مِمَّا افْتَرضْتُ عَليْه، وما يَزالُ عَبْدي يَتَقَرَّبُ إِليَّ بِالنَّوَافِلِ حتَّى أُحِبَّهُ، فإِذا أَحْبَبْتُهُ كُنْتُ سَمْعَهُ الَّذِي يَسْمَعُ بِهِ، وَبَصرَهُ الَّذِي يُبْصِرُ بِهِ، وَيَدَهُ الَّتي يَبْطِشُ بِها، وَرِجْلَهُ الَّتي يَمْشي بِها، وإِنْ سَأَلني لأُعْطِيَنَّهُ، ولَئِنِ اسْتَعاذَنِي لأُعِيذَنَّهُ، وما تَرَدَّدْتُ عَنْ شَيءٍ أَنا فَاعِلُهُ تَرَدُّدِي عَنْ نَفْسِ الْمُؤْمِنِ، يَكْرَهُ المَوْتَ، وَأَنَا أَكْرَهُ مَسَاءَتَهُ). (صحيح البخاري:6502) شروط قبول العبادة لا تقبل العبادة إلا بشرطين هما في قوله تعالى: (قُلْ إِنَّمَا أَنَا بَشَرٌ مِثْلُكُمْ يُوحَىٰ إِلَيَّ أَنَّمَا إِلَٰهُكُمْ إِلَٰهٌ وَاحِدٌ ۖ فَمَنْ كَانَ يَرْجُو لِقَاءَ رَبِّهِ فَلْيَعْمَلْ عَمَلًا صَالِحًا وَلَا يُشْرِكْ بِعِبَادَةِ رَبِّهِ أَحَدًا). (سورة الكهف:110) شرط قبول العبادة الأول: صلاح العمل صلاح العمل ويكون بموافقة رسول الله صلى الله عليه وسلم وإتباع طريقه، والمراد بها الاقتداءُ برسول الله صلى الله عليه وسلم في أداء العبادة، وعدمُ مخالفة سُنَّته وطريقتِه، وقد دلَّ على وجوبِ الإتباع نصوصٌ كثيرةٌ مِنَ الكتاب والسُّنَّة؛ منها: قوله تعالى: (لَقَدْ كَانَ لَكُمْ فِي رَسُولِ اللَّهِ أُسْوَةٌ حَسَنَةٌ لِمَنْ كَانَ يَرْجُو اللَّهَ وَالْيَوْمَ الْآخِرَ وَذَكَرَ اللَّهَ كَثِيرًا). (سورة الأحزاب:21) وقوله سبحانه: (وَإِنْ تُطِيعُوهُ تَهْتَدُوا وَمَا عَلَى الرَّسُولِ إِلَّا الْبَلَاغُ الْمُبِينُ). (سورة النور:54) وقوله سبحانه: (فَلْيَحْذَرِ الَّذِينَ يُخَالِفُونَ عَنْ أَمْرِهِ أَنْ تُصِيبَهُمْ فِتْنَةٌ أَوْ يُصِيبَهُمْ عَذَابٌ أَلِيمٌ). (سورة النور:63) أدلة الإتباع مِنَ السُّنَّة؛ منها: روى البخاري في صحيحه من قوله صلى الله عليه وسلم في الصَّلاة: (وصَلُّوا كما رَأَيْتُمُونِي أُصَلِّي). (صحيح البخاري:6008) وروى مسلم في صحيحه عن جابر، يقول: رأيت النبي صلى الله عليه وسلم يرمي على راحلته يوم النحر، ويقول: (لِتَأْخُذُوا مَنَاسِكَكُمْ، فَإِنِّي لَا أَدْرِي لَعَلِّي لَا أَحُجُّ بَعْدَ حَجَّتِي هَذِهِ). (صحيح مسلم:1297) وكلُّ ما ورد في النهيِ عن الإحداث في الدِّين دليلٌ على شَرْط المتابعة، كما في الصحيحين من قوله صلى الله عليه وسلم: (مَن أَحْدَثَ في أَمرِنا هذا ما لَيسَ منه، فهو رَدٌّ). (صحيح مسلم:1718) شرط قبول العبادة الثاني: عدم الشرك بالله يعني الإخلاص في العبادة وهو: أن يَقصدَ بعبادته وجهَ الله وثوابَه، ولا يُشرك فيه غيرَه، والدَّليل على هذا الشَّرْط مِن القرآن قوله تعالى: (وَمَا أُمِرُوا إِلَّا لِيَعْبُدُوا اللهَ مُخْلِصِينَ لَهُ الدِّينَ حُنَفَاءَ وَيُقِيمُوا الصَّلَاةَ وَيُؤْتُوا الزَّكَاةَ وَذَلِكَ دِينُ الْقَيِّمَةِ). (سورة البينة:5) وقوله تعالى: (فَمَنْ كَانَ يَرْجُو لِقَاءَ رَبِّهِ فَلْيَعْمَلْ عَمَلًا صَالِحًا وَلَا يُشْرِكْ بِعِبَادَةِ رَبِّهِ أَحَدًا). (سورة الكهف:110) وقوله – عز وجل -: (قُلِ اللهَ أَعْبُدُ مُخْلِصًا لَه دِينِي). (سورة الزمر:14) ويدلُّ عليه منَ السُّنَّة ما رواه البخاري في صحيحه من قوله صلى الله عليه وسلم: (إنَّما الأعمالُ بالنِّيَّات، وإنَّما لكلِّ امرئٍ ما نَوَى). (صحيح البخاري:1) وما رواه مسلم عن أبي هريرة من قوله صلى الله عليه وسلم: (إنَّ اللَّهَ يَرْضَى لَكُمْ ثَلاثًا، ويَكْرَهُ لَكُمْ ثَلاثًا، فَيَرْضَى لَكُمْ: أنْ تَعْبُدُوهُ، ولا تُشْرِكُوا به شيئًا، وأَنْ تَعْتَصِمُوا بحَبْلِ اللهِ جَمِيعًا ولا تَفَرَّقُوا). (صحيح مسلم:1715) أهمية العبادة ومنزلتها في الإسلام للعبادةِ في الإسلام مكانةٌ رفيعةٌ، ومنزلةٌ عاليةٌ، تتجلَّى هذه الأهمية وتظهر هذه المكانة في الأمور التَّالية: العبادةُ هي الغايةُ مِن خَلْق الجِنِّ والإِنس: قال تعالى: (وَمَا خَلَقْتُ الْجِنَّ وَالْإِنْسَ إِلَّا لِيَعْبُدُونِ (56) مَا أُرِيدُ مِنْهُمْ مِنْ رِزْقٍ وَمَا أُرِيدُ أَنْ يُطْعِمُونِ (57) إِنَّ اللَّهَ هُوَ الرَّزَّاقُ ذُو الْقُوَّةِ الْمَتِينُ (58)). (سورة الذاريات) إفرادُ العبادةِ لله تحرر منَ الخُضوع والذُّلِّ لكلِّ معبودٍ باطل: قال الله تعالى: (إِنَّ عِبَادِي لَيْسَ لَكَ عَلَيْهِمْ سُلْطَانٌ إِلَّا مَنِ اتَّبَعَكَ مِنَ الْغَاوِينَ). (سورة الحجر:42) وقال أيضًا: (إِنَّ الَّذِينَ تَدْعُونَ مِنْ دُونِ اللَّهِ عِبَادٌ أَمْثَالُكُمْ ۖ فَادْعُوهُمْ فَلْيَسْتَجِيبُوا لَكُمْ إِنْ كُنْتُمْ صَادِقِينَ). (سورة الأعراف:194) النَّصْر والتَّمكين لعباد الله الصَّالحين: قال تعالى: (الَّذِينَ إِنْ مَكَّنَّاهُمْ فِي الْأَرْضِ أَقَامُوا الصَّلَاةَ وَآتَوُا الزَّكَاةَ وَأَمَرُوا بِالْمَعْرُوفِ وَنَهَوْا عَنِ الْمُنْكَرِ ۗ وَلِلَّهِ عَاقِبَةُ الْأُمُورِ). (سورة الحج:41) الإضافة التَّشريفيَّة إلى الله تعالى: قال تعالى منوِّهًا بصفات عبادِه الصالحين: (وَعِبَادُ الرَّحْمَٰنِ الَّذِينَ يَمْشُونَ عَلَى الْأَرْضِ هَوْنًا وَإِذَا خَاطَبَهُمُ الْجَاهِلُونَ قَالُوا سَلَامًا). (سورة الفرقان:63) وقال تعالى: (وَالَّذِينَ اجْتَنَبُوا الطَّاغُوتَ أَن يَعْبُدُوهَا وَأَنَابُوا إِلَى اللَّهِ لَهُمُ الْبُشْرَىٰ ۚ فَبَشِّرْ عِبَادِ (17) الَّذِينَ يَسْتَمِعُونَ الْقَوْلَ فَيَتَّبِعُونَ أَحْسَنَهُ ۚ أُولَٰئِكَ الَّذِينَ هَدَاهُمُ اللَّهُ ۖ وَأُولَٰئِكَ هُمْ أُولُو الْأَلْبَابِ (18)). (سورة الزمر) دخول الجَنَّة، ونيل رضوان الله الأكبر: قال تعالى: (إِنَّ الَّذِينَ آمَنُوا وَعَمِلُوا الصَّالِحَاتِ كَانَتْ لَهُمْ جَنَّاتُ الْفِرْدَوْسِ نُزُلًا (107) خَالِدِينَ فِيهَا لَا يَبْغُونَ عَنْهَا حِوَلًا (108)). (سورة الكهف) أثر العبادة على الفرد والمجتمع إنَّ أداءَ العبادات التي شَرَعها اللهُ على وجهها، وطاعة الله فيما أَمر به مِنَ الشَّرائع والشَّعائر، له آثارٌ حسنةٌ وطيِّبةٌ على سلوك الأفراد والمجتمعات؛ لأنَّ سعادة الأُمم الحقيقيَّة في صِحة عقائدها، وطاعة ربِّها – سبحانه وتعالى. أثر الصلاة فالصَّلاة هي عِمادُ الدِّين: (فَأَقِيمُوا الصَّلَاةَ ۚ إِنَّ الصَّلَاةَ كَانَتْ عَلَى الْمُؤْمِنِينَ كِتَابًا مَوْقُوتًا). (سورة النساء:103) والصلاة تغسل الذنوب؛ كما روى مسلم عن أبي هريرة رضي الله عنه: أن رسول الله صلى الله عليه وسلم قال: (أَرَأَيْتُمْ لو أنَّ نَهْرًا ببَابِ أَحَدِكُمْ يَغْتَسِلُ منه كُلَّ يَومٍ خَمْسَ مَرَّاتٍ، هلْ يَبْقَى مِن دَرَنِهِ شيءٌ؟)، قالوا: لا يبقى من درنه شيء، قال: (فَذَلِكَ مَثَلُ الصَّلَواتِ الْخَمْسِ، يَمْحُو اللهُ بِهِنَّ الْخَطايا). (صحيح مسلم:667) حكمة مشروعية الصلاة الصلاة ليست مجرد عدد من الركعات يؤديها المسلم وينتهي الأمر عند خروجه من المسجد، لا فالصلاة هي من أقوى العبادات التي تقوى صلة العبد بربه، وتعود المسلم على النظام وضبط الوقت، وتبعده عن ارتكاب المعاصي، وتطهره من سوء القول وسوء العمل. قال تعالى: (اتْلُ مَا أُوحِيَ إِلَيْكَ مِنَ الْكِتَابِ وَأَقِمِ الصَّلَاةَ ۖ إِنَّ الصَّلَاةَ تَنْهَىٰ عَنِ الْفَحْشَاءِ وَالْمُنْكَرِ ۗ وَلَذِكْرُ اللَّهِ أَكْبَرُ ۗ وَاللَّهُ يَعْلَمُ مَا تَصْنَعُونَ). (سورة العنكبوت:45) والصلاة بها يشعر المسلم بأنه جزء من المجتمع الذي يعيش فيه، فمن خلال صلاة الجماعة تتوحد الأمة وينتشر التراحم والتعاطف والمساواة بين أفراد المجتمع المسلم لأن ربهم واحد وقبلتهم واحدة ودستورهم هو القرآن وسنة نبيهم محمد صلى الله عليه وسلم. فالغرض الحقيقي من الصلاة يتحقق على خير وجه عندما تكون الصلاة جماعة، فروح كل صلاة روح اجتماعية، حتى الراهب يعتزل جماعة الناس لعله يوفق في محرابه إلى محبة الله والجماعة، والطائفة المتعبدة هم أناس اجتمعوا معا يحييهم أمل واحد فيجمعون أمرهم على هدف مقرر، ويفتحون أعماق أنفسهم لتلبية باعث واحد. وإنها لحقيقة سيكولوجية أن الاجتماع ينمي قوى الإدراك عند الرجل العادي ويعمق شعوره، ويحرك إرادته إلى درجة لا يعرفها في عزلته ووحدته، وعلى هذا فإن صلاة الجماعة في الإسلام – إلى جانب ما لها من قيمة فكرية – تشير إلى الأمل في تحقيق الوحدة الضرورية للبشر كحقيقة من حقائق الحياة، وذلك بالقضاء على جميع الفوارق التي تميز بين إنسان وأخر. أثر الصوم وكذلك الصَّوم يُعين على التَّقوى، ويُربِّي عليها، كما قال تعالى: (يَا أَيُّهَا الَّذِينَ آمَنُوا كُتِبَ عَلَيْكُمُ الصِّيَامُ كَمَا كُتِبَ عَلَى الَّذِينَ مِن قَبْلِكُمْ لَعَلَّكُمْ تَتَّقُونَ). (سورة البقرة:183) حكمة مشروعية الصوم وكذلك شرع الإسلام الصوم: فلم ينظر إليه على أنه حرمان مؤقت من شهواتها المحظورة ونزواتها المنكودة. روى البخاري في صحيحه عن أبي هريرة رضي الله عنه قال: قال رسول الله صلى الله عليه وسلم: (مَنْ لَمْ يَدَعْ قَوْلَ الزُّورِ وَالْعَمَلَ بِهِ فَلَيْسَ لِلَّهِ حَاجَةٌ فِي أَنْ يَدَعَ طَعَامَهُ وَشَرَابَهُ). (صحيح البخاري:1903) ويقول أيضا فيما رواه البخاري في صحيحه: (والصِّيامُ جُنَّةٌ، فإِذَا كان يومُ صِيامِ أَحَدِكُمْ فلا يَرْفُثْ، ولا يَصْخَبْ، فإنْ سابَهُ أحدٌ أوْ قاتَلهُ فَلْيَقُلْ: إِنِي صائِمٌ). (صحيح البخاري:1904) من هنا فإن الصيام دعوة إلى ضبط النفس والتحلي بالأخلاق الكريمة، والصبر على تحمل الآخرين، وتزكية للنفس وتطهير للقلب، ومراقبة للرب جل جلاله. وصوم رمضان عبادة تلتقي في هدفها مع أهداف القرآن في تربية العقول والأرواح، وتنظيم الحياة، وهو يوحد بين المسلمين في أوقات الفراغ والعمل، وأوقات الطعام والشراب، ويفرغ عليهم جميعا صبغة الإنابة والرجوع إلى الله، ويرطب ألسنتهم بالتسبيح والتقديس ويعفيها عن الإيذاء والتجريح، ويسد عليهم منافذ الشر والتفكير فيه بمحبة الخير والبر لعباد الله، ويغرس في نفوسهم خلق الصبر الذي هو عدة الحياة، وهكذا يريد الله أن يكون الإنسان. أثر الزكاة الزكاة – وهي فريضةٌ اجتماعيَّةٌ – جاء بها الإسلام لتطهيرِ نفوس الأغنياءِ مِن الشُّحِّ والبخلِ، وتطهيرِ نفوس الفقراء من الغِلِّ والحسدِ، كما قال تعالى: (خُذْ مِنْ أَمْوَالِهِمْ صَدَقَةً تُطَهِّرُهُمْ وَتُزَكِّيهِمْ بِهَا وَصَلِّ عَلَيْهِمْ ۖ إِنَّ صَلَاتَكَ سَكَنٌ لَهُمْ ۗ وَاللَّهُ سَمِيعٌ عَلِيمٌ). (سورة التوبة:103) كما شُرعتِ الزَّكاةُ أيضًا لإقامة شَعائرِ الإسلام، كالجهادِ، وبناء المساجد، والمدارس، وغيرها؛ قال تعالى: (إِنَّمَا الصَّدَقَاتُ لِلْفُقَرَاءِ وَالْمَسَاكِينِ وَالْعَامِلِينَ عَلَيْهَا وَالْمُؤَلَّفَةِ قُلُوبُهُمْ وَفِي الرِّقَابِ وَالْغَارِمِينَ وَفِي سَبِيلِ اللَّهِ وَابْنِ السَّبِيلِ ۖ فَرِيضَةً مِنَ اللَّهِ ۗ وَاللَّهُ عَلِيمٌ حَكِيمٌ). (سورة التوبة:60) والزكاة تعد علاجا عمليا بعيد الغاية لضعف النفس وتحصينها من أدواء الشح والأثرة وعبادة المال. والزكاة المفروضة ليست ضريبة تؤخذ من الجيوب بل هي أولا غرس لمشاعر الحنان والرأفة، وتوطيد لعلاقات التعاون والألفة بين شتى الطبقات، فتنظيف النفس من أدران النفس، والتسامي بالمجتمع إلى مستوى أنبل هو الحكمة الأولى. أثر الحج وأمَّا فريضةُ الحجِّ، فهي مدرسةٌ ربَّانيَّةٌ متكاملةٌ، تُقوِّي صلةَ العبد بربِّه بما تُزكِّي من نفسِه، وتُحسِّن من أخلاقه، وتُعوِّدُه على البذل والتَّضحية. قال تعالى: (الْحَجُّ أَشْهُرٌ مَعْلُومَاتٌ ۚ فَمَنْ فَرَضَ فِيهِنَّ الْحَجَّ فَلَا رَفَثَ وَلَا فُسُوقَ وَلَا جِدَالَ فِي الْحَجِّ ۗ وَمَا تَفْعَلُوا مِنْ خَيْرٍ يَعْلَمْهُ اللَّهُ ۗ وَتَزَوَّدُوا فَإِنَّ خَيْرَ الزَّادِ التَّقْوَىٰ ۚ وَاتَّقُونِ يَا أُولِي الْأَلْبَابِ). (سورة البقرة:197) وقد يحسب البعض أن السفر إلى البقعة المقدسة للمستطيع لأداء فريضة الحج والقيام بأداء المناسك إنما هذه عبادات غيبية أمرنا الله بها. حكمة مشروعية الحج إن الحج لم يشرع لمجرد ذكر الله، ولا لمجرد طواف المسلم منفردا ببدنه حول بيت الله الحرام، ولا مجرد وجوده واكتحال عينه بالمشاهد المقدسة، وإنما شرع لذلك وأعم منه، شرع ليكون السبيل لجمع المتفرق، ولم المشتت، وتقابل الآراء بالآراء، ثم ليعود المجتمعون وقد حملوا مسؤولياتهم المشتركة، وأخذ كل منهم نصيبه منها، يعمل مع أهله ومواطنيه على تحقيقها والقيام بواجبها في حفظ إنسانيتهم، ورسم طرق سعادتهم وليتكون من جميعهم أمة واحدة، تلك هي المثالية الفاضلة التي أعلى الله شانها ورفع ذكرها. وللحج دوره البارز في تحقيق التكافل الاجتماعي، وإطعام الجائعين، والعطف على البؤساء المحرومين من خلال ذبائح الهدى يقول سبحانه: (فَكُلُوا مِنْهَا وَأَطْعِمُوا الْبَائِسَ الْفَقِيرَ). (سورة الحج:28) والأمرُ بالمعروف والنهي عن المنكر، هو الآخَرُ يقي المجتمعَ من العقائدِ الفاسدة، والطِّباع المُعوجَّة، والسلوكيات المُنحرفة: (لَوْلَا يَنْهَاهُمُ الرَّبَّانِيُّونَ وَالْأَحْبَارُ عَنْ قَوْلِهِمُ الْإِثْمَ وَأَكْلِهِمُ السُّحْتَ ۚ لَبِئْسَ مَا كَانُوا يَصْنَعُونَ). (سورة المائدة:63) وهكذا نَرَى الآثارَ الإِيجابيَّة للعبادات أيًّا كان نوعُها تُشكِّل عاملًا ضروريًّا في بناء الفرد المسلم بناءً كاملًا، يشمل الجوانبَ العَقديَّة والعِباديَّة والسلوكيَّة، وفي تكوين المجتمع المثالي الذي عَجزتْ كلُّ الفلسفات والقوانين والآداب على تصويره، وتحديدِ ملامحه الحضاريَّة. فالعبادات في الإسلام لم تقتصر على الشعائر التعبدية المعروفة من صلاة وزكاة وصوم وحج، بل تشمل كل حركة وكل عمل ترتقي به الحياة ويسعد به الناس. فالعبادة اسم جامع لكل ما يحبه الله ويرضاه من الأقوال والأعمال الباطنية والظاهرة، فالصلاة والزكاة والصيام والحج، وصدق الحديث أداء الأمانة، وبر الوالدين وصلة الأرحام والوفاء بالعهد والأمر بالمعروف والنهى عن المنكر، ومجاهدة الكفار والمنافقين والإحسان للجار واليتيم والمسكين وابن السبيل، والدعاء والذكر، وحب الله تعالى ورسوله، وخشيته لله تعالى والإنابة إليه، وإخلاص الدين له، والصبر والحكمة والشكر لنعمه، والرضا بقضائه والتوكل عليه والرجاء لرحمته والخوف من عذابه وأمثال ذلك كله من العبادة. فإن لم يستفد المرء منها بما يزكي قلبه وينقى لبه ويهذب بالله وبالناس صلته فقد هوى. قال تعالى: (إِنَّهُ مَن يَأْتِ رَبَّهُ مُجْرِمًا فَإِنَّ لَهُ جَهَنَّمَ لَا يَمُوتُ فِيهَا وَلَا يَحْيَىٰ (74) وَمَن يَأْتِهِ مُؤْمِنًا قَدْ عَمِلَ الصَّالِحَاتِ فَأُولَٰئِكَ لَهُمُ الدَّرَجَاتُ الْعُلَىٰ (75)). (سورة طه) فالعبادةَ كما سبق بيانه هي الغايةُ من الوجود الإنسانيِّ، ولا تكونُ للحياةِ أية أهمِّيَّة ما لم تكن جميعُ مظاهرِها مُعبِّرةً عن معاني التَّذلُّل والخُضوع لله سبحانه وتعالى.

السلام عليكم ورحمة الله وبركاته احيانا تحدث مشكلات عند تنفيذ احد الاجراءات تبعا للكود المستخدم فكرتى المتواضعة فى هذا المرفق 1- تسجيل الاخطاء ليقف المصمم , المطور , المبرمج على مكان الخطأ تحديدا ورقمه لسهولة حل المشكلة 2- تجاوز الاخطاء كما يترائى لـ المصمم , المطور , المبرمج من خلال الأخطاء التى تم تصيدها وتسجيلها بالجدول Write Error Log .mdb

الإخوة الكرام .. موضوع البحث مع تجاهل التشكيل ونحوه كعلامات الترقيم والأقواس والأرقام، مع المساواة بين أشكال الهمزة ونحوها (ا - أ – إ – آ & ة – ه & ي - ى) هذا الموضوع طُرق في عدة مشاركات، هذه بعضها: حل جذرى للبحث في الكلمات ذات التشكيل والهمزات والتاءات والياءات حذف و ازالة الحركات و التشكيل من النص ظهورالهمزة والتاء المربوطة عند عملية البحث فكرة بحث ذكية (Search) الحروف ( ة ه ا إ آ أ ي ى ) وحاصل ما قرأته واطلعت عليه في هذا الموضوع، أن هناك طريقتين لحل هذه المشكلة في البحث: 1- الطريقة الأولى: استخدام أكواد خاصة لحذف التشكيل وغيره من النص عند البحث 2- الطريقة الثانية: إنشاء حقل خاص للبحث محذوف التشكيل * * * الطريقة الأولى: استخدام أكواد خاصة لحذف التشكيل وغيره من النص والمساواة بين الهمزات ونحوها عند البحث وهنا لابد من التنبيه على أمر مهم، وهو أننا أمام قضيتيتن غير متلازمتين: الأولى (تجاهل التشكيل ونحوه كعلامات الترقيم) والثانية (المساواة بين الأحرف المتناظرة: أاإآ – ة ه – ي ى) فلا يلزم من حل القضية الأولى أن تحل الثانية بنفس الطريقة، لذلك وبعد تجربتي للأكواد التي وجدتها على الشبكة خرجت بطريقتين لاستخدام هذه الأكواد: (1) كود واحد يؤدي المهمتين (mod_Tshkeel) حذف ما يراد تجاهله (التشكيل ونحوه) والمساواة بين الأحرف المتناظرة (أاإآ – ة ه – ي ى) والنتيجة جيدة بخصوص التجاهل .. أما بخصوص المساواة بين الأحرف المتناظرة فهذا الكود لوحده لا يكفي، لأنه عند البحث مثلا عن (أيوب) فإن الكود يقوم باستبدالها في نص البحث لتصبح (ايوب) ولذلك لا يجدها عند البحث، لأنك طلبت البحث عن (أيوب)، يجدها فقط إذا كتبتها (ايوب) لذلك لابد أولا من استخدام كود آخر (mod_searchtext) للمساواة بين الأحرف المتناظرة في مربع البحث أيضا قبل طلب كود البحث، وعندها يعمل كود البحث بشكل جيد لأنك مهما كتبت في مربع البحث المعد للكتابة (أيوب – ايوب – إيوب - آيوب) فستصبح (ايوب) وعندها سيجدها في نص البحث * وهذه الطريقة في الملف المرفق في زر (بحث بالكود) (2) كود لحذف التشكيل وعلامات الترقيم والأرقام، وهو الكود السابق (mod_Tshkeel) أو يمكن اختصاره بحيث يبقي على الهمزات والأحرف المتناظرة كما هي وكود آخر (mod_hmzat) للمساواة بين الأحرف المتناظرة، يعمل بشكل مختلف، يعمل في مربع البحث نفسه ليجعل البحث عن الكلمة بجميع احتمالاتها، فعند البحث عن (أيوب)، فهذا الكود يجعل البحث عن ([أاإآ]يوب) فسيجدها كيفما كتبت * وهذه الطريقة في زر (بحث بالكودين) تقييمي لهذه الطريقة بفرعيها: تؤدي المطلوب لكنها بطيييييئة بشكل ملحوظ في الجداول التي تحوي نصوصا كثيرة، كما هو الحال عندي .. فقاعدة البينات التي عندي فيها جدول رئيسي وجداول فرعية، والمطلوب البحث فيها كلها، فإذا استخدمت هذه الطريقة في الجداول الفرعية الصغيرة فلا مشكلة في السرعة، لأن النصوص فيها مختصرة، أما في الجدول الرئيسي حيث النصوص طويييلة والصفوف كثيييييرة، فإن الأمر غير مجدي 😐 وسبب البطء فيما يظهر لي هو في كود التجاهل الذي يقوم بحذف التشكيل ونحوه من النص عند البحث، أما الكود الآخر للأحرف المتناظرة والذي يعمل في مربع البحث فلم يظهر لي أنه يسبب البطء * * * الطريقة الثانية: إنشاء حقل خاص للبحث، يتم فيه حذف التشكيل وعلامات الترقيم والأرقام وما يراد تجاهله عند البحث أما بخصوص الأحرف المتناظرة (أاإآ – ة ه – ي ى) فأمامنا طريقتان كما سبق: (1) استبدالها أيضا في نفس الكود (Q_nass2)، مع استخدام كود (mod_searchtext) لاستبدالها في مربع البحث قبل طلب كود البحث. * وهذه الطريقة في زر (بحث في nass2) (2) عدم استبدالها والاكتفاء بحذف التشكيل ونحوه (Q_nass3) واستخدام الكود المتقدم (mod_hmzat) الذي يجعل البحث عن كافة احتمالات الكلمة. * وهذه الطريقة في زر (بحث في nass3) وهذه الطريقة - بفرعيها - سريعة وتؤدي المطلوب، لكن بالنظر إلى أن حقل النص (NASS) المراد البحث فيه عندي عرضة للتحديث يوميا، فلا بد من تحديث نص البحث (nass2 & nass3) عند تحديث النص الرئيسي (NASS)، باستدعاء الكود (mod_nass2 ، mod_nass3) بعد التحديث في نموذج (FRM1) .. والنتيجة جيدة بحمد الله، ولم أجابه مشاكل عند التحديث وتغيير البيانات ولا حتى عند إضافة أو حذف سجل. ونتيجة كل ما سبق، أنني أنوي استخدام الطريقة الأولى في الجداول الفرعية الصغيرة [mod_Tshkeel & mod_searchtext]، والطريقة الثانية [mod_nass2 & mod_searchtext] في الجدول الرئيسي إلا إذا كان عند أهل الاختصاص رأي آخر .. فهذه النتيجة التي توصلت لها هي نتاج بحثي وفهمي، ولست من أهل الاختصاص فهل توجد طريقة أخرى لتجاهل التشكيل ونحوه لا تسبب بطئا في عملية البحث، كما هو الحال في الكود الثاني للأحرف المتناظرة والذي يعمل في مربع البحث نفسه وليس في نص البحث أم أن النتيجة التي توصلت لها هي أفضل المتاح بالنظر لطبيعة الجداول التي عندي ؟ هذا .. وكل ما سبق يتعلق بالشق الأول من الموضوع، يبقى الشق الثاني (أثر هذه الأكواد على تلوين النتائج) فإن تلوين نتائج البحث مهم لي بالنظر لطول النصوص .. لكن المشكلة في الطريقتين كلتيهما، أن كود التلوين الذي وجدته بعد بحث في هذه المشاركة تلوين نتيجة البحث تلوين نتائج البحث وإظهارها في أول سطر يلون الكلمة التي تم إدخالها في مربع البحث، فإذا كانت الكلمة في النص مشكولة فلن يتعرف كود التلوين عليها، سواء استخدمت الطريقة الأولى أو الثانية، لأنه في الحالتين تم حذف التشكيل .. فعند البحث عن (محمد) فلن يتم تلوين (مُحَمد) ولا (محمدٌ) .. .. وكذلك الحال إذا طلبت البحث عن (أيوب) وكانت في النص (ايوب) لن يلونها .. وكذلك عند البحث عن ( بن عرفة) لن يلونها إذا كانت في النص ( [بن] عرفة) فهل يمكن أن نجعل كود التلوين يعمل على الكلمات التي أخرجها كود البحث، وليس على الكلمة التي كتبت في مربع البحث .. أو أي طريقة أخرى لحل هذه المشكلة ؟؟ وفي الملف المرفق خلاصة تجاربي المتواضعة في هذا الموضوع (نموذج: Frm_searsh) وأنا أطمع بنصائح وتجارب أهل الخبرة والاختصاص .. والله الموفق. search 01.rar

السلام عليكم ورحمة الله اليك تعديل كود ترحيل الناجحين و الراسبين اذا شعرت ان تنفيذ الكود يستغرق وقتا طويلا يمكنك طلب عمل كود جديد يعتمد على المصفوفات و لكن لضيق الوقت قمت فقط بتعديل الكود المرفق بالملف اما باقى المطلوبات فى وقت لاحق ان شاء الله اليك الكود و يجب ربطه بزر لتنفيذه فى اى وقت Sub Tarheel() Dim R As Integer, M As Integer, N As Integer Sheets("ناجح").Range("A11:Q1012").Clear Sheets("دور ثانى").Range("A11:R1012").Clear M = 10: N = 10 Application.ScreenUpdating = False Application.DisplayAlerts = False For R = 11 To 1012 If Cells(R, 14) = "ناجح" Then M = M + 1 Range("A" & R).Range("A1:Q1").Copy With Sheets("ناجح") .Range("A" & M).PasteSpecial xlPasteValues .Range("A" & M).PasteSpecial xlPasteFormats .Range("A" & M).Value = M - 10 End With Application.CutCopyMode = False ElseIf Cells(R, 14) = "دور ثانى" Then N = N + 2 Range("A" & R).Range("A1:R1").Copy With Sheets("دور ثانى") .Range("A" & N).PasteSpecial xlPasteValues .Range("A" & N).PasteSpecial xlPasteFormats .Range("A" & N).Value = (N - 10) / 2 End With Application.CutCopyMode = False End If Next MsgBox (" بحمد الله تم ترحيل الناجحين والدور الثانى") Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

المهم انا راجعت الكود مرارا وتكرار وكان هذا حالى وانا اقوم بمراجهة الكود هههه وعنوان الموضوع سؤال عن :مشكلة عند اضافة بيانات من خلال Recordset من موديول

طبعا حينما رايت الكود ضحكت في داخلي وقلت ان ابا جودي كان يطبع وفكره مشغول بامر اخر ولم يلاحظ انه طبع داتابيس بدلا من ركورد سيت يابخت اللي واخد عقلك ههههه

هذه الحالات كلنا احيانا نصل الى هذه المرحلة ..... هههههههه .... بارك الله فيك اخي الغالي ...

هاهاهاهاهاهاهاهاهاها والله لم انتبه اننى اعلنت عنها فى المتغير انها Database وليس Recordset جزاااكم الله خيرا استاذى الجليل @ناقل من البارحة وانا لا اعرف السبب وابحث هنا وهناك

جزاك الله كل الخير ومرفق الموضوع مكتمل ليستفيد غيري MyTest_Last.rar

هذه خطوة اولى فى الحماية اعرف قد يرى البعض ان لا قيمة لها ولكن ان شاء الله مع وضع الكثير من خطوات الحماية يرتقى العمل الى مستوى احترافى تدريجيا بأمر الله

احسنت @ابا جودى.. كنت افتح النافيكيشن اوبشن لكن كنت انسى التعليم على جداول النظام

ههههههههه تغير الكلام من الــى طيب اظهار الجداول تكون النتيجة كالاتى

المرفق رقم ( 2 ) فى المرفق الاول تحدثنا عن التشفير هذا المرفق يحتوى فقط على الجداول اللازمة لانشاء نظام الصلاحيات يختوى المرفق على - جدول UsystbllvlControlForms هذا الجدول الخاص بادراج اسماء النماذج المراد تطبيق صلاحيات الفتح والاضافة والتعديل والحذف عليها - جدول UsystbllvlGroup هذا الجدول الخاص باضافة اسماء المجموعات التى نريد عمل الصلاحيات لها - جدول UsystbllvlQuestions هذا الجدول الخاص باضافة اسئلة الأمان التى سوف يقوم المستخدم بإختيارها والإجابة عليها اثناء تقديم طلب التسجيل والتى سوف تمكنه من استعادة كلمة المرور فى حالة نسيان كلمة المرور - جدول UsystbllvlRegistrationUsers هذا الجدول الذى سوف يتم اضافة بيانات المستخدمين فيه والتى تحتاج قيما بعد لتفعيلها من قبل مسئول النظام -جدول UsystbllvlUsers جدول بيانات المستخدمين SecurityLevelGroup.mdb

مع اني التشفير مو تخصصي ، والظاهر انه في شيء انا مو فاهمه !! كنت اعتقد ان التشفير يكون عادة لجدول المستخدمين ، كلمة الدخول وكلمة السر فقط ، حتى لا يستطيع مستخدم آخر من معرفة هذه المعلومات. ولكن تشفير هذا الكم الكبير من الحقول !! هل برنامجك من السرّية اللي تشفر جميع هذه الحقول ؟ القصد ، مو بسبب توفر وسهولة استخدام مواد وطرق معينة ، اننا نستخدمها بإسراف 🙂 جعفر

السلام عليكم جزاك الله كل خير اخ عبد الفتاح .... فعلا كانت المشكلة كما ذكرت شكرا جزيلا لك في ميزان حستاتك كل الاحترام و التقدير لشخصك

لماذا لم تجيبني على سؤالي هل ظهر لك اي خطأ؟ المشكلة كانت بسيطة وخطا في المدى كان يجب عليك تصحيحها ولماذا لم تضع الماكرو الذي اقترحته عليك بالملف لاحظ في المعادلة غيرت الفاصلة الى , بسبب اصدار الاوفيس عندي اذا لم تعمل معك غيرها الى ; وغير اسم الشيت تم تعديل الكود في المشاركة السابقة حضور و غياب بصمة2021.xlsm

الف شكر على الاستجابة ... فليكن كمال قلت , هذا يفي بالمطلوب الف شكر 👍👍👍

اذن المشكلة من ملفك كيف لايعمل هل يظهر خطا ؟ جربته على ملف خالي من البيانات تماما وقام بادراج المعادلة

في المرة القادمة ضع كل متطلباتك وليس كل مرة يتم تعديل الكود تحياتي match & copy (1).xlsm

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته هذا برنامج جمعية خيرية برجاء من السادة مستخدمي الموقع أن يرشدني إلى بعض عيوب هذا البرنامج ولهم الشكر https://drive.google.com/drive/folders/1J4Vl9sfPYTVpIPyyY7pcyBdEU0xuSLWy?usp=sharing

السلام عليكم ضع هذا الكود في Sheet code Private Sub Worksheet_Change(ByVal Target As Range) Set X = Columns(4) For I = 7 To 32 * 3 Step 3 Set X = Union(X, Columns(I)) Next If Not Intersect(X, Target) Is Nothing Then With ActiveSheet.Range(Target.Address) .Offset(, 2) = "=IFERROR(HOUR(" & Target & "-$D$3" & ")*60+MINUTE(" & Target & "-$D$3),"""")" .Offset(, 2).Value = .Offset(, 2).Value End With End If End Sub

اشكرك جزيل الشكر أخي a.kawkab على مجهودك معي وعلى مساعدتي في حل هذه المشكلة كل الاحترام والتقدير لك

حاولت فهم لماذ لم تطبق هذه الفكرة لم اجد لها حل حتى الان اقتراحي حدف العمود g وضع هذا الماكرو في حدث الملف عند الضغط على زر الغاء او اغلاق سيتم الخروج من الرسالة Private Sub Workbook_Open() Dim c As Range ' For Each c In Range("F4", Range("F" & Rows.Count).End(3)) If c.value < 0 Then If MsgBox("انتبه ...! هناك اشتراكات انتهت مدة صلاحيتها ", vbOKCancel + vbExclamation + vbDefaultButton2, "تنبيه ! تنبيه ! تنبيه !") = vbCancel Then Exit Sub End If Next End Sub زياد.xlsm

جرب هذا الماكرو Sub match_copy() Dim lRow, x As Long, ws As Worksheet Set ws = Sheets("Sheet1") lRow = ws.Range("B1").End(xlDown).Row For Each cell In Range("B2:B" & lRow) x = 2 Do If cell.Value = Sheets("Sheet2").Cells(x, "A").Value Then Sheets("Sheet2").Cells(x, "H").Value = cell.Offset(, 11) Sheets("Sheet2").Cells(x, "i").Value = cell.Offset(, 10) Sheets("Sheet2").Cells(x, "j").Value = cell.Offset(, 9) End If x = x + 1 Loop Until IsEmpty(Sheets("Sheet2").Cells(x, "A")) Next Sheets("Sheet2").Activate End Sub match & copy.xlsm

بعض طرق عرض الصور.zip

Sub Test() Dim x, ws As Worksheet, sh As Worksheet, r As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets(1) Set sh = ThisWorkbook.Worksheets(2) For r = 2 To sh.Cells(Rows.Count, 1).End(xlUp).Row x = Application.Match(sh.Cells(r, 1).Value, ws.Columns(2), 0) If Not IsError(x) Then sh.Range("H" & r).Resize(1, 3).Value = ws.Range("K" & x).Resize(1, 3).Value End If Next r Application.ScreenUpdating = True End Sub

With Application.Forms If .Count - 1 = 0 Then DoCmd.Close Else For I = .Count - 1 To 0 Step -1 With .Item(I) If .Name <> "Main_Form" Then MsgBox .Name End If End With Next I End If End With

@أ/ محمد صالح شكراً جزيلاً لك بس لو ممكن توضح لماذا يفضل جعل القيمة الافتراضية value في خيار بحث بأي حرف تساوي true

استاذ @jjafferr دائما يقدم ابسط الحلول ما بيهوى التعقيد اما انا معقد شوف بطبعى لا احب التقيد لذلك دائما ابحث عن الحلول التى ترضى طموحى وخيالى دون ان تقيدنى حتى وانا طالت واحيانا اجد ان تنوع الحلول يثمن المعرفة

المثال المرفق من حضرتك هو نفس المثال الوهمي المستعمل في مشاركتي السابقة يمكنك استعمال نفس المعادلة مع تغيير كلمة value إلى الاسم المراد البحث عنه أو مرجع خلية بها الاسم بالتوفيق

السلام عليكم 🙂 بالاضافة الى طريقة استاذنا ابوجودي ، اليك طريقة اخرى متوفرة على كمبيوترك : افتح برنامج الوورد . استخدم خط Wingdings3 : . انقر نقر مزدوج على الاسهم اللي تريدها (ونصيحة ، اختار اكبر كمية من الاسهم ، لأن شكلها وهي كبيرة قد تجعلك تختار الافضل) ، فتراها في ملف الوورد ، اغلق النافذة ، اعمل نسخ للسهم ، ثم الصقه في الحقل في الاكسس ، وطبعا تختار نوع الخط Wingdings3 🙂 . بس ما تقدر تعمل اي حروف مع السهم ، لأن الحقل في الاكسس يأخذ نوع واحد من الخطوط ، وخط Wingdings3 ما فيه حروف 🙂 ولكن ، يمكنك الحصول على بعض انواع الاسهم في الخطوط العادية ، مثل Arial او اي نوع آخر من الخطوط الموجودة اصلا على كمبيوترك: . وبعد نسخ السهم من الوورد ، ولصقه في حقل الاكسس ، تم كتابة الحرف L مباشرة خلف اللصق : . وصرت اغيّر الخطوط الى ان عجبني سهم هذا الخط 🙂 جعفر

حقول جدول المستخدمين من وجهة نظرى سوف تكون كالاتى فهل لكم وجهة نظر أخرى فى الغاء احد الحقول او الزيادة عليها ومن جهتكم اى حقول تريدون تشفر بياناتها ؟! كلمة المرور , الاسم الرباعى , البريد الالكترنى , الاجابات على الاسئلة

السلام عليكم ورحمة الله استخدم هذا الكود Sub CallSude() Dim ws As Worksheet, Sh As Worksheet Dim i As Long, p As Long, j As Long Dim LR As Long, Fasl As String Application.ScreenUpdating = False Set ws = Sheets("laskat") For x = 3 To 58 Step 5 ws.Cells(x, 3).ClearContents ws.Cells(x + 1, 3).ClearContents ws.Cells(x + 1, 6).ClearContents ws.Cells(x + 2, 4).ClearContents ws.Cells(x, 12).ClearContents ws.Cells(x + 1, 12).ClearContents ws.Cells(x + 1, 15).ClearContents ws.Cells(x + 2, 13).ClearContents Next Fasl = ws.Range("S8").Text Set Sh = Sheets("data") LR = Sh.Range("C" & Rows.Count).End(3).Row For i = 3 To LR If Sh.Cells(i, 14) = Fasl Then p = p + 1 j = 2 Do While j <= 57 If ws.Cells(j, 8) = p Then ws.Cells(j + 1, 3) = Sh.Cells(i, 3) ws.Cells(j + 2, 3) = Sh.Cells(i, 15) ws.Cells(j + 2, 6) = Sh.Cells(i, 14) ws.Cells(j + 3, 4) = Sh.Cells(i, 5) ElseIf ws.Cells(j, 17) = p Then ws.Cells(j + 1, 12) = Sh.Cells(i, 3) ws.Cells(j + 2, 12) = Sh.Cells(i, 15) ws.Cells(j + 2, 15) = Sh.Cells(i, 14) ws.Cells(j + 3, 13) = Sh.Cells(i, 5) End If j = j + 5 Loop End If Next Application.ScreenUpdating = True End Sub

يمكن الوصول لذلك تعديل هذا السطر الذي يحدد بداية النص ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1 وتغييره إلى هذا الشرط If Me.OptionButton2 = 0 Then ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) >= 1 Else ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1 End If لاحظ أن اكبر من او تساوي 1 تعني في أي مكان في النص ويفضل جعل القيمة الافتراضية value في خيار بحث بأي حرف تساوي true بالتوفيق

أعتقد أنها ممكنة بدالة lookup وليس vlookup يمكنك تجربة هذه المعادلة =LOOKUP(2,1/($A$2:$A$12="value"),$B$2:$B$12) حيث يتم التوصل لآخر نتيجة في العمود B أمام القيم في العمود A والتي تساوي value ويمكن استعمال مرجع الخلية التي بها القيمة المراد البحث عنها بدلا من كلمة value بالتوفيق

Microsoft Excel Worksheet جديد __.xlsm ?like this perhaps

اين الجداول اخي @ابا جودى؟

أستاذ @ابا جودى أكمل علي بركة الله وإن شاء الله لك الأجر ولنا النفع

مهتم و متابع