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

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

السلام عليكم شوف نكدر بواسطة ذاك الكود بنعمل اي اطار مربعات ما نريد وتكدر تتغير بكيفكم Database2.rar

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

للفائدة اخوتي الكرام التقويم الهجري تقويم أم القرى

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

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

::: تحية للاخ شيفان ...هل فهمت طلبك ؟ 003-1.rar

بسم الله الرحمن الرحيم السلام عليكم وجدنا حاجه لعدد من الاخوه الاعضاء في هذا المنتدى الرائع الى هذا الموضوع المهم قرننا ان نخوض فيه والابواب مشرعه للاساتذه الكرام للاستئناس بارائهم القيمه وبنيه خالصه لوجه الله تعالى فهو حسبنا وثواب هذا العمل مهدي روح معلمنا الاول والدنا رحمه الله -ونسال الله ان يغفر لنا ولوالدينا وللمؤمنين جمعا وبعد تاخرنا في طرح الموضوع بسب كبر حجم الفديوات مما اضطرنا الى رفعها على اليوتيوب لتعم الفائدة بمرور الزمن ازدادت الحاجه الى قواعد بيانات قويه وكفوءه وذات امان عالي ومساحات خزنيه كبيره نظام الاكسس نظام قواعد بيانات ممتاز وذو كفائه عاليه للاستخدامات الصغير والمتوسط ويمتاز الاكسس برخص الثمن وسهولة الاستخدام وذلك بسبب كثرة الكتب التي تختص فيه وكثرة المواقع والمنتديات التي تقدم الحلول والمشوره اهم مشاكل الاكسس 1- قاعدة بيانات الاكسس مبنية على ملف اي تحفظ جميع بيانات القاعدة في ملفات مستقلة لها.عند حذف هذا الملفات تحذف قاعدة البيانات مع جميع البيانات 2- عدم توفر الامان العالي اذا ما قورن ببقيه نظم قواعد البيانات 3- ان استخدام قاعدة البيانات من قبل اكثر من مستخدم يؤدي الى ضغط كبير على محركات النظام عند استخذامه على الشبكه 4- احد اهم المشاكل في استخدام الاكسس على الشبكه عدم تمكين اكثر من مستخدم من فتح نموذج ادخال واحد في نفس الوقت 5- محدودية عدد المستخدمين فهي لا تتجاوز ال10 مستخدمين على الشكبة اذا كان الاكسس مرفوع على شبكة 6- محدودية المساحه الخزنيه للبيانات في الاكسس فهي لا تصل الى 2 كيكا بت بضمنها مكونات قاعدة البيانات بعد ان برزت الحاجه الى مساحات خزنيه اكبر خصوصا مع تقادم المشروع وتوسعه اما SQL Server فقد غطى على هذه العيوب، بل اضاف مميزات اخرى نظام متكامل لادارة قواعد البيانات يعمل في الخلفية ويعتمد على خادم وعميل فجميع البيانات تخزن في الخادم وهذا يعطي امان عالي للبيانات من الضياع ونظام الامان العالي جدا والمساحه الخزنيه العاليه وعدم محدودية المستخدمين وكذلك باستطاعته احتواء اكثر من قاعدة بيانات واحدة. وكل قاعدة بيانات تحتوي على جداول مختلفه وعمل مختلف والعمل بكفائه عاليه مع الشبكات سواء الداخليه او عبر الانترنيت وهناك مميزات اخرى ومن عيوبه بعض الصعوبات في استخدامه لا يمكن بناء قاعدة بيانات متكاملة لا بمساعدة بعض البرامج ومنها الاكسس والكرستال وغيرها وللحصول على مميزات الاكسس والتتخلص من عيوبه توجد ثلاث طرق لعمل ذلك 1- تحويل الاكسس الى مشروع Access ويتم بتكبيرحجم جميع مفردات قاعدة البيانات وهذه العمليه معقده وتحتاج الى تغيرات جوهريه في قاعدة البيانات 2. تكبير حجم البيانات من قاعدة بيانات Access إلى قاعدة بيانات SQL 3 – العمل بالنهاية الاماميه والنهاية الخلفيه النوع الثالث سوف نتطرق اليه بشيء من التفصيل ونعمل على شرحه للسهوله التي يتمتع بها والذي لا يجعلنا نتخلى عن ال Access حيث ستكون فقط الجداول في SQL Server وبقية مفردات قاعدة البيانات من نماذج واستعلامات وتقارير ومايكروات ووحدات نمطية في Access متطلبات العمل 1- نحتاج الى مساحه مناسبه من القرص الصلب الذي سوف نركب SQL Server عليها 2- عمل حسابات للمستخدمين للوندوز وبرقم سري 3- نسخة من SQL Server المجانية SQL server Expres لعمل سيرفر http://www.microsoft...s.aspx?id=29062 4- نسخة من SQL server Management studio للتحكم بالسيرفر 5- عمل اتصال odbc 6- قاعدة بيانات Access فارغة ا- تركيب ال SQL server Express الفديو يوضح ذلك https://www.youtube.com/watch?v=03AYKVSsjII ب- تركيب ال SQL server Management studio https://www.youtube.com/watch?v=STSADB1BAXo ج- عمل قاعدة بيانات على SQL server فارغه وبنفس اسم قاعدة Access والاسم ليس ضروري ان يكون نفسه ولكن للاستدلال على القاعدة لان SQL server ممكن ان يحتوي على اكثر من قاعدة بيانات https://www.youtube.com/watch?v=89p9M9ZE6nw

هنا قاعدة بيانات اكواد VBA للاكسل مع الشرح والامثلة ((( مرجع للجميع ))) السلام عليكم ورحمة الله وبركاته الفكر من الموضوع عمل قاعدة بيانات باكواد VBA للاكسل مع الشرح والامثلة ((( تكون مرجع للجميع ))) امل من الجميع اثراء الموضوع ....

السلام عليكم ورحمة الله وبركاته رمضان كريم وأن شاء الله يعاد علينا بالبهجة والفرح على الأمة الاسلامية من فترة شهر تقريباً اتصل بي أحد الأصدقاء يعمل محاسب في احدى الشركات البسيطة والصغيرة في مجال الصرافة المالية الخاصة يريد برنامج بسيط على اكسيل في مجال الصرافة فقمت بتصميم وبرمجة برنامج مخصص له يوجد فيه الآتي: 1- فواتير شراء 2- فواتير مبيع 3- أيصالات قبض 4- ايصالات دفع 5- دفتر اليومية 6- كشف حساب 7- الميزانية والأرباح والخسائر البرانامج يعتمد السهولة والبساطة في نفس الوقت في العمل والبرنامج أساسا في قيد التجريب والتطوير وناقص فيه أشياء كثيرة من الأشياء الناقصة تعديل فاتورة لكن فكرته تعتمد على المحاسبة النظرية والعلمية وليس المحاسبة العملية فأحببت أن أفيدكم فيه لأنه صراحة بحثت كثيراً في المواقع ولم أجد برنامج خاص للصرافة المالية في إكسل وفي نفس الوقت مجاني فأرجو أن شاء الله أن ينال إعجابكم ويكون طريقاً في الخير وإذا كان الموضوع يستحق التثبيت يرجى تثبيته لتحقيق أكبر فائدة ممكنة للمستخدمين والسلام عليكم أخوكم في الله أنس دروبي الرقم السري لألغاء الحماية anas ‫‫منظومة الصرافة.rar

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

::: تفضل ان كنت فهمت مرادك .. بالتوفيق .... تحية للاستاذ شفان. 003-2.rar

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

السلام عليكم ورحمة الله وبركاتة مرفق المطلوب الملف المرفق : القامات2.rar

السلام عليكم ورحمة الله وبركاتة تحية طيبة وبعد مرفق لكم الملف بالمطلوب الرجاء العلم انني قمت بوضع ارقام وهمية في Range B12:B16 and Range C12:C16 الملف المرفق : القامات2.rar

نعم لكن كيف تضع في الجدول اسماء الموظفين ال 5000 هل عندك طريقة ! او تريد لنا الحل بعد مشاركتك راح انطيك الطريقة

نعم استخدم هذا الكود Dim i As Integer Dim co As Integer co = DCount("*", "[qe]") DoCmd.GoToRecord , , acFirst For i = 0 To co - 1 DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE ÇáÑÆíÓí SET ÇáÑÆíÓí.ÇáÑÊÈÉ = [Forms]![Frm2]![Text3] WHERE (((ÇáÑÆíÓí.[ÑÞã ãÚÑÝ])=[Forms]![Frm2]![ÑÞã ãÚÑÝ]))" DoCmd.SetWarnings True DoCmd.RefreshRecord DoCmd.GoToRecord , , acNext Next استعلام تحديث.rar

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

له 27 سنة من عام (1990 الى 2017) × 50 = 1350 له شهرين له 4.16 × 2 = 8.32 14 يوم له 2.08 اي 2 شهر و 14 يوم = 10.40 له 03 ايام في ديسمبر عام 1989 اي مجموع = 1350 + 10.40 + 3 = 1363.40 الان ما تريد هل تريد ان يكون النتيجة بيكون كم هل 1353 ام 1363.40 ام تقريب الى الاسفل اي 1363 اي تقريب الى الاعلى اي 1364 اختار اي نتيجة وان شاء الله راح انطيك الكود

اللهم بارك في سليم حاصبيا وجازه عني خيراً اللهم بارك في سليم حاصبيا وجازه عني خيراً اللهم بارك في سليم حاصبيا وجازه عني خيراً اللهم بارك في سليم حاصبيا وجازه عني خيراً اللهم بارك في سليم حاصبيا وجازه عني خيراً اللهم بارك في سليم حاصبيا وجازه عني خيراً ************************************ الأستاذ عوض ممكن توضيح أكثر لطريقتك

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

في الخليةC2هذه المعادلة , واسحب نزولاً =IF(ISNUMBER(D2),D2,"") في الخليةB2هذه المعادلة , واسحب نزولاً =IF(ISTEXT(D2),D2,"")

::: ما شاء الله موضوع جميل وغني بالمعلومات .. وقرب الصورة لي بشكل كبير ..شكرا لك اخي ابا جود ((استاذ رمهان)) .

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

اخي الكريم لكي تطرح استفسار لا بد ان يكون بموضوع جديد ومن خلال ايقونة "اضف موضوع جديد" بالتوفيق

الان فهمت معناته فكرة الاستاذ شيفان هي الاقرب وهذا مثال للاستاذ ابو عارف تحياتي

الصق هذه المعادلة في الخلية H3 واسحب يساراً ثم الى الاسفل =SUMPRODUCT($D$3:$D$12,--(MONTH($C$3:$C$12)=COLUMNS($A$1:A1)+1),--($B$3:$B$12=$G3))

في هذه الحالة اليك هذا الماكرو Sub transfer_with_ٍSalim() Dim Sht_Source, Sht_Target As Worksheet Dim lr1, lr2, My_Row, My_Column As Integer Dim My_Name As String, Oldsum Set Sht_Source = Sheets("المكافآة"): Set Sht_Target = Sheets("تجميع المكافآت على مدار العام") lr1 = Sht_Source.Cells(Rows.Count, 1).End(3).Row lr2 = Sht_Target.Cells(Rows.Count, 1).End(3).Row My_Column = Application.Match(Sht_Source.Range("d2"), Sht_Target.Range("c4:n4"), 0) + 2 For i = 5 To lr1 My_Name = Sht_Source.Range("b" & i).Value My_Row = Application.Match(My_Name, Sht_Target.Range("b5:b" & lr2), 0) + 4 Oldsum = Sht_Target.Cells(My_Row, My_Column) If IsNumeric(Sht_Source.Cells(i, 3)) And IsNumeric(Oldsum) _ Then Sht_Target.Cells(My_Row, My_Column) = Oldsum + Sht_Source.Cells(i, 3) Next End Sub

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

جرب المرفق ex1 salim.rar

الأخ الكريم السلام عليكم ضع المعادلة التالية فى الخلية L5 واسحبها نزولا =IF(OR([@[المسئول عن الشحنة]]="أبو مروان";[@[المسئول عن الشحنة]]="أبو شاكر")=TRUE;[@[Net Profit]]*33%;IF([@[المسئول عن الشحنة]]="أبو مروان";[@[Net Profit]]*20%))

اعمل استعلام تحديث واختر حقلين الاسم و الرتبه وفي حقل الاسم وفي خانة الشروط اكتب = forms!frm1!myname frm1 غيره باسم نموذج اللي تريد تعمل تحديث الرتبه بواسطته myname غير باسم مربع نصي في نموژج تحياتي

انت طبقت الكود بشكل ممتاز وكان يعمل جيدا واتفضل اليك حل تاني بواسطة كومبوبوكس وايضا حل اخر اللي انت طلبت بواسطة نموذج اخر عند الكليك على الرقم نموذج الفرعي اتفضل اليك قاعدة بياناتك بعد التعديل لكن للاسف ما اكدر ان اقصر الكود الى سطر واحد لان كل مربع نصي يحتاج لسطر تحياتي TEST (1).rar

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

السلام عليكم قبل ان ابدي بالمشاركة اقول الاستاذ سيد استاذ حتى في طرح الاستفسار فهنا علمنا كيف تكون البدايه الصحيحه . ليس من الصح ان ابدا بتصميم عمل ما ثم اطرح السؤال . اخذ اراء الاعضاء سيكون على ورق لدى الاستاذ السيد ونحن متاكدين بان لديه افكار ولكن مشاركة الاعضاء وكفريق عمل مهم جدا في البدايه اعجبت كثيرا بتوقيت طرح الاستفسار ومضمونه . وهنا وقبل ان اشرككم اخي الاستاذ السيد اطرح بعض النقاط وعلى شكل استفسارات 1. كيف العلاقة بين الاصناف والفاتورة(تفاصيل الفاتورة) هل الربط راس لاطراف برقم الصنف 2. هل تفاصيل الفاتوره بها اسم الصنف ام فقط رقم الصنف والاسم ياخذه من الاصناف 3. سعر البيع هل هو بنفاصيل الفاتورة ام يؤخذ من جدول الاصناف تحياتي

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

غير خاصية النموذج داتا انتري الى نعم شوف الصور

جرب التعديل في زر الحفظ DoCmd.RunCommand acCmdRecordsGoToNew بدلا من DoCmd.RunCommand acCmdSaveRecord بالتوفيق

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

هناك اريد اسألك ماذا عن العميل اللي بيعمل نقدا مثلا اي به ريكورد لكن نوع المستند غير "اجل اي نقدا او اي نوع الاخر هل نحذفه او لا رجاءا رد علي بسرعة لاني عندي 20 دقيقة فقط والا ساجيبك في يوم السبت بالعصر

تم التعدبل مجدداً لا يتغير شيئ في البيانات المسجلة مسبقاً My_Project salim5.rar

اتفضل كما تريد Picture (1).rar

المرة هذي لن اقول تعجبني ردودك ! ولكن من الآن لعل ردودنا نحن التي تعجبك استاذ ابا عارف ! بل عرفنا ان ابا عارف هو الاستاذ كنعان ! واسمح لي ان الخص مفاتيح الحل : 1. فكرة سرد النماذج الفرعية وبنفس اللون للنموذج الرئيسي 2.استخدام العد الافتراضي في الاستعلام ! 3. تغيير خصائص مربع النص ليبدو زر امر ووضع خاصية زر الامر شفاف ووضعه فوق مربع النص تلك المفاتيح هي حل لمشكلة واجهتنا كثيرا ! واتحدى انه تم التطرق لهذا في جميع المنتديات العربية ! لا اخفيك استاذ ابا عارف انني قد شاركت بمفتاح رقم 3 في موقع الفريق العربي للبرمجة ! هذا ومازالت الفكرة تحتاج لللتطوير حيث يتوقف العدد 3 نماذج فرعية لتكفي 30 صنفا واذا زاد فتحتاج الى اضافة نموذج فرعي رابع وهذا لابد من تدخل المبرمج ! لدي فكرة من زمان وساحاول تنفيذها ولكن اتمنى ان تفتح الادارة موضوع ينقل له هذا المرفق وبعد اذن الاخ حسين الفاضل ويكون عنوانه نقاط بيع بالاكسس ويشارك فيه الاخوة جميعا ! كما انه لو اردنا ان تكون التصنيف ازرار امر وكذلك الاصناف ! تحياتي للجميع !

ما شاء الله ، 6 مشاركات وانتوا تتكلموا عني ، وانا مافي الدنيا خلوني اجيب بخور اتبخر فيه وشاكر جميل كلماتك أخي ابوعارف جعفر

أخي الكريم محمود أهلا بك في المنتدى يرجى تغيير اسم الظهور للغة العربية يرجى الاطلاع على رابط التوجيهات http://www.officena.net/ib/index.php?showtopic=60147 شوف الفيديو التالي عله يفيدك في حل المشكلة

الاخوة الزملاء فى هذا الصرح العظيم اقدم لكم شرح مبسط عن msgbox فى لغة البرمجه VBA فى البداية كلنا نتفق ان اى عمل فى الاكواد يتطلب فى اغلب الاحيان وجود رساله تحذيرية للمستخدم او رساله معلوماتية او رسالة فى صيغه سؤال الرساله عبارة عن 3 أجزاء وهى كالتالى "title عنوان الرساله",BUTTONS الازرار,"text نص الرساله " msgbox نلاحظ ان ما بين كل جزء يوجد هذه العلامه ( , ) وتكتب من خلال الضغط على shift+حرف و بالعربى اولا نقوم بشرح الجزء الاول من الرساله وهو "نص الرساله " نقوم بفتح محرر الاكواد من خلال ALT+F11 ُم ادارج مودويل جديد للعمل علية اول نوع من الرسائل هى النوع العادى مثال 1 لو حبينا نعمل رساله ونكتب فيها ( كلنا بنحب أوفيسنا ) اول شئ نعمل ادراج مودويل جديد ونكتب فيه الكود التالى Sub hossam() MsgBox "كلنا بنحب أوفيسنا" End Sub نلاحظ فى الكود ان فى ثلاثة اسطر السطر الاول وهو اسم الكود وهو هنا اسمه Hossam ويمكن تغيير الى اى اسم تحبه انت الثانى وهو الكود الذى يتم تنفيذه وفى المثال السابق هو تنفيذ رساله كلنا بنحب اوفيسنا (كيف يتم كتابة الرساله) msgbox ثم "الرساله" نلاحظ ان الرساله بين علامتين تنصيص اى الضغط على shift+حرف ط بالعربى من لوحه المفاتيح لو رجعنا الى قمنا باغلاق محرر الاكواد ورجعنا الى ورقة العمل 1 من زر Developer بشريط القوائم الضغط على اول زر فوق ناحية اليسار ثم رسم الزر على ورقة العمل ستظهر لك قائمة بها كل الاكواد التى قمت بعملها اختار منها كما هو بالمثال hossam لو قمنا بالضغط على هذا الزر ستظهر لنا الرساله التالية مثال 2 عمل رساله من شقين شق ثابت وهو الرساله وشق متغير مثلا "عدد الطلبه فى الفصل الاول" & ( الرقم بالخلية A1 ) يكون الكود كالتالى Sub hossam() MsgBox "عدد الطلبه فى الفصل الاول " & Range("A1").Value End Sub وهنا نلاحظ ان بعد الانتهاء من الرساله وضعنا علامه & ثم Range("A1").Value اى الرقم اللى موجود بالخلية A1 وهو كما هو بالصورة 15 عند الرجوع الى ورقة العمل والضغط على الزر ستظهر لنا الرساله كما هو مبين بالصورة مثال 3 نريد عمل رساله فى سطرين يكون الكود كالتالى Sub hossam() MsgBox "عدد الطلبة فى الفصل الاول " & Range("A1").Value & vbNewLine & "عدد الطلبة فى الفصل الثانى" & Range("A2").Value End Sub نلاحظ هنا هذا هوالجزء الاول من الرسالة Range("A1").Value & "عدد الطلبة فى الفصل الاول " MsgBox نفس الكود السابق ثم علامة & vbNewLine & أى عمل سطر جديد ثم السطر الثانى من الرساله Range("A2").Value & "عدد الطلبة فى الفصل الثانى" MsgBox وعند الرجوع الى ورقة العمل والضغط على زر الكود ستظهر الرساله التالية كما موضح بالصورة الحمد لله انتهينا من الجزء الاول وهو نص الرساله وعرفنا انى ممكن يكون نص ثابت كما هو بالمثال الاول وممكن يكون جزء ثابت وجزء متغير كما هو بالمثال 2 وممكن يكون جزء ثابت ومتغير اكثر من مره على سطرين كما بالمثال 3 ثانيا: نقوم بشرح الجزء الثانى من الرساله وهو BUTTONS الازرار BUTTONS الازرار,"text نص الرساله " msgbox قبل ان نبداء بشرح هذا الجزء ننظر الى الصورة التالية شكل الزر رقمه الاسم فى اول مثال من الشرح وهو عمل رساله ثابته "كلنا بنحب أوفيسنا" فاذا اردنا عمل رساله "هل تحب أوفيسنا " هنا صيغة سؤال اى يوجد له اجابة اما نعم او لا اذن لابد من وجود ازرار فلو حبينا نعمل كود يكون كالتالى Sub hossam() MsgBox "هل تحب أوفيسنا ؟", vbYesNo End Sub وعند الرجوع الى ورقة العمل والضغط على زر الكود ستظهر الصورة التالية كما موضح بالصورة كما يمكن ايضا كتابة الكود بتلك الطريقه وهى استبدال vbYesNo بالرقم 4 كما هو موضح بالجدول اعلاه ويكون الكود كالتالى Sub hossam() msgbox "هل تحب منتدى اوفيسنا؟",4 End Sub

عمل جميل جدا .. جزيت خيرا ولتكون الاستفادة اكثر تم تحويل المرفق الى صيغة mdb ممنوع حقل فارغ.rar

و عليكم السلام و رحمة الله وبركاته بعد الشكر الجزيل لأخي ريان اخي ابو مهند جرب الرابط ده ايضا قد تجد به ماتريد http://www.officena.net/ib/index.php?showtopic=37265&p=199421