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

السلام عليكم ورحمة الله وبركاته في أحد المشاريع التي قمت بها ، كنت محتاج الى برنامج خارجي ليقوم ببعض المهام للمشروع ، فالطريقة المعتادة التي نستعملها هي ، وضع البرنامج هذا داخل احد مجلدات المجلد الرئيسي لقاعدة البيانات ، وبما ان فقدان/حذف هذا البرنامج يجعل المشروع عاجز عن العمل ، لم يكن عندي خيار ، سوى ان اجعل هذا البرنامج داخل قاعدة البيانات ، بطريقة تسمى Blob المرفق فيه هذه الملفات: . النموذج frm_Blob مهم في انه يسمح لك بوضع برامجك في قاعدة البيانات بسهولة ، والزر الاخر هو لتصدير هذا البرنامج الى اي مجلد في الكمبيوتر (لعمل التجارب مثلا) ، وقد وضعت برنامجين في قاعدة البيانات المرفقة: 1. pdftk.exe والذي يقوم بالعديد من العمليات لملفات الـ pdf ، 2. Arc5_S_BE.mdb ، وهي قاعدة بيانات فاضية ، وبها جداول مؤقته ، فبدل ان اعمل هذه الجداول المؤقته داخل قاعدة بياناتي ، ويكبر حجمها ، رأيت ان استعمل جداول خارجية ، وعند اغلاق البرنامج ، كنت اقوم بحذفها من المجلد: . لعمل البرنامج الاول ، استخدم الزر رقم 1 ، والذي سيصدر البرنامج pdftk.exe الى مجلد قاعدة البيانات ، ثم سيدمج الملفين a.pdf و b.pdf ويحفظ النتيجة في ملف ab.pdf ، ويفتحه ، بينما الزر رقم 2 ، سيصدر قاعدة البيانات Arc5_S_BE.mdb الى المجلد الرئيسي لقاعدة بياناتنا: . عند الضغط على الزر 1 ، سنرى هذه الملفات في المجلد الرئيسي لقاعدة البيانات: . ان شاء الله يكون فيه فائدة للجميع جعفر Blob.zip

تفضل اخي لعله المطلوب وتم وضع زر لضبط التواريخ القديمة لعله يفي بالغرض 88.rar

تسلية بسيطة للتفقيط باستخدام المعادلات ولكم مني جزيل الشكر تجربة تفقيط.rar

شريط تحميل - Progress Bar بشكل جديد ☺ علم مصر - كل واحد يفنن بمزاجه ☺ علم مصر.rar 2علم مصر.rar

السلام عليكم أستاذى / ابو البراء .. فعلاً بدون مجاملة .. دائماً موضوعات حضرتك تمثل لى إضافه . جزاك الله عنا خيراً واسمح لى ان اضيف :- بدلاً من الخيار Printout ومن ثم الطباعة دون معاينه .. او الخيار Print Preview ومن ثم ظهور قائمه خيارات الطباعه فى كل مرة يتم الضغط على Print الكود التالى يجمع بينهما ... .PrintOut , , , True تقبلوا خالص احترامى وتقديرى

تمام

السّلام عليكم و رحمة الله و بركاته الأخوان " الياسران " الفاضلان و القديران : ياسر خليل أبو البراء ياسر العربي بارك الله فيكما و لكما للإثراء .. أخي الكريم " صلاح المصري " هذا رابط أوفيس 2013 نسخة عربية .. إحتراماتي http://www.4shared.com/rar/ZmXWIq5Xce/OFFICE_2013_arabe.html

بعد اذن حبيبي الغالي جرب الطريقة دي وبلغني

جرب هذا الشيء تكرار salim.rar

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

وعليكم السلام ورحمة الله الله لا يحرمنا من حلولك الرائعة أخونا الكريم جعفر أتمنى أن تطلع أيضا على هذه الفكرة وتقيمها Test Combo.rar

السلام عليكم اخى الكريم اليك المعادلة التالية كأحد الطرق .. لا يشترط ترتيب الرقم الاكبر والاصغر فى الخلايا E15:F15 .. =AND(MAX($E$15:$F$15)-C5>=0;C5-MIN($E$15:$F$15)>=0)*1 حراثي 1.rar

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

..... شاهدوا المرفق أخوكم عماد الحسامي

السلام عليكم ورحمة الله وبركاته هدفيه للعاملين بالكنترولات المدرسيه ...... _ سجلات اعمال الكنترول كامله ... _ توزيع الملاحظين اليا على اللجان .... مع تحياتى ....

اسطوانة تحفيظ القران الكريم لكم ولاولادكم واحفادكم الجذء الثلاثون بصوت الشيخ محمد صديق المنشاوى وبصوت طفل يردد وراءه ويمكن تكرار الاية للحفظ وفيديو دعاء ختم القران من الحرم على الرابط التالىhttp://yonis.arab.st/t26-topic#29ملحوظة : سجل بالمنتدى لتحميل الاسطوانة وهى على 4 روابط مضغوطة يتم تحميلها فى فولدر ثم فك الضغط بعد اكتمال تحميل 4 أجزاء الاسطوانة هدية للمنتدى نتمنى الدعاء لنا بالخير الجزء 29 تبارك فى تكملة الموضوع الجزء 28 قد سمع الجزء 27 قال فما خطبكم هدية اخرى للسادة الزملاء اسطوانة برامج بها اوفيس 2003 و 2010 عربى لحين رفع باقى اجزاء تحفيظ القران الكريم الجزء 26 الجزء 25 مسابقة دينية

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

السلام عليكم استاذى واخى الحبيب / عبد العزيز البسكرى يعجز الكلام عن التعبير عن مدى امتنانى لحضرتك ..كلام طيب ..دعاء لوالدتى رحمها الله لا يسعنى سوى شكر الظروف التى جمعتنى بكم اخى الكريم .. جزاك الله خيراً ..وأسال الله ان يوفقنا جميعاً لما فيه الخير بالنسبه للكود .. هو يتخطى وفقط ظهور نافذه خيارات الطباعه عند الضغط على Print اثناء المعاينه Sub PrintAll() Dim iStart As Integer, iEnd As Integer, I As Integer iStart = Feuil1.Range("J7").Value iEnd = Feuil1.Range("L7").Value For I = iStart To iEnd Feuil1.Range("I3").Value = I Feuil1.PrintOut Preview:=True Next I End Sub خالص حبى وتقديرى لك اخى واستاذى الحبيب عبد العزيز ولاستاذى ابو البراء ولكل اعضاء المنتدى الماس

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

نسيت أخي الكريم إذا كنتُ قد وضعت مع الأوفيس أداة التّفعيل أم لا .. على كل حال إذا لم تجدها بعد التّحميل إستعمل هذه الأداة إحتراماتي KMS PICO 9.0.5.20131112.rar

بارك الله فيكما و جزاكما الله خير الجزاء فعلاً إفتقدنا لأبي يوسف كثيرًا أدعو الله أن يعود بأقرب الآجال إن شاء الله

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

1. نعم ربط جداول (لا تنسى اني اتكلم عن جداول مؤقته) ، واعتقد بأني كنت اربطه برمجيا ، وذلك بسبب اختلاف مسار مجلد الكمبيوتر المؤقت من مستخدم الى آخر ، 2. البرنامج كاملا كان "لإدارة بلا ورق" ، فقد قمنا بعمل ارشفة ضوئية Scan لجميع الملفات و المراسلات والعقود السابقة ، وكانت هذه الجزئية (على ما اعتقد) لحساب عدد الملفات الممسوحة ضوئيا ، والتأكد من عدد صفحات كل ملف ، ثم ارساله الملفات واحدا بعد الاخر الى برنامج Abbyy FineReader والذي في اعتقادي بعد التجربة انه الافضل (العمل كان على ملفات باللغة الانجليزية ، ولكن الشركة عندها نسخة للنصوص العربية الآن) ، لتحويل الصور الى نص ، ومن ثم التأكد من ان عدد الصفحات هي نفسها ، وإلا فنرسل الملف الى مجلد آخر للتأكد والعمل عليه يدويا ، وينتهي عمل هذه الجداول جعفر

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

أخي الكريم جرب الكود التالي Sub PrintAll() Dim iStart As Integer, iEnd As Integer, I As Integer iStart = Feuil1.Range("J7").Value iEnd = Feuil1.Range("L7").Value For I = iStart To iEnd Feuil1.Range("I3").Value = I Feuil1.PrintPreview Next I End Sub

هلا والله بأخوي رمهان ، سواء كنت مشغول او فاضي حبتين انا اعمل على اوفيس 2010 وشغال عندي البرنامج ، فما عندي فكرة ليش ما اشتغل على 2013 ، وبما ان البرنامج قديم من 2009 ، فما اردت ان احوله الى صيغة الاكسس الجديدة ، وتركته بصيغة mdb لتعم الفائدة ، ولك نسخة مرفقة بصيغة accdb 1. هي مجموعة اسباب جعلتني اقوم بهذه الطريقة انا ارفقت زبدة البرنامج ، ولم ارفق صلاحيات المستخدمين ، فلا يملك صلاحية الوصول الى نموذج ادخال Blob إلا اشخاص معينين ، لذا فلا يوجد تخوف من حذف السجل ، وبما ان البرنامج سيكون على شبكة ، ولا يرى المستخدم الجداول ، فلا تخوف من هذه الناحية كذلك ، اما اذا البرنامج ، والشبكة كانوا في يد المستخدمين/المخربين ، فعلى كل البرنامج وبرامج الكمبيوتر السلام 2. حجم حقل OLE هو 1 جيجا ، ولا ادري عن حجم اكبر حجم لـ Blob 3. اذا تمعنت في قاعدة البيانات ، ستجد ان هناك وحدات نمطية لمجلدات الكمبيوتر الاساسية ، ومنها المجلد المؤقت ، وقد كنت استعمل هذا المجلد للعمل ، ولم يكن هناك مشكلة ، ولم يخبرني برنامج المضاد للفيروسات KasperSky بشئ 4. لا وانت الصادق ، هذا كان جزء من احد برنامجي لأحد الجهات الحكومية ، وللعلم وبسبب عدم دراستي/تخصصي للكمبيوتر ، فكل اللي تعلمته كان عملي ، وكل اللي اطرحه في المنتدى هي ممارسات عملية في برامجي ، والمواضيع اللي لست لم اعمل فيها ، فلن ترى لي رد لها 5. الـ Blob ليس كأي عنصر OLE ، لهذا السبب ، تستورده للجدول بكود ، وتصدره للكمبيوتر بكود لا تنسى اني عملت البرنامج هذا في 2009 ، وعملته داخل صيغة mdb ، والسبب اني عملته بهذه الطريقة ، هو بحثي في الانترنت ، وقرأتي عن ميزات وعيوب الطرق المختلفة ، فنعم ، قد يكون كلامك صحيحا عن كائن stream ، ولكن لا علم لي به وشكرا على هذه الاستفسارات ، حتى تعم الفائدة جعفر Blob_accdb.zip

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

السلام عليكم هذه محاولة حدد عمود الفرز ثم حددبداية السطر ثم حدد نهاية السطر اضغط زر الفرز الفرز حسب اللون1.rar

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

تم التعديل غلى الملف ليظهر كل الاسماء حسب البحث دفعة وحدة تعديل احمد عبد الرحمن salim.rar

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

حياك الله اخوي جعفر اليومين هذي فضيت حبتين فاللله يعينك على مداخلاتي البرنامج لم يعمل واعتقد ويتم الاغلاق حيث اعمل على 2013 وبعيد عن البرنامج راح اعلق على الفكرة او بالادق الميجانيزم 1. الفكرة تولدت لخطورة حذف الملف المرفق وهنا الفكرة جعلت الملف المرفق اهم من ملف القاعدة وهذا غير منطقي ! باختصار لو تم حذف ملف القاعدة لذهبت وذهب البرنامج المحمل بل بحذف السجل الحامل للبرنامج >>> كذا حذف البرنامج !!! 2. اعتقد ان هناك حجم محدد لنوع البيانات ole ممايجعل هناك حدود لحجم البرامج المحمله 3. مستحيل ان يكون هذا مسموح في بيئات الاي تي عالية الحماية فهذا بمثابة طريقة لعمل الفيروسات بطرية بدائية 4. لا اعتقد ان الملف قابل للتطبيق العملي بقدر ماهو فكرة مبرمج هاوي قام بتنفذها حاولت دبل كليك على الملف من الجدول مباشرة ولم تفتح معي ! هل هنا به مشكلة ام المفروض طبيعي تفتح زيها زي اي ملف ole ؟ هناك فائدة من المرفق وهي طريقة قراءة الباينري داتا وتخزينها في الجدول من خلال الكود ولكن اصبحت قديمة نوعا ما فاصبح هناك نوع مرفق وهناك كائن stream لمكتبات ال ado اخيرا موضوع تشكر عليه وبالتوفيق

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

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

اذا كان هكذا فهذا اصلا هو التتنسيق standard وكذلك التنسيق currency اذا حب اضافة شكل العملة تحياتي

وعليكم السلام حياك الله 1. احفظ النموذج الفرعي كتقرير ، . 2. اجعل استعلام النموذج هو نفس استعلام التقرير ، 3. اعمل زر في النموذج الرئيسي لطباعة ما تراه في النموذج الفرعي جعفر

أخي العزيز أسامة أبو عمر الملف المرفق حجمه 16 ميجا .. هيكون صعب التعامل مع المرفق بهذا الشكل أفضل إرفاق نموذج بسيط لبعض الملفات للتجربة عليها وإرفاق شكل النتائج المتوقعة .. حتى إذا تم التوصل لطريقة يمكن تطبيقها على الملف الأصلي عموماً إليك الملف المرفق التالي فيه نموذج لكيفية تجميع أوراق العمل المختلفة من كافة المصنفات شوف الملف لعله يكون المطلوب ويؤدي الغرض Collect Or Merge Workbooks.rar

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

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

هلا اخوي جعفر الموضوع بسيط ان شاء الله بس ممكن لم يمر عليك في برامجك لما يكون عندك حقل به مثلا سجلين 0.166 0.331 اجماليهم قبل التنسيق = 0.497 مع انه لو تم النظر لهم بعد التنسيق وبتطبيق المشاركة رقم 6 0.17 0.33 وهذا يوحي للمطلع على الرقمين ان اجماليهم 0.50 وهو ما يختلف عن الاجمالي الحقيقي السابق بالتوفيق

صوموا تصحواجاء الهدي النبوي بآداب يتدبر بها المسلم أمر طعامه وشرابه، وهي علاوة على أنها أضفت على حياته الاجتماعية مسحة جمالية وسلوكية رائعة، نظّم بها الشارع تناول الوجبات وكمياتها وطريقة تناولها، بما يتفق مع ما وصل إليه الطب الوقائي الحديث وعلم الصحة، لا بل سبقه إلى ذلك بقرون عدة، فلا يأكل المسلم حتى يجوع، وإذا أكل لا يصل إلى حدّ التخمة من الشبع؛ وبحسب ابن آدم لقيمات يقمن صلبه ... إلى غير ذلك من الآداب الواردة في المأكل والمشرب.واتفاقاً مع الأهمية الصحية لطريقة تناول الطعام والشراب، وعلاقة ذلك بصحة البدن، فقد حدد نبينا - صلى الله عليه وسلم - الوضعية المثلى للجلوس على الطعام، ونهى عن وضعيات قد ينجم عنها بعض الأذى، كأن يأكل المرء أو يشرب واقفاً أو متكئاً، كما ندب إلى أن يتحدث الإنسان على طعامه لإدخال السرور على المشاركين مما يزيد في إفراز العصارات الهاضمة ويساعد على الاستفادة المثلى من الطعام.ومن الأحاديث التي تدل على إعجاز السنة النبوية في هذا السياق ما رواه المقداد بن معد يكرب عن النبي - صلى الله عليه وسلم - أنه قال: (ما ملأ ابن آدم وعاء شراً من بطنه، بحسب ابن آدم لقيمات يقمن صلبه، فإن كان لابد فاعلاً فثلث لطعامه وثلث لشرابه وثلث لنفسه) رواه الترمذي وحسنه.مراتب الغذاء ثلاثةيقول الإمام ابن القيم: "مراتب الغذاء ثلاثة: أحدها مرتبة الحاجة، والثانية مرتبة الكفاية، الثالث مرتبة الفضيلة، فأخبر - صلى الله عليه وسلم - أنه يكفيه لقيمات يقمن صلبه فلا تسقط قوته ولا تضعف، فإن تجاوزها فليأكل بثلث بطنه، وهذا من أنفع ما للبدن وما للقلب، فإن البطن إذا امتلأ من الطعام ضاق عن الشراب، فإذا أورد عليه الشراب ضاق عن النفس، وعرض عليه الكرب والتعب".ويقول الإمام الغزالي: "ومن مضار الشرَه: اشتداد المعاصي وخاصة الشهوة الجنسية، فإذا منعت التقوى صاحبها من الزنى فلا يملك عينه، فإذا ملك عينه بغض الطرف فلا يملك فكره، فتخطر له الأفكار الرديئة وحديث النفس بأسباب الشهوة، وما يتشوش به مناجاته".وقد اكتشف الطب الحديث أن الجزء العلوي من المعدة هو عبارة عن جيب ممتلئ بالهواء يقع تحت الحجاب الحاجز، وكلما كان ممتلئاً بالهواء كانت حركة الحجاب الحاجز فوقه سهلة وكان التنفس ميسورًا، أما إذا امتلأ هذا الجيب بالطعام والشراب تعرقلت حركة الحجاب الحاجز وكان التنفس صعبًا، كما أن الصلب لا يستقيم تماما إلا إذا كانت حركة المعدة مستريحة، ولا يتم ذلك إذا أُتخِمت بالطعام.جامع أصول الطبوقد أسلم طبيب أمريكي، فلما سُئل عن سبب إسلامه قال: أسلمت بسبب حديث واحد، وآية واحدة، قالوا له: ما الحديث؟ قال: قوله - صلى الله عليه وسلم - : (بحسب ابن آدم لقيمات يقمن صلبه، فإن كان لا محالة فاعلا، فثلث لطعامه، وثلث لشرابه، وثلث لنفسه)، ثم قال معقّبا: هذه أصول الطب، ولو أن الناس نفذوها ما كاد يمرض أحد.ومن طريف ما يُذكر في ذلك أن حوارًا جرى بين طبيب ألماني وصحفي مسلم في إحدى مستشفيات ألمانيا، قال الطبيب الألماني للصحفي المسلم: ما سبب تأخر المسلمين عن الحضارة والنهضة؟ فأجابه الصحفي المسلم - بالهوية فقط - : إن سبب تأخر المسلمين هو الإسلام، ‍‍‍‍فأمسكه الطبيب من يده، وذهب به إلى جدار قد عُلقت عليه لوحة، فقال له: اقرأ الكلمات المكتوبة على هذه اللوحة، فإذا فيها الحديث الشريف الذي يقول فيه النبي - صلى الله عليه وسلم - : (ما ملأ ابن آدم وعاء شراً من بطنه...)، وعند نِهاية الحديث قد كُتب، القائل: محمد بن عبد الله، فقال الطبيب الألماني للصحفي المسلم: أتعرف هذا؟ قال: نعم هذا نبينا، فقال له: نبيكم يقول هذا الكلام العظيم، وأنت تقول: إن سبب تأخركم هو الإسلام!! وختم الألماني الحوار بقوله: للأسف إن جسد محمد عندكم، وتعاليمه عندنا!!وخلاصة ما يذكره الأطباء المتخصصون في ذلك - تصديقا للحديث - أن الإسراف في الطعام هو السبب الحقيقي لمرض السمنة التي تؤدي إلى تصلب الشرايين وأمراض القلب وتشحم الكبد وتكون حصوات المرارة ومرض السكر ودوالي القدمين والجلطة القلبية والروماتزم المفصلي الغضروفي بالركبتين وارتفاع ضغط الدم والأمراض النفسية والآثار الاجتماعية التي يعاني منها البعض، وقد لجأت كثير من المصحات العالمية في الدول الغربية إلى استعمال الصيام كوسيلة فعالة في إنقاص وزن المرضى الذين لا تجدي معهم وسيلة أخرى.

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

أخي الكريم جمال الدين يرجى تغيير اسم الظهور للغة العربية فضلاً لا أمراً جرب الكود التالي لحذف كل أوراق العمل ما عدا الورقة الأولى (حركة الحسابات) والورقة الثانية (Statement) Sub DeleteAllSheetsExceptTwo() Dim Sh As Worksheet Application.DisplayAlerts = False For Each Sh In ThisWorkbook.Sheets If Sh.Name <> Sheet1.Name And Sh.Name <> Sheet2.Name Then Sh.Delete End If Next Sh Application.DisplayAlerts = True End Sub تقبل تحياتي

استاذى الحبيب الله يسلم حضرتك اهاااا حضرتك عرفتى تغيرى الالوان ازاى ؟؟؟؟ للعلم قاعدة البيانات مفتوحة ويتم عرض التصميم عن طريق فتح القاعدة مع الاستمرار فى الضغط على زر الشيفت وباسورد الاكواد officena.net وهذا مرفق أخر مفتوح بدون اى باسوردات وبدون اخفاء اطار الاكسس 3علم مصر.rar

هلا بأخوي رمهان ، عسى ما شر ، نوّرنا بدل هل الوجوه الغاضبة جعفر

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

تفضل تحياتي progressbar.rar

بسم الله الرحمن الرحيم وبه نستعين السادة الزملاء السلام عليكم ورحمته الله وبركاته يطيب لى وبناءا على طلب أخى العزيز الاستاذ الفاضل محمد " ابوالبراء" ان أهدى نجلنا البراء محمد " بارك الله فيه " هذه الاطلاله المتواضعة من العبدالفقيرالى الله تعالى الا وهى شيت مصغر من برنامج مرتبات الساده العاملين بالتربية والتعليم واقصد هنا بعبارة " شيت مصغر" لانه لايحتوى على كافة الاحتمالات القائمة بشأن عملية الصرف لجميع الساده العاملين بالتربية والتعليم دون الخروج على ماينبغى صرفه إلى أن يإذن الله تعالى بأن انتهى من الاصدارالاول من البرنامج الاصلى المطلوب فقط الاتى :- 1- تحديد بيانات الموظف من العمود E2 الى K2 2- تحديد بيانات اساسى المرتب الحالى 2013/7/1 + الـــ 5 علاوات من العمود L2 الى Q2 ملاحظات هامة 1- تم إضافة علاوة الحد الادنى للأجور وفقا للقرار رقم 22 لسنة 2014 بمنشوريه رقم 1 و 2 2- تدخل علاوة الحد الادنى ضمن جملة الاجورالمتغيرة علما بأن الحد الاقصى للأجور المتغرة اعتبارا من 2014/1/1 اصبح 1587.00 جنيها شهريا 3- الحد الاقصى للأجور الاساسية بلغ 987.50 جنيها شهريا جزاكم الله خيرا ..... تقبلوا وافر احترامى

السلام عليكم اولا هذا الكود يعمل على خليه واحده كيف اجعله يمتد من الخليه F1 حتى الخليه F 300 ,ومن G1 الى G300 ثانيا كيف اجعل الخليه تحسب بدون الظغط على انتر يعني تلقائي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F1").Address Then Range("G1").Value = Val(Range("G1")) + Val(Target) End If End Sub

السلام عليكم ضع هذا الكود في موديل الورقة المعنية بالعملية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F7").Address Then Range("G7").Value = Val(Range("G7")) + Val(Target) End If End Sub تحياتي