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

وطبعا لا ننسى الاعلان عن المتغير تبعا للنوع المطلوب مع الحاق القيم التى تريدها اليها رقم' Dim myWhere As Integer myWhere = 1 DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 =" & myWhere) '-------------- نص' Dim myWhere As String myWhere = "محمد أبوعبدالله" DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 ='" & myWhere & "'") '-------------- تاريخ' Dim myWhere As Date myWhere = #1/1/2021# DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 = #" & myWhere & "#")

تفضل اخي الكريم رقم DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 =" & myWhere) نص DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 ='" & myWhere & "'") تاريخ DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 = #" & myWhere & "#") تحياتي

انا طلبت منكم مرفق لقاعدة البيانات للاطلاع عليه حضرتك ارفقت صور شو بسوى انا بهادول الصورتين هل مطلوب منى اخمن شكل تصميمك ايه للقاعدة منشان اقدر اضع لك الحل .. للاسف ما فينى احضر ارواح وما عندى بخور الله يرضى عليك

أهلا بكم جميعا.. هذا مثال مصغر عن إمكانية الويب مع الأكسس وفلسفة التجاوب.. AccessWithWeb.accdb

خطبة عن صفات المؤمنين في القرآن الكريم من خطب الجمعة للشيخ محمد نبيه يوضح فيها أن من صفات المؤمنين الصدع بالحق ويذكر الآيات القرآنية الدالة على ذلك. من صفات المؤمنين الصدع بالحق الآيات القرآنية الآمرة بالصدع بالحق، كثيرة جدًّا منها: قال جل وتقدس: (كُنْتُمْ خَيْرَ أُمَّةٍ أُخْرِجَتْ لِلنَّاسِ تَأْمُرُونَ بِالْمَعْرُوفِ وَتَنْهَوْنَ عَنِ الْمُنْكَرِ وَتُؤْمِنُونَ بِاللَّهِ). (سورة آل عمران:110) وقال جل وتقدس: (الَّذِينَ إِنْ مَكَّنَّاهُمْ فِي الْأَرْضِ أَقَامُوا الصَّلَاةَ وَآتَوُا الزَّكَاةَ وَأَمَرُوا بِالْمَعْرُوفِ وَنَهَوْا عَنِ الْمُنْكَرِ وَلِلَّهِ عَاقِبَةُ الْأُمُورِ). (سورة الحج:41) وقال جل وتقدس: (وَالْمُؤْمِنُونَ وَالْمُؤْمِنَاتُ بَعْضُهُمْ أَوْلِيَاءُ بَعْضٍ يَأْمُرُونَ بِالْمَعْرُوفِ وَيَنْهَوْنَ عَنِ الْمُنْكَرِ وَيُقِيمُونَ الصَّلَاةَ وَيُؤْتُونَ الزَّكَاةَ وَيُطِيعُونَ اللَّهَ وَرَسُولَهُ). (سورة التوبة:71) ففي الآيات معاني مهمة هدفنا بيانها لندين لله بها: أولها: أن خيريةَ هذه الأمة مرهونة بالقيام بشريعة الأمر بالمعروف والنهي عن المنكر، وهذه الشريعةُ شرطٌ في حصول الخيرية، فإن انتفى الشرط لم يتحقق المشروط، واستوى التاركُ من هذه الأمة بغيره من أفراد الملل الأخرى. فالإبعاد والطردُ النازل على ملة بني إسرائيل وغيرهم من الملل الملعونة المطرودة من رحمة الله إنما حصل بعد تركهم الأمرَ بالمعروف والنهي عن المنكر؛ قال تعالى: (لُعِنَ الَّذِينَ كَفَرُوا مِنْ بَنِي إِسْرَائِيلَ عَلَىٰ لِسَانِ دَاوُودَ وَعِيسَى ابْنِ مَرْيَمَ ۚ ذَٰلِكَ بِمَا عَصَوْا وَكَانُوا يَعْتَدُونَ (78) كَانُوا لَا يَتَنَاهَوْنَ عَنْ مُنْكَرٍ فَعَلُوهُ ۚ لَبِئْسَ مَا كَانُوا يَفْعَلُونَ (79)). (سورة المائدة) ففي الآيةُ أن اللعنَ مترتب على المعصية، ثم بيَّنت المعصية بأنها ترك النهي عن المنكر؛ فهذه الآية تبين قيمة الصدع بالحق، وأنها صفةٌ توجب للعبد الإيمان، وحبَّ الله تعالى له، كما أن تركها يوجب له البُغْض واللعنة والطرد. وعلامة الطرد أن خيار القوم يتقدمون العامة في الدعاء أيام الفتن ولا يستجاب لهم، وفي سنن الترمذي بإسناد صحيح عن حذيفة بن اليمان، عن النبي صلى الله عليه وسلم قال: (والذي نَفسي بيدِهِ لتأمُرُنَّ بالمعروفِ، ولتنهَوُنَّ عن المُنكَرِ، أو ليوشِكَنَّ اللهُ أنْ يبعَثَ عليكم عِقابًا منه، ثم تَدْعونَهُ فلا يُستجابُ لكم). (سنن الترمذي:2169) وهذا الأمر كان السلفُ على بيِّنة منه، وكانوا يتحرَّوْن المنكر وينكرونه بقلوبهم وألسنتهم وأيديهم، ولك مثال في ذلك. ما أخرجه ابن أبي الدنيا في كتاب الأمر بالمعروف ﻋﻦ ﺇﺑﺮاﻫﻴﻢ، ﻗﺎﻝ: “ﻛَﺎﻧُﻮا ﺇِﺫَا ﺭَﺃَﻭُا اﻟﺮَّﺟُﻞَ ﻻَ ﻳُﺤْﺴِﻦُ اﻟﺼَّﻼَﺓَ ﻋَﻠَّﻤُﻮﻩُ”، قال سفيان: “ﺃَﺧْﺸَﻰ ﺃَﻥْ ﻻَ ﻳَﺴَﻌَﻬُﻢْ ﺇِﻻَّ ﺫﻟﻚ”. وأخرج ابن أبي الدنيا في كتاب الأمر بالمعروف عن محمد بن إسحاق، عمن رأى عبدالرحمن الأعرج أنه نظر إلى رجل يصلي في المسجد صلاة سوء، فقال له عبدالرحمن: قُمْ فصلِّ، فقال: قد صليت، قال: لا والله لا تبرح حتى تصلي، قال: ما لك ولهذا يا أعرج؟ قال: والله لتصلين أو ليكونن بيني وبينك أمر يجتمع علينا أهل المسجد، قال: فقام الرجل فصلى صلاة حسنة. فأنت ترى كيف كان حرص القوم على تغيير المنكر، وكيف كانت شدتهم في ذلك. وابن أبي الدنيا في الأمر بالمعروف عن معمر، قال: “ﻛَﺎﻥَ ﻳُﻘَﺎﻝُ: ﺃَﻧْﺼَﺢُ اﻟﻨَّﺎﺱِ ﺇِﻟَﻴْﻚَ ﻣَﻦْ ﺧَﺎﻑَ اﻟﻠَّﻪَ ﻓِﻴﻚَ”. ولو أن أحدًا صنع مثل هذا الصنيع في أيامنا لاتُّهِمَ بالتهور والتخلف، وهذا يدلك على ضعف الغَيرة الدينية، وطمس الهوية الإسلامية، واشتغال كل فرد بشأنه وخاصة أمره. وعلى هذا فشريعة الأمر بالمعروف هي معلم يدل على هوية الأمة وأن الأمة ذاتٍ واحدة، و أفرادها كتلة منسجمة كأنهم أهل بيت واحد، ولأجل هذا المعنى وصَف الله تعالى المؤمنين بوصف الأخوَّة؛ قال جل وتقدس: (إِنَّمَا الْمُؤْمِنُونَ إِخْوَةٌ فَأَصْلِحُوا بَيْنَ أَخَوَيْكُمْ ۚ وَاتَّقُوا اللَّهَ لَعَلَّكُمْ تُرْحَمُونَ). (سورة الحجرات:10) فالأخوة تعني شدة التقارب الذي يجب أن يحصل بينهم، حتى تسقط بينهم الكلفة، ويبقى أمرهم على السجية، كما كان الشأن بالنسبة للصحابة رضوان الله عليهم، وهو معنى مغيب في هذا الزمن، ولا يسعى إليه حر غيور إلا أتهم بالمغفل، وهذا أمر يجعل القلب يتألم من شدة الكمد والألم، جراءَ ما آل إليها حال خاصة المسلمين. فالأخ الصحيح من يضر نفسه لينفع أخاه كما قال علي بن أبي طالب: “إن أخاك الحق من كان معك ومن يضر نفسه لينفعك ومن إذا ريب الزمان صدعك شتت فيك شمله ليجمعك”. المعنى الثاني: أن اللهَ تعالى جعل الأمر بالمعروف في سياق ذِكر أركان الإسلام، وفيه تلميح إلى كون شريعة الأمر بالمعروف والنهي عن المنكر في رتبة أركان الإسلام التي يقوم الدِّين عليها، وتركها ترك للدِّين وانسلاخ منه، بل قد رتب جل وعلا الإيمان على الأمر بالمعروف والنهي عن المنكر، وهذا أمر حاصل؛ فإن الأمر بالمعروف والنهي عن المنكر من أهمِّ الأعمال التي تقوِّي إيمان العبد وتزيده يقينًا، بل حصوله من العبد يدل على تحققه بالإيمان؛ لأن حمل هم الشيء يدل على حبه، وحبه يدل على التحقُّق به، ولا يحمل همَّ شرائع الإسلام وإقامة أحكامه منافق. المعنى الثالث: في أن الله تعالى رتب حصول الاستخلاف على تفعيل الأمر بالمعروف والنهي عن المنكر؛ فالأمة التي تترك الأخذ على يد الظالم، وتهاب أن تغير المنكَر بالقلب والقول واللسان أمةٌ غير جديرة بالاستخلاف في الأرض، بل حقها أن تكون في ذيل الأمم، يسومونها صنوف الذل والهوان. فقد بيَّن الله تعالى أنه يمكِّن للذين إذا مُكِّنوا أقاموا الصلاة، وهو حق الله تعالى، وآتَوُا الزكاة، وهو حق العباد، وأمروا بالمعروف ونهَوْا عن المنكر، وهو الميزان الذي يحفظ بقاء ودوام أداء حقوق الله تعالى وحقوق عباده؛ فاختصاصُه تعالى لهذه الثلاث بالذِّكر فيه دلالةٌ واضحة على أن حفظ حقوقه وحقوق عباده لا يكونُ إلا بالأمر بالمعروف والنهي عن المنكَر. المعنى الرابع: في أن المعروف والنهي عن المنكر علامة ولاء المؤمنين لبعضهم بعضًا: فإن اتفاق الناس على أمر واحد، لا يهمهم منه إلا حصول مقصد واحد، يجعل قلوبهم مؤتلفة، متماسكة في حصول هذا المقصد وتحقيقه، وكلما زاد هذا السعي الصادق زاد التمسك والتلاحم والأُلْفة، إلى أن تبلغ الغاية من بناء المؤمنين المرصوص الذي عناه الله جل وتقدس: (إِنَّ اللَّهَ يُحِبُّ الَّذِينَ يُقَاتِلُونَ فِي سَبِيلِهِ صَفًّا كَأَنَّهُمْ بُنْيَانٌ مَرْصُوصٌ). (سورة الصف:4) وفي الصحيحين عن أبي موسى، قال: قال رسول الله صلى الله عليه وسلم: (الْمُؤْمِنُ لِلْمُؤْمِنِ كَالْبُنْيَانِ، يَشُدُّ بَعْضُهُ بَعْضًا). (صحيح مسلم:2585) المعنى الخامس هو: أن الله تعالى جمع الأمر بالمعروف والنهي عن المنكر مع الإيمان به في موضع واحد، ولم يزد عليهما شيئًا، وإنما قال: (تَأْمُرُونَ بِالْمَعْرُوفِ وَتَنْهَوْنَ عَنِ الْمُنْكَرِ وَتُؤْمِنُونَ بِاللَّهِ). (سورة آل عمران:110) فدلَّ على الارتباط بين الإيمان والأمر بالمعروف والنهي عن المنكر، بل بعد ذلك قال جل وعلا: (وَلَوْ آمَنَ أَهْلُ الْكِتَابِ لَكَانَ خَيْرًا لَهُمْ) (سورة آل عمران:110)، أي لو أمروا بالمعروف ونهوا عن المنكر لنجوا من اللعن. ثم ذكر بعد سياق الآيات أسباب كفر أهل الكتاب، وأهم هذه الأسباب تركهم الأمر بالمعروف والنهي عن المنكر، وفيه تنبيه لأمة الإسلام ألا يتبعوا الخطوات التي وقع فيها أهل الكتاب حتى وقعوا في الكفر؛ فهذه الشريعة هي روح الإيمان وركيزته التي من دونها يذوب الإيمان في قلب العبد كما يذوب الملح في الماء، حتى يبقى شبحًا خاليًا من الحياة ونور الهداية والتوفيق. وإنما استُحِبَّتِ العزلة عند شيوع المنكَرات وذيوعها؛ لأن النظر إلى المنكر مع عدم القدرة على إنكاره يؤدي إلى فساد القلب، فشرعت العزلة وقتها للحفاظ على الغَيرة الإيمانية المتجلية في تغيير المنكر، ولو خالط المسلم أهل الفجور وصبر على منكراتهم، دل على نقص إيمانه، فإن انتقل إلى استساغة هذه المنكرات ومجالسة أهلها، دلَّ على خراب قلبه، وخُلوِّه من الغيرة على محارم الله. ويدل عليه ما جاء في صحيح مسلم عن أبي سعيد الخدري رضي الله عنه قال: سمعت رسول الله صلى الله عليه وسلم يقول: (مَنْ رَأَى مِنْكُمْ مُنْكَرًا فَلْيُغَيِّرْهُ بِيَدِهِ، فَإِنْ لَمْ يَسْتَطِعْ فَبِلِسَانِهِ، فَإِنْ لَمْ يَسْتَطِعْ فَبِقَلْبِهِ، وَذَلِكَ أَضْعَفُ الْإِيمَانِ) (صحيح مسلم:49)، أي: وتلك أقل درجات الإيمان، التي ليس بعدها من الإيمان شيء، وهي الإنكار القلبي. وعلى هذا، يتبيَّن أن مخالطة أهل المنكر علامة على ضعف إيمان صاحبه، ولو كان في قلبه شيء منه لأنكر أو اعتزل، وقد اشتد البلاء في هذا الزمان، حتى لا يكاد امرؤ يجتنب المنكرات إلا بلزوم بيته أو يهرب إلى شِعب من الشِّعاب بين فِجاج الجبال، ولا يكون ذلك إلا لمن نبذ الدنيا وراء ظهره، ورضي بقليل القوت، وذلك تحقيق ما جاء في صحيح مسلم عن أبي هريرة أن رسول الله صلى الله عليه وسلم قال: (بدأ الإسلام غريبًا، وسيعود كما بدأ غريبًا؛ فطوبى للغُرَباء). (صحيح مسلم:145) من أمثلة الصدع بالحق قول الله جل وتقدس: (وَجَاءَ مِنْ أَقْصَى الْمَدِينَةِ رَجُلٌ يَسْعَىٰ قَالَ يَا قَوْمِ اتَّبِعُوا الْمُرْسَلِينَ (٢٠) اتَّبِعُوا مَنْ لَا يَسْأَلُكُمْ أَجْرًا وَهُمْ مُهْتَدُونَ (٢١) وَمَا لِيَ لَا أَعْبُدُ الَّذِي فَطَرَنِي وَإِلَيْهِ تُرْجَعُونَ (٢٢) أَأَتَّخِذُ مِنْ دُونِهِ آلِهَةً إِنْ يُرِدْنِ الرَّحْمَٰنُ بِضُرٍّ لَا تُغْنِ عَنِّي شَفَاعَتُهُمْ شَيْئًا وَلَا يُنْقِذُونِ (٢٣) إِنِّي إِذًا لَفِي ضَلَالٍ مُبِينٍ (٢٤) إِنِّي آمَنْتُ بِرَبِّكُمْ فَاسْمَعُونِ (٢٥) قِيلَ ادْخُلِ الْجَنَّةَ ۖ قَالَ يَا لَيْتَ قَوْمِي يَعْلَمُونَ (٢٦) بِمَا غَفَرَ لِي رَبِّي وَجَعَلَنِي مِنَ الْمُكْرَمِينَ (٢٧)). (سورة يس) وقوله جل وتقدس: (وَقَالَ الَّذِي آمَنَ يَا قَوْمِ اتَّبِعُونِ أَهْدِكُمْ سَبِيلَ الرَّشَادِ (٣٨) يَا قَوْمِ إِنَّمَا هَٰذِهِ الْحَيَاةُ الدُّنْيَا مَتَاعٌ وَإِنَّ الْآخِرَةَ هِيَ دَارُ الْقَرَارِ (٣٩) مَنْ عَمِلَ سَيِّئَةً فَلَا يُجْزَىٰ إِلَّا مِثْلَهَا ۖ وَمَنْ عَمِلَ صَالِحًا مِنْ ذَكَرٍ أَوْ أُنْثَىٰ وَهُوَ مُؤْمِنٌ فَأُولَٰئِكَ يَدْخُلُونَ الْجَنَّةَ يُرْزَقُونَ فِيهَا بِغَيْرِ حِسَابٍ (٤٠) وَيَا قَوْمِ مَا لِي أَدْعُوكُمْ إِلَى النَّجَاةِ وَتَدْعُونَنِي إِلَى النَّارِ (٤١) تَدْعُونَنِي لِأَكْفُرَ بِاللَّهِ وَأُشْرِكَ بِهِ مَا لَيْسَ لِي بِهِ عِلْمٌ وَأَنَا أَدْعُوكُمْ إِلَى الْعَزِيزِ الْغَفَّارِ (٤٢) لَا جَرَمَ أَنَّمَا تَدْعُونَنِي إِلَيْهِ لَيْسَ لَهُ دَعْوَةٌ فِي الدُّنْيَا وَلَا فِي الْآخِرَةِ وَأَنَّ مَرَدَّنَا إِلَى اللَّهِ وَأَنَّ الْمُسْرِفِينَ هُمْ أَصْحَابُ النَّارِ (٤٣) فَسَتَذْكُرُونَ مَا أَقُولُ لَكُمْ ۚ وَأُفَوِّضُ أَمْرِي إِلَى اللَّهِ ۚ إِنَّ اللَّهَ بَصِيرٌ بِالْعِبَادِ (٤٤) فَوَقَاهُ اللَّهُ سَيِّئَاتِ مَا مَكَرُوا ۖ وَحَاقَ بِآلِ فِرْعَوْنَ سُوءُ الْعَذَابِ (٤٥)). (سورة غافر) خلاصة القول أن الحق في الصدع بالحق .

احسن الله اليك استادي تم المطلوب بنجاح روعة👍

سؤال : هل يمكن حصر رموز الأخطاء التي تظهر في رسائل نظام الأكسيس ، للتعرف على وصف كل منها ، ضمن جدول و تطبيق للبحث يمكن من خلاله البحث عبر شبكة الانترنت ( Google تحديدا ) عن أسباب الخطأ و حلوله ؟ الجواب : نعم و الحل في التطبيق المرفق تنويه : الجدول يحمل 2977 رمز خطأ و و صفه باللغة الانجليزية ، هذه دعوة لتوسيع التطبيق و اضافة تراجم لأوصاف رموز الأخطاء في الجدول ، مع وصف للحلول و الحالات التي تطلق رسائل الخطأ لكل رمز ، لعموم الفائدة ، كما يمكن استخدامه كمكتبة شخصية لتجميع الملاحظات حول الاخطاء التي تواجه كل منا . و الله من وراء القصد ... NA__ErrorCodeArchive.accdb

وعليكم السلام الحمد لله الذى تتم بنعمته الصالحات هذا فضل الله تعالى اسال الله ان يهيئ لكم من امركم رشدا اتفضل تم التعديل وللتوضيح هذا السطر من الكود لطباعة التقرير DoCmd.OpenReport "rpt", acNormal وهذا السطر لاستعراض التقرير ان اردت الطباعة فقط دون فتح التقرير قم بازالة هذا السطر وان اردتهما معا فالكود فى المرفق يقوم بذلك الامر DoCmd.OpenReport "rpt", acViewPreview, , , acDialog reglemen1 (2) .accdb

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

معلش انا هتعبك معايا لاني فعلا مش بتحرك بسهولة في الاكسيس بس انت فعلا بتشارك في ثواب كبير للحالات انا كده هعمل جدول للمقابله الاولي بنفس البيانات الموجودة في النموذج بس يعني ازاي ( بيانات المقابلة الاولى هو بيانات ثابتة ومحلها جدول بيانات الطفل ) مش فاهم الجزئيه دي وازاي تترجم في بيانات الطفل

افضل عمل استعلام ليكون مصدر بيانات النموذج ويستخدم نفس الاستعلام للتقرير وبالنسبة للتصدير اهديكم هذا المرفق تصدير ( تقرير /عدة تقارير ) الى PDF والذى يتميز بالاتى 1- مرونة فى اختيار مسار تصدير الـ ( تقرير / عدة تقارير ) فى كل مرة حسب الحاجة ويمكنك تثبيت المسار اذا اردت 2- اختيار تقرير واحد من القائمة أو أكثر ( عدة تقارير ) لتصديرهم الى مسار محدد 3-اختيار الاجراء بعد التصدير استعراض او عدم استعراض وفتح ملف الـ PDF 4-الاكواد فى روتين عام يمكن استدعائها من اى مكان 5-امكانية اضافة طباعة التقارير مع او بدل كود التصدير الى PDF وهذه ميزة كتابة الكود فى روتين عام داخل موديول يعنى شغل فاخر من الاخر Export Multi Reports.mdb

نعم احسنت جزيت خيرا

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام الكود التالي Dim MyPath As String MyPath = CurrentProject.Path & "\" DoCmd.OutputTo acOutputForm, "جدول1", acFormatPDF, MyPath & "1.pdf", False او وضع المعايير في استعلام والتصدير بالكود التالي Dim MyPath As String MyPath = CurrentProject.Path & "\" DoCmd.OutputTo acOutputQuery, "Query1", acFormatPDF, MyPath & "1.pdf", False تحياتي

تفضل ان شاء الله هو المطلوب شرح الفكرة : بالنسبة للعناصر المطلوب اظهارها واخفاءها يتم الاستفادة بخاصية Tag بحيث يكون لهم نفس Tag ويتم استخدام كود بسيط لاظهار او اخفاء مجموعة العناصر صاحبة الTag المطلوب وتطبيقا على قاعدتك ستجد ان ازرار الموظفين لها تاج باسم Emp وعناصر الطلاب لها تاج Stu . فى الفكرة ايضا اذا ضغطت على الزر يقوم باظهار العناصر الخاصة به و اذا ضغطت مرة اخرى تختفى العناصر وينطبق الموضوع على زر الموظفين و الطلاب سواء الأعلى او الجانبى . يمكنك تعديلها كما تريد . بالتوفيق Amr.accdb

وعليكم السلام ... يعنى ايه ؟!!! الملف مش موضح اى حاجة وفين الشهور الموجودة والنسبة المئوية من المبيعات ازاى ,, لابد من وجود طرفين لكى اتحصل على النسبة المئوية !!! من فضلك حدد شكل النتيجة المطلوبة فكيف يتم التوصل الى طلبك وكيف يتم المقارنة وما هى شروط وبنود المقارنة ؟!!! من فضلك طلبك ينقصه الكثير , أم هذا ما تطلبه وتريده النسبة المئوية.xlsx

السلام عليكم استادي ابو جودي الحمد لله بفضلكم تم المطلوب عمل رائع وفقك الله وغيابي ليس الا لظروف جزاك الله خيرا ماذا سأضيف للكود ليعمل print ؟

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

طيب هو المفروض السائل يضع المثال حتى يتم التطبيق عليه .... على كل حال .... ناقل_&&&.mdb

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

اتفضل ان شاء الله تلاقى طلبك reglemen1 (2) .accdb

أبو جودي أبو خليل لله دركما ودَرُّ أبيكما جزاكما الله كلَّ خير وبارك الله فيكما ومتعكما بالصحة والعافية

الحلول كثيرة هذا واحد منها استخدمت هذه الوحدة النمطية عبر الماكرو ويمكنك توظيفها في حدث زر على الفورم Public Function fncTrteeb() 'by Abu klil On Error Resume Next Dim rst As DAO.Recordset Dim rsm As DAO.Recordset Dim trb, trbx As String Dim i, mjmo As Integer DoCmd.RunSQL "update Q_top10 set trteeb=null" Set rst = CurrentDb.OpenRecordset("tblTrteeb") Set rsm = CurrentDb.OpenRecordset("Q_top10") rst.MoveLast rst.MoveFirst rsm.MoveFirst trb = rst!trteb mjmo = 0 For i = 1 To rst.RecordCount - 1 If rsm!total <> mjmo Then rsm.Edit rsm!trteeb = trb mjmo = rsm!total rsm.Update trbx = rst!trteb rsm.MoveNext rst.MoveNext trb = rst!trteb Else rsm.Edit rsm!trteeb = trbx & " " & "مكرر" mjmo = rsm!total rsm.Update rsm.MoveNext End If Next End Function ترتيب الأوائل ماكرو.rar

جزاكم الله الف خير وللجميع التقدير والاحترام

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

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

انا بالخدمة .. وايضا انا لاشيء امام قامات اساتذتي في هذا المنتدى الرائع

استدراك خارج الصندوق هل تريد الترتيب الى العاشر (مع حصول التكرار) حتى لو زاد العدد عن عشرة ؟

هذا هو الحل المنطقي ثلاث طلاب حصلوا على الدرجة نفسها كيف تفاضل بينهم ؟ من العدل ان يأخذوا الترتيب نفسه اذا حددت الجهة عدد الطلاب الذين سيكرمون مثلا عشرة طلاب فانت ملزم باستخراج عشرة فقط هذا هو المعمول به في المدارس غالبا يكرموا عشرة طلاب فقط الاوائل بل منطقي نفرض ان العشرة كلهم حصلوا على درجة واحدة متساوية النتيجة كلهم الاول مكرر الاستثناء هنا لو كانوا اكثر من عشرة ومتساوين في الدرجة العبرة في العدد المطلوب تكريمهم فكر فيها ملياً نفرض 20 طالب بنفس الدرجة فأمامهم خيارين : اما يكرموا العشرين جميعا او يلغوا التكريم اقصد ان العبرة في العدد المطلوب تكريمه بغض النظر عن التسمية الاول او الرابع او التاسع فالتفاضل هنا لمن درجاته اعلى عشرة حصلوا على اعلى درجة من غير العدل ان نعطي وصفا وترتيبا فيه تفاضل لطلاب متساوين في الدرجة اذا اردت ان تستبعد هذه العبارات التفضيلية وتقتصر على اخراج اعلى عشرة طلاب وتسلم يمكن ان تتم ترتيب الاستعلام على عمودين مجموع الدرجة اولا ثم ترتيب الاسم ابجديا بحيث تخرج من اشكالية الاول والثاني ... الخ

تفضل حسب فهمي من واقع تصفيتك للاستعلام Data_Base4.rar

طيب وكمان غير مشاكل اللغة اللى ممكن تحصل عندما يتم استخدام الحروف العربية داخل المحرر قولى يا almosafer almasry هل قدرت تفهم قاعدة iif مع العربى 🤭 كما تفضل اساتذتى الكرام بوضع الحل طبقا للاحرف العربية مع قاعدة iif انا عن نفسي لا بافهما ولا باعرف اكتبها مع العربى ههههههه علشان كدع استخدمت Select Case عن نفسى بافضلها فى كل الاحوال مرنه اكثر والان صار معاك الحلين ,وحل ثالث ايضا اثراء للموضوع استخدام الدالة switch Me.[السعر] = Switch(Me.[الخدمة] = "ايواء", Me.[مبلغ الشراء], Me.[الخدمة] = "يومي", Me.[الايجار] * Me.[عدد الايام])

استاذ ابو عبد الله ..انت عاملها بالعكس بع اذنك.. Me.السعر = IIf([الخدمة] = "ايواء", [مبلغ الشراء], (Nz([عدد الايام]) * Nz([الايجار])))

جزاك الله خيرا معلومات مفيدة جدا.

تفضل empl2021.rar

السلام عليكم بعد البحث في المنتدى وجدت كود وتم التعديل عليه حسب الاستطاعة توجد مشاكل منها حذف بعض البيانات عند الضغط على زر الطباعة تعديل على كود طبع جملة واحدة حسب اسم المخول.xlsm

عليكم السلام تفضل اسرع واسهل طريقة ولكني استبعدت التسميات : الاول ، الثاني ... الخ لانه يوجد طالبان متساويان في النتيجة ، فالعدل ان يكون فيه تكرار مثل الاول مكرر ، الثاني مكرر ... وهكذا ان اردت اظهار التسميات مع تبيين التكرار فانظرني الى الغد Data_Base2.mdb

السلام عليكم ورحمة الله اخى الكريم ما هو الشرط لا توجد اى شروط داخل الملف

جزاكم الله كل خير وفقنا الله جميعا

جميعا بإذنه تعالى

اليوم اقدم لكم أضخم كتاب عربي لتعلم برنامج EXCEL يحتوي على شرح مفصل لصيغ والدوال وكذالك مرفق مع الكتاب تطبيقات نموذجية . غلاف الكتاب المحتويات 1.بداية الكتاب معلومات اساسية عن برنامج إكسل 2007 2. استخدام الدالات في الصيغ 3. شرح كافة المعادلات في والتطبيق في إكسل 4. شرح صيغ الصفيف وأمثلتها المستحيلة في إكسل 5. شرح جداول Pivot والمراجع الدائرية المقصودة والمخططات والرسوم البيانية والتنسيق الشرطي والادوات والتنقيح 6.في النهاية الغير متوقعة شرح لغة VBA وطريقة كتابة الصيغ فيها لتحميل الكتاب اضغط هنا حجم الكتاب: 39.7 MB رابط اخر على 4shared أرجو الدعاء لي ولصاحب الكتاب وناشره جزاكم الله خيرا

اضافة الى ماتقدم به الاستاذ ابو آدم بارك الله فيه .. إليكم جدول اخطاء الاكسس بالعربي جدول رسائل أخطاء الأكسس.zip

السلام عليكم جميعا اذا سمحتم لي كيف استخرج النسبه المئوية لكل منتج حسب الشهر 👈وهل يصلح ان اخرج النسبه المئوية لمبلغ معين لوحده ... انظر المرفق ...مع خالص شكري هذه مبيعات يوميه ل 55 صنف لكل صنف امامه كم بيع منه خلال الشهر اريد نسبه كل صنف مقارنه ببقيه الاصناف ارجو ان وفقت لتوصيل الفكره النسبه المويه.xlsx

في الرابط شيء يشبه قليلا ما اريد ولكن ليست لي خبرة للتطبيق https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=200927&key=eeb4367964a1fb8296e625d335f8c2ac

اخي محمد عدنان تفضل من دفتر علامات 2022 المعدل.xlsm

مرفق الصور بالبوست السابق ، وسيتم ارفاقها هنا مره اخرى Snap.rar