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

السلام عليكم 🙂 اخواني ، ماشاء الله هذا المنتدى معطاء ويكشف معدن وجوهر الأعضاء من اجاباتهم ومساعدتهم لإخوانهم الأعضاء الآخرين 🙂 يشرفني اليوم ان اهنئ انفسنا باكتشافنا تألق اخونا @محمد ابوعبد الله واخونا @sandanet وترقيتهم الى درجة خبراء 🙂 ولازلنا في بحث متواصل بين اجابات و ردود الاعضاء ، لنكتشف نجوم جديدة 🙂 جعفر

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

السلام عليكم في الكثير من الأحيان نحتاج إلى معرف مصدر اختصارات سطح المكتب أو إلى معرفة هل هذا البرنامج لديه اختصار على سطح المكتب أم لا؟ نستطيع استخراج مصدر اختصارات سطح المكتب و ملفها من خلال هذا الكود: Dim strFolder As String Dim strDesktop As String Dim typefiche As String Dim strtxt As String typefiche = "\*.lnk" strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop") strFolder = Dir(strDesktop & typefiche, vbDirectory) Do While strFolder <> "" If Not (strFolder = "." Or strFolder = "..") Then strtxt = "Full Path: " & CreateObject("WScript.Shell").CreateShortcut(strDesktop & "\" & strFolder).TargetPath & vbCrLf strtxt = strtxt & "Path Folder: " & CreateObject("WScript.Shell").CreateShortcut(strDesktop & "\" & strFolder).WorkingDirectory & vbCrLf MsgBox strtxt End If strFolder = Dir() Loop مصدر اختصارات من سطح المكتب.rar

الف مبروك مع الشكر و التقدير و اطيب الامنيات و الي الامام دائما 🌹

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

اخوتي واساتذتي الكرام .. أضع بين أيديكم البرنامج مفتوح المصدر البرنامج مكون من عدة اجزاء الجزء الاول وهو البرنامج الرئيسي protection_trial وهو المسؤول عن قراءة مكونات جهاز العميل (قراءة سيريال الـ UUID و اسم المعالج) لتوليد رقم نسخة فريد خاص بجهاز العميل يقوم العميل بارساله الى المبرمج. ملاحظة1: في البداية وقبل ارسال البرنامج لاي عميل قم برفع المستند النصي المرفق Active1.txt الى موقع الـ dropbox واعمل للمستند مشاركة واستخرج من رابط المشاركة رمز مشابه لهذا الرمز (n702324j1aclxel) واستبدله في البرنامج لديك If CheckNetFile("https://dl.dropboxusercontent.com/s/n702324j1aclxel/active1.txt?dl=0") = True Then MyString = Decrypt(RTrim(LTrim(GetFromWebpage("https://dl.dropboxusercontent.com/s/n702324j1aclxel/active1.txt?dl=0")))) If MyString = "" Then MyString = Decrypt(RTrim(LTrim(ReadURLFile("https://dl.dropboxusercontent.com/s/n702324j1aclxel/active1.txt?dl=0")))) الخطوة السابقة تفعلها للمرة الاولى فقط. الجزء الثاني من البرنامج وهو برنامج التشفير encrept_data وهو خاص بالمبرمج حيث يقوم المبرمج بأخذ رقم النسخة السابق من العميل ووضعه في المستند النصي المرفق مع برنامج التشفير active1 -original.txt مع تحديد تاريخ بداية فترة التفعيل ونهايتها كما هو موضح داخل المستند ومن ثم فتح برنامج التشفير ومة خلال النموذج الاول frm اضغط مباشرة على كلمة تشفير النص وذلك لتوليد مستند نصي آخر اسمه Active1.txt فيه تشفير لبيانات المستند النصي السابق .. قم برفع المستند النصي Active1.txt على موقع الـ dropbox بدون حذف الملف القديم الموجود على الموقع ( فقط ارفعه على نفس المكان ليقوم الموقع باستبدال الملف القديم بالجديد تلقائياً بدون تغيير رابط المشاركة) في كل مرة تقوم باضافة عميل جديد كل ماعليك القيام به هو فتح مستند النص active1 -original.txt ثم قم باضافة رقم نسخة العميل وتاريخ فترة تفعيل البرنامج ومن ثم تشغيل برنامج التشفير encrept_data ومن ثم رفع المستند النصي الناتج Active1.txt الى موقع الـ dropbox مباشرة في نفس مكان الملف القديم مع مراعات عدم حذف القديم لكي لاتفقد رابط المشاركة وهذا أمر هام جداً يرجى الانتباه له تحياتي encrept_data.zip protection_trial.mdb

تهنئة من القلب والف مبروك نسأل الله لكم التوفيق والعون

وعليكم السلام-بالله عليكم انتبه لهذا الموضوع جدا فقد نبهنا فى العديد من المرات عليكم بإستخدام خاصية البحث فى المنتدى قبل رفع المشاركات فالمنتدى به كنوز وحتى تتفرغ الأساتذة للإجابة على اسئلة مختلفة لم ترد بالمنتدى لعدم اهدار الوقت تفضل به طلبك تقسيم 100 نقطة على عدد طلاب اكثر او اقل من 100 قرعه ( سحب ) اختيار عشوائى اسبوعى

اخي @qathi تفضل DatabaseRestartV1.2.accdb DatabaseRestartV1.2.mdb المصدر : http://blog.nkadesign.com/2008/05/06/ms-access-restarting-the-database-programmatically/

فورم بحث واضافة وتعديل وحذف وترحيل وطباعة بطريقتين الفيديو الاول بحث الفيديو

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

ألف مبروك للخبيرين يستاهلو أكثر ننتظر منكم المزيد إن شاء الله

مزيد من التقدم والرقى لخبرائنا / @محمد ابوعبدالله و @sandanet تهئنة لخبيرنا محمد ابو عبد الله فكان واضح من ردوده واجاباته لنا تهئنة لخبيرنا sandanet فكان واضح منذ فترة طويلة وارجو بمناسبة الترقية ان يهدينا فتح برنامجه الاخير " حماية اكسس من بعيد" كما اشكر استاذنا الحليل ومعلمنا وخبيرنا الاستاذ / جعفر على حسن متابعته لنا وياسلام على كلمة تلأ لأ فهى كلمة جميلة جعلتى عند قراءتها اتهته كثيرا دائما احب اداعب استاذنا ومعلمنا القدير/ جعفر وايضا استاذنا ومعلمى مروض الاكسس / محمد عصام احب مداعبتعم وخفه ظلهم

جزاكم الله خيرا اخواني الكرام وارجو من الله العلي القدير ان نكون عند حسن الظن وأود ان اذكر نفسي واخواني يأن الله سبحانه وتعالى لم يأمر نبيه صلى الله عليه وسلم بطلب الزيادة الا في العلم فقال سبحانه وتعالى " وقل رب زدني علماً" فنرجو من الله ان يزيدنا علماً وأن ينفع بنا وأن يجعلنا هداة مهتدين تحياتي

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

وعليكم السلام 🙂 حلين : 1. يجب ان توضح في الكود: dim db as dao.database 2. يجب ان لا تستعمل كلمة Database كإسم المشروع هنا : . جعفر

وعليكم السلام 🙂 في الواقع هذه ميزات الاكسس ، عندك اكثر من طريقة لعمل اي شيء 🙂 شكرا لك 🙂 جعفر

مسابقة دينية للاجابة عليها من اربع خيارات الفيديو

السلام عليكم ورحمة الله وبركاته تانية طريقة هنشرحها باذن الله هى طريقة .. شرح تصدير البيانات من الاكسس الى ملف ورد معد مسبقا عن طريق الاشارة المرجعية الفيديو https://youtu.be/VtPEat0Qkqo MS_Export data to Word file.rar

الاخوة الكرام السلام عليكم ورحمة الله وبركاته مرفق مثال بسيط لعمل تصفية XFilter.rar دمتم بكل خير تحياتي

تم اضافة ماكرو للعمل على صفحة المطلوب 2 مع اضافة الاحتياط (باللون العادي) والأصليين باللون الأزرق الماكرو للصفحة المطلوب 2 Option Explicit Sub N_rand_For_matloub_2(col) 'Created by_salim 23/11/2019 'this code distribute teachers randomly Dim i%, m%, x%, k% Dim MY_max%, ro%, S_Rg As Range m = 8 Dim minn%: minn = 1 Dim maxx% Dim arr1(), arr2() Dim how_many Dim myArrayList As Object, myArrayList2 As Object MY_max = Cells(Rows.Count, 2).End(3).Row If Not IsNumeric([E2]) _ Or [E2] < 1 Or [E2] > 18 Then maxx = 18 Else maxx = Int([E2]) End If how_many = maxx - minn + 1 Range(col & 8, Range(col & 7).End(4)).ClearContents Set myArrayList = CreateObject("System.Collections.ArrayList") For i = 1 To maxx - minn + 1 myArrayList.Add Rnd(i) Next arr1() = myArrayList.toarray Set myArrayList2 = myArrayList.Clone myArrayList2.Sort arr2() = myArrayList2.toarray For i = LBound(arr2) To UBound(arr2) If i > how_many - 1 Then Exit For x = Application.Match(arr2(i), arr1, 0) Range(col & m) = x + minn - 1: m = m + 1 If m > MY_max - [f2] Then GoTo Exit_Me Next Exit_Me: '+++++++++++++++++++++++++++++++++++ For ro = 8 To MY_max Set S_Rg = Range(col & 8).Resize(maxx).Find(Cells(ro, 1), lookat:=1) If S_Rg Is Nothing Then Range(col & m) = "احتياط :" & Cells(ro, 1): m = m + 1 Next '++++++++++++++++++++++++++++++++++ Set myArrayList = Nothing: Erase arr1 Set myArrayList2 = Nothing: Erase arr2 End Sub '++++++++++++++++++++++++++++++++++++++++++++++++ Sub test_for_matloub_2() Dim arr, tt% arr = Array("D", "E", "F", "G", "H", "I", "J", "K", "L", "M") For tt = LBound(arr) To UBound(arr) Call N_rand_For_matloub_2(arr(tt)) Next Erase arr End Sub الملف من جديد Exam 1_2_new.xlsm

بارك الله فيك اخي الكريم فقط احذف المعيار التالي من الاستعلام [forms]![Data01]![ItemBarcode] prov - Copy.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل انظر المرفق في تقرير items تم وضع معيار لكود الصنف والتاريخ prov - Copy.rar تحياتي

بعد الانتهاء من شرح سورة الصف من سلسلة تفسير العُشر الأخير يبدأ فضيلة الشيخ محمد نبيه في تفسير سورة الجمعة وبيان معاني الآيات والكلمات. سورة الجمعة هي سورة مدنية النزول وعدد آياتها احدى عشرة آية، " تفسير سورة الجمعة " ﴿يُسَبِّحُ لِلَّهِ مَا فِي السَّمَاوَاتِ وَمَا فِي الْأَرْضِ﴾ أول شئ من الدروس في تفسير سورة الجمعة هو دوام تسبيح الكائنات لله تبارك وتعالى، وفي هذا اشعار بأن الكائنات لا تفتر عن تسبيح الله، يسبح له ما في السماوات السبع وما في الأراضين السبع. ﴿الْمَلِكِ الْقُدُّوسِ الْعَزِيزِ الْحَكِيمِ﴾ ﴿الْمَلِكِ﴾ الذي يملك كل شئ وينفذ أمره في كل شئ. والله تبارك وتعالى خلق الخلق وملكهم سبحانه لذلك أمره فيهم نافذ قال عز وجل: ﴿إِنَّمَا أَمْرُهُ إِذَا أَرَادَ شَيْئًا أَن يَقُولَ لَهُ كُن فَيَكُونُ﴾. ﴿الْقُدُّوسِ﴾ الذي له مطلق الطُهر. ﴿الْعَزِيزِ﴾ الذي لا يغلب ولا يقهر. ﴿الْحَكِيمِ﴾ الذي يضع الشئ في موضعه اللائق به. فلا يستعصي على الله شئ من خلقه ولا يخالف أمره شئ أبداً، إن أغنى وإن أفقر وإن أصح وإن أمرض وإن أعطى وإن منع فهو يعطي ويمنع لحكمة يعلمها هو، ويجود على من يشاء بما شاء كيف شاء. ﴿هُوَ الَّذِي بَعَثَ فِي الْأُمِّيِّينَ رَسُولًا مِّنْهُمْ﴾ ﴿الْأُمِّيِّينَ﴾ هم العرب. ﴿مِّنْهُمْ﴾ أمي كأميتهم، شريف في نسبه كما فيهم أشراف في النسب هو صفي من العرب اصطفاه الله تبارك وتعالى من العرب. من نفاذ أمره ومن عزته وحكمته سبحانه وتعالى أنه اصطفى محمداً ﷺ من قوم أميين. والأمي هو الإنسان الذي على سجيته. عندما تعامل إنساناً على سجيته ولم يسبق له في التعامل لؤم ولا خبث يقال له أمي. وليس شرطاً أن تكون الأمية مقابلة للقراءة والكتابة إنما الأمي في أصله هو الإنسان الذي على سجيته على طبيعته لم يدخله لوث ولا عكر، وقد تطلق الأمية على من لا يحسن القراءة والكتابة والعرب كانوا هكذا. ﴿آيَاتِهِ وَيُزَكِّيهِمْ وَيُعَلِّمُهُمُ الْكِتَابَ وَالْحِكْمَةَ وَإِن كَانُوا مِن قَبْلُ لَفِي ضَلَالٍ مُّبِينٍ﴾ ﴿آيَاتِهِ﴾ آيات الله القرآن. ﴿وَيُزَكِّيهِمْ﴾ التزكية طهارة يعني يعمل على تطهيرهم من درن الشرك. ﴿الْكِتَابَ﴾ القرآن. ﴿وَالْحِكْمَةَ﴾ السنة. وهذا يدل على أن السنة النبوية وحي كما أن القرآن وحي وتصديق هذا في حديث النبي ﷺ: (كان جبريل ينزل علي بالسُنة كما ينزل علي بالقرآن). ﴿ضَلَالٍ مُّبِينٍ﴾ العرب قبل الإسلام كانوا في ضلال واضح ولما جاء الإسلام أصابوا الهداية ووضح لهم الطريق. لكن الآية تفيد أنه عربي ﷺ واصطفاه الله من العرب وأرسله في العرب لكن لم يرسله في العرب وحدهم إنما أرسله في العرب وفي غير العرب فرسالته عالمية. ﴿وَآخَرِينَ مِنْهُمْ لَمَّا يَلْحَقُوا بِهِمْ ۚ وَهُوَ الْعَزِيزُ الْحَكِيمُ﴾ ﴿وَآخَرِينَ مِنْهُمْ﴾ لا شك أنهم غير العرب، فالآخرون هم العجم كما ذكر الطبري في التفسير وابن أبي حاتم وغيرهما. عرب وعجم الناس هكذا، فالعرب مصطلح يطلق على ساكني شبه الجزيرة العربية وما سواهم من أرض الله هم العجم. وهناك قول آخر: بأن الآخرون ليسوا العجم فقط بل كل من أسلم بعد موت النبي ﷺ عرباً كانوا أو عجماً فهم الآخرون الذين لم يدركوا العصر الأول. ﴿ذَٰلِكَ فَضْلُ اللَّهِ يُؤْتِيهِ مَن يَشَاءُ ۚ وَاللَّهُ ذُو الْفَضْلِ الْعَظِيمِ﴾ ﴿ذَٰلِكَ فَضْلُ اللَّهِ﴾ الإشارة هنا للاسلام، فالاسلام فضل الله يؤتيه من يشاء ويمن به على من يشاء والله ذو الفضل العظيم. ﴿مَثَلُ الَّذِينَ حُمِّلُوا التَّوْرَاةَ ثُمَّ لَمْ يَحْمِلُوهَا كَمَثَلِ الْحِمَارِ يَحْمِلُ أَسْفَارًا ۚ بِئْسَ مَثَلُ الْقَوْمِ الَّذِينَ كَذَّبُوا بِآيَاتِ اللَّهِ ۚ وَاللَّهُ لَا يَهْدِي الْقَوْمَ الظَّالِمِينَ﴾ في الآية تذكير للمؤمنين بالنظر في أحوال السابقين لما فيه من عظة وعبرة حتى نتحاشا أسباب هلكتهم وحتى ننتفع بما سادوا من خلاله وقادوا. والمقصود بهم في الآية هم علماء اليهود الذين حفظوا التوراة عن ظاهر قلب ولكنهم ما عملوا بها وعلم الحرام ولم يتركوا طرقه وعلموا الحلال ولم يسلكوا أسبابه فضرب الله لهم مثل السوء كمثل الحمار يحمل أسفارا. وفي هذا إشارة إلى من يقرأ القرآن ويجيد قراءته ويحفظه عن ظهر قلب لأن القرآن كلام الله والتوارة كلام الله. ﴿قُلْ يَا أَيُّهَا الَّذِينَ هَادُوا إِن زَعَمْتُمْ أَنَّكُمْ أَوْلِيَاءُ لِلَّهِ مِن دُونِ النَّاسِ فَتَمَنَّوُا الْمَوْتَ إِن كُنتُمْ صَادِقِينَ﴾ ﴿هَادُوا﴾ هاد بمعنى رجع وتاب، والمقصود اليهود. كان رسول الله ﷺ إذا ذهب إلى اليهود ليدعوهم يقولون له: يا محمد دعنا فنحن أبناء الله وأحباءه والله لا يعذبنا. ﴿يَا أَيُّهَا الَّذِينَ آمَنُوا إِذَا نُودِيَ لِلصَّلَاةِ مِن يَوْمِ الْجُمُعَةِ فَاسْعَوْا إِلَىٰ ذِكْرِ اللَّهِ وَذَرُوا الْبَيْعَ ۚ ذَٰلِكُمْ خَيْرٌ لَّكُمْ إِن كُنتُمْ تَعْلَمُونَ﴾ ﴿نُودِيَ﴾ أي نداء في القرآن بعده أمر عظيم قد يكون تكليف أو غير تكليف. والنداء المعتبر يوم الجمعة هو النداء بين يدي الخطيب يعني الأذان الذي يؤذن عند صعود الخطيب المنبر أو بعد صعود الخطيب المنبر. ﴿فَاسْعَوْا﴾ السعي هنا معناه المُضي وهو المشي مع شئ من الهمة، والسعي كذلك في القرآن يأتي بمعنى آخر يأتي بمعنى الفعل والعمل ﴿وَمَنْ أَرَادَ الْآخِرَةَ وَسَعَىٰ لَهَا سَعْيَهَا وَهُوَ مُؤْمِنٌ فَأُولَٰئِكَ كَانَ سَعْيُهُم مَّشْكُورًا﴾. # يوم الجمعة # والسعي للجمعة يكون بترك الأشغال الدنيوية والاشتغال بأمر الآخرة ويبدأ الاشتغال بالمشي تجاه الجمعة، فالجمعة شعيرة من شعائر الإسلام وكذلك الجمعة صلاة، فيوم الجمعة أزكى أيام الأسبوع وسيدها. وفي الحديث الشريف قال النبي ﷺ: (من أفضل أيامكم يوم الجمعة فيه خُلق آدم وفيه قُبض وفيه تقوم الساعة فإذا كان يوم الجمعة فأكثروا فيه من الصلاة علي فإن صلاتكم تبلغني). قالوا: وكيف تبلغك صلاتنا وقد أرمت. قال ﷺ: إن الله حرم على الأرض أن تأكل أجساد الأنبياء. # صلاة الجمعة # أما الجمعة كصلاة فهي من الصلوات المفروضة وهي ركعتان تتقدمهما خطبة تسمى خطبة الجمعة وخطبة الجمعة خطبتان بينهما جلسة خفيفة. والجمعة فرض على كل مسلم عاقل مقيم غير مسافر ولا امرأة ولا عبد فهي واجبة على كل من احتلم من الذكور الأحرار. أما العبيد فليست عليهم فرضا ولا على النساء ولا على المسافرون على قول من أقوال أهل العلم. ودليلنا على هذا أن النبي ﷺ في حجة الوداع في يوم عرفة جمع بين الظهر والعصر ويوم عرفة في حجة الوداع وافق يوم جمعة. والنبي ﷺ وهو في عرفة كان مسكنه في المدينة يومذاك ومن ثم المسافر لا جمعة عليه واجبة لكن إن صلاها أجزأت وصحت وكذلك المرأة والعبد والصبي الذي لم يحتلم. # أما الأحكام الأخرى المتعلقة بالجمعة: # في يوم الجمعة ساعة لا يوافقها عبد مسلم بالدعاء إلا استجاب الله له. من لحق بالإمام في الركعة الثانية قبل الركوع أو أثناء الركوع عُدت له جمعة وكلف أن يضم ركعة إلى ركعة. أما إذا لحق المسبوق بالإمام بعد قيامه من الركوع الثاني مرت منه الجمعة وعليه أن يصلي أربع ركعات. # هل هناك فرق بين الجمعة والعيدين أم الأمر واحد؟ # هناك فرق فالجمعة تتقدمها الخطبة وبعد الخطبة الصلاة أما العيدان فنصلي العيد أولا ثم نسمع الخطبة ثانية. # هل هناك فرق بين خطبة العيد وخطبة الجمعة؟ # هناك قول بأن خطبة العيد كخطبة الجمعة يعني خطبتان يجلس بينهما كما يجلس في الجمعة. وهناك قول ثاني أن العيد تُخطب له خطبة واحدة. من قال للعيد خطبتان: قاسوه على الجمعة. ومن قالوا للعيد خطبة واحدة قالوا: إن النبي ﷺ صلى العيد في العراء على غير منبر. وقالوا: لم يؤثر عنه ﷺ أنه جلس ولا استراح حتى نقول خطب خطبتين. واستدلوا أيضا بأنه صلوات الله وسلامه عليه خطب العيد في حجة الوداع على راحلته يعني على ناقته وهو على الناقة ما فصل بين خطبتين إنما خطب خطبة واحدة. ثم في رواية أنه صلى في العراء خطب الرجال ثم أتى النساء فوعظهن ووصاهن وقالوا: لأن النساء لم يكن سمعن خطبته صلوات الله وسلامه عليه. # أذان الجمعة # الأذان المعتبر يوم الجمعة هو الأذان الذي يؤذن عند صعود الخطيب المنبر أو بعد صعود الخطيب المنبر. لو أذن المؤذن يحرم على كل بائع أن يبيع بل وبعض العلماء قال: وإذا تم البيع فسد ولم ينعقد العقد لأنه بُني على حرام. فلا يجوز بيع ولا شراء عند صعود الخطيب المنبر وأذن المؤذن بين يديه. ﴿فَاسْعَوْا إِلَىٰ ذِكْرِ اللَّهِ وَذَرُوا الْبَيْعَ ۚ﴾ ﴿فَاسْعَوْا﴾ فعل أمر. ﴿وَذَرُوا﴾ فعل أمر. والأمر يقتضي الوجوب ما لم يصرفه صارف وليس في الآية صارف يصرف الوجوب. ومن ثم النهي هنا للتحريم والسعي هنا للوجوب. ﴿فَإِذَا قُضِيَتِ الصَّلَاةُ فَانتَشِرُوا فِي الْأَرْضِ وَابْتَغُوا مِن فَضْلِ اللَّهِ وَاذْكُرُوا اللَّهَ كَثِيرًا لَّعَلَّكُمْ تُفْلِحُونَ﴾ بعد انتهاء الصلاة يأمرنا الله بأن نذهب إلى أشغالنا ودنيانا فما منعنا الله تعالى ولا أمرنا بأن ننقطع للآخرة فقط بل خذ من دنياك ما يسترك فيها وما يبلغك يوم القيامة. ﴿وَإِذَا رَأَوْا تِجَارَةً أَوْ لَهْوًا انفَضُّوا إِلَيْهَا وَتَرَكُوكَ قَائِمًا ۚ ﴾ في صحيح البخاري أن النبي ﷺ كان يخطب في القوم وكانت المدينة يومذاك فيها شدة ورهق، وكان دحية بن خليفة الكلبي رضي الله عنه صحابي جليل كان قد جمع مالاً من الناس وذهب للشام وأتى بتجارة فيها سمن وزيت وفيها عسل ودقيق. ولما جاءت التجارة سمع من في المسجد أن التجارة قد وصلت فتركوا النبي ﷺ فوق منبره يخطب وليس معه إلا اثنى عشر رجلا وخرجوا لملاقاة التجارة. فنزلت الآية عتاب وتربية وتأديب. ﴿قُلْ مَا عِندَ اللَّهِ خَيْرٌ مِّنَ اللَّهْوِ وَمِنَ التِّجَارَةِ ۚ وَاللَّهُ خَيْرُ الرَّازِقِينَ﴾ تحتاج من المرزوق إلى يقين فلو أن المرزوق عنده يقين في أن الله هو الرزاق ذو القوة المتين ما عانى أبدا من رزق. لما حرم الله الصيد على بني اسرائيل في يوم السبت ابتلاهم بكثرة الحيتان في البحر في يوم السبت فاحتالوا على أمر الله. فلو أنك على يقين بأن الله هو الرزاق، والله رزقك لن يذهب إلى غيرك أبداً لذلك بعض الصالحين قال: علمت أن رزقي لن يأخذه غيري فاطمئن قلبي. هذا أصل من اعتقاد المسلمين ومن اعتقاد النبي ﷺ واعلم أن الأمة كلها لو اجتمعت على أن يضروك بشئ لن يضروك بشئ إلا قد كتبه الله عليك. واعلم أن ما أصابك لم يكن ليخطئك وما أخطئك لم يكن ليصيبك. فالرزق والأجل يملكهما الواحد المتعال سبحانه وتعالى ولم يعهد الله بهما إلى مخلوق أبداً. لذلك ما نحتاج إلا الرضا واليقين فلو رضيت بصنع الله فيك وبتقديره لك ينشرح الصدر ولو أيقنت في أن الأجل قرار يملكه الله لا يملكه عبده تستريح وتقر العين وتنام بالهناءة والسرور. مشاهدة تفسير سورة الجمعة

تفضل اخي الكريم تحياتي

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

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

شكرا جزيلا استاذ احمد جعلها الله في ميزان حسناتك

قم بتعديل هذا السطر في الكود For k = 1 To 3 الى هذا For k = 1 To [f2]

جرب هذا الماكرو Option Explicit Sub N_rand_numbers_Between(col) 'Created by_salim 23/11/2019 'this code distribute teachers randomly Dim i%, m%, x%, k% m = 8 Dim minn%: minn = 1 Dim maxx%: maxx = [d2] Dim arr1(), arr2() Dim myArrayList As Object, myArrayList2 As Object Dim how_many If Not IsNumeric([d2]) _ Or [d2] < 1 _ Or [d2] > maxx - minn + 1 Then how_many = maxx - minn + 1 Else how_many = Int([d2]) End If Range(col & 8, Range(col & 7).End(4)).ClearContents For k = 1 To 3 Set myArrayList = CreateObject("System.Collections.ArrayList") For i = 1 To maxx - minn + 1 myArrayList.Add Rnd(i) Next arr1() = myArrayList.toarray Set myArrayList2 = myArrayList.Clone myArrayList2.Sort arr2() = myArrayList2.toarray For i = LBound(arr2) To UBound(arr2) If i > how_many - 1 Then Exit For x = Application.Match(arr2(i), arr1, 0) Range(col & m) = x + minn - 1: m = m + 1 Next Next Set myArrayList = Nothing: Erase arr1 Set myArrayList2 = Nothing: Erase arr2 End Sub '++++++++++++++++++++++++++++++++++++++++++++++++ Sub test() Dim arr, tt% arr = Array("D", "E", "F", "G", "H", "I", "J", "K", "L", "M") For tt = LBound(arr) To UBound(arr) Call N_rand_numbers_Between(arr(tt)) Next Erase arr End Sub الملف مرفق ضغطة واحدة على زر Run يتم التبديل كل مرة Exam 1_2.xlsm

الحمد لله اني استطعت المساعدة وشكراً لك

مبارك عليكما أستاذي @sandanet وكذلك @محمد ابوعبدالله بالتوفيق

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

ترليون مبروك وأعانكم الله على حمل المسؤولية

استاذنا @محمد ابوعبد الله واستاذنا@sandanet مبارك لكما الترقية ... اسأل الله الكريم ان ان ينفع بكما وبعلمكما

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

شكراً أستاذى @jjafferr

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

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

شكرا على التوضيح 🙂 جعفر

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

نعم إستاذ @sandanet هذا من أفضل الأمثلة التي تعيد تحجيم النموذج عند فتحه بملئ الشاشة وليس هذا فقط بل يقوم على اظهار عناصر النموذج ف اماكنها ولا يقوم بازاحتها الى اليمين أو اليسار ,اعلى وأسفل وقد جربته على خمس شاشات مختلفة المقاسات وكانت النتائج ممتازه جدا ولكن توجد ملاحظة للحصول على أفضل نتيجة دائما اجعل اتجاه النموذج من اليسار إلى اليمين ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم

أمر بسيط جداً بواسطة التعديل على الماكرو في الاسطر مابين علامات الـــ+ ++++ ليبدو الماكرو هكذا Option Explicit Sub get_moulahaza() Dim Dic_Name As Object Dim Dic As Object Dim i%, Ro%, ky Ro = Cells(Rows.Count, 2).End(3).Row '+++++++++++++++++++++++++++++++++++++++++ Range("j4").CurrentRegion.Offset(2).ClearContents '+++++++++++++++++++++++++++++++++++++++++ Set Dic_Name = CreateObject("Scripting.Dictionary") Set Dic = CreateObject("Scripting.Dictionary") '============================= '++++++++++++++++++++++++++++++++++ For i = 2 To Ro Dic_Name(Cells(i, 2).Value) = Cells(i, 1).Value Next '++++++++++++++++++++++++++++++++++ '============================= For Each ky In Dic_Name.Keys For i = 2 To Ro If Cells(i, 4) <> "حاضر" And Cells(i, 2) = ky Then If Not Dic.Exists(Cells(i, 2).Value) Then Dic.Add Cells(i, 2).Value, _ Cells(i, 4) & " " & Cells(i, 3) Else Dic(Cells(i, 2).Value) = _ Dic(Cells(i, 2).Value) & " * " & _ Cells(i, 4).Value & " " & Cells(i, 3) End If End If Next i Next ky With Dic Cells(4, "K").Resize(.Count) = _ Application.Transpose(.Keys) Cells(4, "L").Resize(.Count) = _ Application.Transpose(.items) End With '++++++++++++++++++++++++++++++++++++++++++ Cells(4, "J").Resize(Dic_Name.Count) = _ Application.Transpose(Dic_Name.items) '++++++++++++++++++++++++++++++++++++++++++ Set Dic_Name = Nothing: Set Dic = Nothing End Sub الملف من جديد Exampl_moulahaza_new.xlsm

السلام عليكم فهمت عليك تفضل جرب المرفق غياب_A5 مع الغياب بعذر.xlsm

جرب المرفق ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم Database2.rar

الف شكر اخ على

السلام عليكم ورحمه الله وبركاته الاخوه الاعزاء هذه اول مشاركه في المنتدى وارغب في مساعدتكم ملف الاكسيل المرفق "الشيت الاول" يحتوي على بيانات لاسماء الطلاب ومواد اختباراتهم و و و مرتبه حسب الرقم الاكاديمي واريد طباعه ورقه مخصصه لكل طالب كما في الشيت الثاني بحيث تكون جداول الطلاب متتاليه في شيت واحد ليتسنى لي لاحقا طباعتها او حفظها كملف واحد "PDF" اذا امكن عن طريق المعادلات لاني غير خبير في البرمجه vba 😊 (ملاحظه عدد المواد يختلف احيانا من طالب لاخر حيث البعض لديه 5 مواد والاخر ثلاث او اريع) جداول الطلاب 1441.xlsx

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

السلام عليكم الكود التالي كود يقرب الاعداد باستخدام الدالة Math.Round انا اريد الدالة التي تقرب العدر للعدر الاعلى يعني لوعندي 2.1 يرقيه للعدد 3 كود باستخدام محرر فيجوال بالاكسل Me.TextBox3.Text = Math.Round(Val(TextBox1.Text) - Val(TextBox2.Text)) استخدمت RoundUP وما كان في نتيجه

وعليكم السلام-على الرغم ان هذه المشاركة مخالفة لتعاليم ومبادىذ المنتدى -لأننا تقوم بالتنيه مئات المرات انه لا تكتمل المشاركة الا برفع ملف مدعوم بشرح كافى عن المطلوب والا سوف تحذف مشاركتك لأن هذا يعتبر اهدار للوقت كما انه لا يمكن العمل دائما على التخمين ولكن سأخبرك عن طلبك فلو افترضنا ان الرقم القومى موجود بالخلية A2 وتريد الفصل مثلا بالخلية B2 فتكون المعادلة كالتالى =RIGHT(A2,7)