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

السلام عليكم 🙂 اخواني ، ماشاء الله هذا المنتدى معطاء ويكشف معدن وجوهر الأعضاء من اجاباتهم ومساعدتهم لإخوانهم الأعضاء الآخرين 🙂 يشرفني اليوم ان اهنئ انفسنا باكتشافنا تألق اخونا @محمد ابوعبد الله واخونا @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 كإسم المشروع هنا : . جعفر

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

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

تم اضافة ماكرو للعمل على صفحة المطلوب 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

بالتوفيق اخي الكريم ولك جزيل الشكر تحياتي

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

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

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

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

جرب هذا الماكرو 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 على هذا المثال .. هكذا تعودتنا بعطائك وخيرك الذي لا ينقطع بارك الله فيك .. وجزاك الله عني خير

السلام عليكم ورحمة الله تم تطويع وتكييف كود طباعة إلى PDF من المنتدى (لأحد الإخوة الكرام لا أتذكره) على ملفك حتى يتم طباعة كل الشهادات (كل شهادة في صفحة A4 -باتجاه عرضي Landscape-) في ملف PDF بالتسمية "الشهادات.pdf" في مجلد backup يتم إنشاؤه تلقائيا في نفس موقع الملف الذي يتم العمل عليه... أرجو أن تفي هذه التعديلات الغرض المطلوب... بن علية حاجي المصنف2.xlsm

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

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

أستاذي الفاضل @محمدنجار شكراً لك على التهنئة وان شاء الله اكون عند حسن ظنكم .. تم تفعيل نسختك

شكراً لكم على هذا الدعم المعنوي الكبير

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

الف الف مبروك استاذنا @محمد ابوعبد الله واستاذنا @sandanet والى الامام دائما باذن الله 🌷🌷

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

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

السلام عليكم ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=Environ("USERPROFILE") & "\Desktop\" & ID & ".Pdf", _ IgnorePrintAreas:=False, _ Openafterpublish:=False

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

استاذ @سلمان الشهراني تم تفعيل نسختك

ماشاء الله تبارك الله ابداع

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

انا لا افهم ما لزوم الحلقات التكرارية في الكود وهي التي تجعل الملف ثقيلاُ (2000 حلقة) يكفي هذا الماكرو Sub SALIM() Application.ScreenUpdating = False Dim ws As Worksheet Set ws = Worksheets("min") Dim Ro_D%, Ro_A% Ro_D = Cells(Rows.Count, "D").End(3).Row Ro_A = Cells(Rows.Count, "A").End(3).Row With ws .Range("g:f").ClearContents .Cells(2, "f").Resize(Ro_D - 1).Formula = _ "=INDEX($J$2:$J$2000,MATCH(D2,$I$2:$I$2000,0))" .Cells(2, "G").Resize(Ro_A - 1).Formula = _ "=INDEX($Q$1:$Q$6,MATCH(A2,$P$1:$P$6,0))" .Range("g:f").Value = .Range("g:f").Value End With Application.ScreenUpdating = True End Sub

وعليكم السلام-بالله عليكم انتبه لهذا الموضوع جدا فقد نبهنا فى العديد من المرات عليكم بإستخدام خاصية البحث فى المنتدى قبل رفع المشاركات فالمنتدى به كنوز وحتى تتفرغ الأساتذة للإجابة على اسئلة مختلفة لم ترد بالمنتدى لعدم اهدار الوقت تفضل به طلبك https://www.officena.net/ib/topic/98306-ترحيل-خليه-محدده-بدون-التنسيق-مع-مسح-المرحل/

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

ماشاء الله عليك استاذ @kaser906 مثال جميل ورائع .. اخي الـ @qathi هل شاهدت مثال الاخ الكاسر؟

السلام عليكم 🙂 هذا ناتج عن خطأ من مايكروسوفت في احد تحديثاتها الاخيرة ، والحل هنا : جعفر

اخى ووالدى العزيز ابويوسف نورت قسم الاكسيس واسال الله ان يشفى لك ولدك شفاء لا يغادر سقما

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

اليك الملف ترحيل الفاتورة فاتورة جديدة7.xls

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي وزوار المنتدي الكرام عندي قاعدة بيانات علي سيرفر واريد ربط قاعدة البيانات الموجود علي السرفر باكسس 2007 حاولت بكل الطرق من خلال odbc وعن طريق الكود هذا If AttachDSNLessTable("send", "send", "128.122.1.160", "aboarby", "Administrator", "Passw0rd") Then MsgBox "Êã ÇäÔÇÁ ÇáÇÊÕÇá " DoCmd.Requery Else MsgBox "ÍÏË ÎØÇ Ýì ÇäÔÇÁ ÇáÇÊÕÇá " End If ولم يفلح الامر للعلم القاعدة مصممه ب sql server 2008 وانا اريط ان اربطها من خلال جهازي الشخصي عن طريق شبكة داخلية