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

بسم الله الرحمان الرحيم السلام عليكم تكملة لموضوع النص التنبئي على الكمبوبوكس http://www.officena.net/ib/index.php?showtopic=59463 و لمعرفت احد فوائد ذلك الموضوع غالب مايعاني الاشخاص في ادخال اصناف فواتير البيع او الشراء رغم الطرق الكثيرة التي رئيتها لفعل ذلك الا انها تتسم ب: (الركاكة) ان صح التعبير او نقول غير مريحة في الادخالات احسن اقدم لكم اليوم هذته الطريقة التي وحسب رئي الشخصي افضل الطرق للوصول الى هدفنا المتمثلة في نموذج بسيط لفاتورة لكنه يشرح الفكرة بوضوح في الاخير ارجو من الاعضاء تقديم ارائهم و ملاحضاتهم لنطور الموضوع اكثر ونصل الى افضل النتائج معا لرفع المستوى ******************* ملاحظة يوجد ملفان في المرفق احدهما اوفيس 2003 لاكن الاخير يعطى خطاء في المعادلات المستعملة في الملف اضن بسبب دالة IFERROR و على ما اعتقد ان النسخة لا تدعمها اما الملف الثاني 2007 فما فوق شغال عادي تحياتي للجميع تم تغيير المرفق بعد 7 تحميلات Model Facteur.rar

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

وعليكم السلام ورحمة الله هذا مقترح آخر بعد أذن أخي العزيز أسير الشوق Cleaning contracts.rar

الملف جاهز على قدر فهمى الضئيل ارجوا ان تكون فيه الفائده المرجوه ان شاء الله Cleaning contracts-UP .rar

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

لم أدرك جيدا المطلوب لكن جرب التالي Private Sub Workbook_Open() If Date > DateValue("10/3/2015") Then If InputBox("انتهاء صلاحية البرنامج لاعادة التفعيل أدخل كلمة السر ") <> "123" Then MsgBox "كلمة المرور خطائة " ThisWorkbook.Close If CloseMode = vbFormControlMenu Then Cancel = True MsgBox " !!! سوف يتم اغلاق البرنامج نهائياً " Application.DisplayAlerts = False Application.Quit End If Else MsgBox "تفضل بالدخول كلمة المرور صحيحة " UserForm2.Show Sheet3.Select Range("B1").Select Exit Sub End If End If End Sub

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

بعد التطبيق في المثال السابق .. هذا هو الكود هو المسؤول عن العملية Private Sub co2_AfterUpdate() If co2 = 1 Then 'ويمثل الاختبار الاول في مربع تحرير الفترة subs.Form!text1.ControlSource = "ekhtbar1" 'حقل الاختبار الاول في الجدول ElseIf co2 = 2 Then subs.Form!text1.ControlSource = "ekhtbar2" ElseIf co2 = 3 Then subs.Form!text1.ControlSource = "ekhtbar3" ElseIf co2 = 4 Then subs.Form!text1.ControlSource = "NISFALSANH" ElseIf co2 = 5 Then subs.Form!text1.ControlSource = "ekhtbar4" ElseIf co2 = 6 Then subs.Form!text1.ControlSource = "ekhtbar5" ElseIf co2 = 7 Then subs.Form!text1.ControlSource = "NHAIATALSANH" End If End Sub text1.ControlSource يعني مصدر عنصر التحكم لحقلنا الموجود في النموذج الفرعي كما تلاحظون في الكود يتغير المصدر بتغير قيمة مربع التحرير الفترة الموجود في النموذج الرئيسي

السلام عليكم ورحمة الله وبركاته أقدم لكم دالة معرفة UDF تقوم بدمج وجمع النصوص كما تفعل الدالة CONCATENATE ، ولكن مع اختلاف في النتائج ، حيث تتميز الدالة المعرفة بالحفاظ على تنسيق الخلايا التي يتم دمجها معاً. وقد وضحت بالأمثلة في الملف المرفق معظم الحالات للدالة المعرفة ، وكيف أن النتائج تكون مختلفة عن الدالة CONCATENATE ، وأترككم مع الملف المرفق ومع الأمثلة التي توضح الفرق بينهما. للمزيد حول الموضوع يرجى زيارة الرابط التالي رابط الموضوع من هنا

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

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

حبيب قلبى واستاذى الفاضل // شوقى ربيع السلام عليكم ورحمته الله وبركاته لديك كل الحق فيما ذكرته فأنا عن نفسى لاأقوم برفع أى موضوع للطرح العام إلا بعد البحث والتمحيص وبعدة طرق ومع تغييركلمات البحث كما لوكنت ألعب دور " وكيل نيابة " حتى أحظى بما أريد وبالرغم من أن هناك موضوعات كثيرة قد لاتكون فى محلها لعدم اقتناعى بها وإن لم أجد فمن هنا يتم رفع الموضوع للمناقشة والاهم أن يكون هناك إصرار من السائل للوصول الى الحل الامثل وأذكرك أخى الحبيب بهذا الموضوع الذى عالج قصورا شديدا من ميكروسوفت http://www.officena.net/ib/index.php?showtopic=55273&page=2 حيث أردت أن أرد لسيادتكم الجميل على الرابط http://www.officena.net/ib/index.php?showtopic=55519&hl= قامت الدنيا ولم تقعد واسمح لى أن أضيف على ماذكرته أخى الحبيب أن هناك أمور لاينبغى أن تحدث من زملاء أفاضل وهم معرفون على مستوى الموقع بشأن التقليل من حجم السائل حال توصله لحل الموضوع سواء توصل اليه بنفسه او توصل اليه عن طريق أحد الزملاء وإذ تفاجىء بردود لاتليق على الاطلاق من زملاء من المفترض أن يتسموا بالتواضع الامرالذى يدفع معظم السادة الاعضاء الى عدم المشاركة اوالانقطاع أوالدخول على الموقع بحساب جديد حتى يتمكن من الحصول على مايريد او مراسلة الزملاء عبر الخاص أو تبادل الملفات على أحد مواقع تخزين الملفات بحثا عن حل لمشكلاتهم خارج الموقع ومن هنا لاتعم الفائدة على الجميع فكما تعلم أن هناك من يتخصص فى المعادلات فقط وهناك من يتخصص فى الاكواد فقط وهناك من يجمع بين الاثنين ولاغنى عن كلاهما فى مجال اعمالنا واخيرا ارجواخى العزيز تعديل اقتباسكم فقد اكتفيت بتحية الاسلام أولا فى بداية مشاركتى لاننى اعلم أن ردى سيتغرق وقتا لسرده وافر تقديرى واحترامى فأنتم على حق جزاكم الله خيرا

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

أخي ابا عمرو هل تم حل مشكلتك؟ حياك الله أخي انت الله هداك دخلت في تعليقك كأنك صاحب الموضوع ، فدوختني على العموم ، تفضل ، اشرح اللي تريده (لا شرحك اللي كتبته غير واضح وغير كافي) ، اشرح باسماء النماذج والحقول اللي عندك ، وكيف اقدر اشوف الرسالة اللي تقول عنها ، وارفق قاعدة بياناتك جعفر

زادك الله من علمه وفضله ورفع درجاتك فى الجنة

جميل أوي أخي الكريم الكود الذي وضعته في زر استعراض اكثر من تقرير Select Case Reports Case 1 On Error Resume Next DoCmd.OpenReport "Report1", acViewReport Case 2 On Error Resume Next DoCmd.OpenReport "Report2", acViewReport Case 3 On Error Resume Next DoCmd.OpenReport "Report3", acViewReport End Select انا عملت 3 ازرار معلش بقى لسة مبتدئين

السلام عليكم احسنت العمل اخي battarov جزاك الله خيرا حاول عملها بنفسك و اي استفسارات سنساعدك على الاقل سيكون حافزا لتعلمك التعامل مع اليوزرفورم وهذه افضل طريقة للتعلم (الحاجة أم الاختراع) تحياتي

بارك الله فيك يا استاذ

ومنكم نتعلم استاذي الكريم والرأي رأيك >>> بس نسيت الختم ...

السلام عليكم أخي آخر الارض اود ان اعرض عليك كود واحد على زر واحد ، يخفي ويُظهر: Me.a.Visible = Not Me.a.Visible ايش رايك؟ جعفر

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

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

حياك الله اخي الكريم جرب هذا المرفق .. اخفاء اظهار .rar

جرب الملف التالي إذا كانت المشكلة في التسلسل .قمت بعمل معادلة بسيطة تسيتطيع بها أن تتغلب على التسلسل طباعة.rar

السلام عليكم أخي عبدالعزيز رجاء ، لا تستخدم الخط الضخم ، فانا أقرأ المنتدى على الجوال في الكثير من الاوقات ، والخط الكبير صعب القراءة عليه 1. تم التعديل ، 2 و 3. تم إرجاع البيانات السابقة (كنت اعتقد بان البيانات كانت للتجربة ، وعلى العموم انا غيرت في الكثير منها ، للتجربة) ، 4. فرق تصفية السجلات بين تصفيتها في الاستعلام وتصفيتها في النموذج/التقرير كالتالي: فلنعتبر الجدول عبارة عن مخزن لتخزين المواد ، الاستعلام هو قاعة مخصصة لتصفية وفرز المواد ، والنموذج/التقرير هو منزلك او متجرك ، السؤال: عندما تريد شراء المواد ، عمل الفلتر من الاستعلام: هل تختار وتصفي ما تشاء في المكان المخصص لذلك في المخزن ، وتأخذ الى متجرك البضاعة التي تريدها فقط ، عمل الفلتر من النموذج: او تأخذ جميع بضاعة المخزن الى متجرك ، ثم تختار البضاعة التي تريد ، 5. تم التعديل بإزالة ربط حقول السرد ، ولكن السنة لا تزال هي الاهم جعفر 14.3.البرنامج المميز.mdb.zip

أخي أيمن .. المدارس كما لاحظت في ملفك تظهر بمجرد التغيير في الخلية AA2 ...ما المطلوب إذاً إذا كانت كل مدرسة تظهر بمجرد أن تغير الرقم في الخلية المذكورة .؟؟ وضح بشكل أكثر لو سمحت

استاذ / ياسر خليل ما شاء الله و جزاك الله خيرا

عااااااااااااااااااااااااااااااااااااااااشت يداك اخي الكريم هذا هو المطلوب تحياتي لؤي الخزرجي

اذا تكرمت استاذنا وضح لي ذلك او دلني على الموضوع المناسب لذلك لاكمل برنامجي

شى جميل جداً ........ ان شاء الله يكون في ميزان حسناتك :fff:

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

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

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

أستاذى وأخى الفاضل ياسر بارك الله فيكم وفى أعمالك وجعلها فى ميزان حسناتكم

وعليكم السلام أخي حسسين في الواقع كنت ناوي اعمل برنامج فيه شوية اعمال اضافية ، بس عطني بعض الوقت ، وان شاء الله سيكون البرنامج مميز جعفر

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

كما تفضل الأخ عبد الفتاح .. ولكني استخدمت الكود في حدث عند التحميل للتقرير a = Nz(DCount("[typeofcalling]", "childdetails", "[typeofcalling]= 3"), 0) b = Nz(DCount("[typeofcalling]", "childdetails", "[typeofcalling]= 6"), 0) c = Nz(DCount("[typeofcalling]", "childdetails", "[typeofcalling]= 5"), 0) كذلك قمت بتعديل جدول typeofcalling وربطه بعلاقة مع الجدول الرئيسي كما تم تغيير مربعات النص الغير منظمة إلى a,b,c الق نظرة على المرفق وان شاء الله يفي بالغرض . Protection Concern.rar

أخي الفاضل هناك العديد واالعديد من الموضوعات داخل المنتدى للتعليم ( منها دوروس ومنها شروحات ) ويمكن انت تطرح السؤال او الفكرة التي ترغب بها وهنا من يجيبك إن شاء الله ومنها تتعلم ما تريد

تفضل أخي الحبيب وإن كنت لا أدري شكل الأكواد لديك .. Codes To Run At Startup.rar

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

بسم الله الرحمن الرحيم إخوانى الأعزاء السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم الدرس الثانى من ( سلسلة الفارس فى شرح دوال الإكسل عن طريق الفيديو ) شرح دالتى AND و OR وان شاء الله الدرس القادم سيكون عن استخدام دالة IF مع دالة AND أو دالة OR http://youtu.be/Y2FwfUAZIuY OR ودالة AND دالة.rar

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

والان كيفية عمل بيانات الطالب اليكم الامر باستعمال دالة LOOKUP من ادراج دالة =LOOKUP(B12;الشيت!A9:A108;الشيت!B9:B108) واليكم الشرح بالفيديو اسم الطالب ودرجاته.rar

الاخوة الزملاء كنت امل التفاعل مع شرح خطوات عمل شيت كنترول للوصول الى شكل يستفاد منه الجميع وعموما اليوم نتعرف على بداية عمل شهادة للطالب أو ممكن استعمالها فى الكشف على درجات طالب بداية سننفذ مربع تحرير وسرد اى بالضغط على الزر تظهر قائمة بارقام الجلوس نختار الرقم تظهر بيانات الطالب واليكم الشرح بالفيديو http://magdiyonis.forumegypt.net/ مربع تحرير وسرد.rar

اخي لاحظ المرفق color select.rar

الاستاذ يحياوي : تحية طيبة مرفق اكواد رياضية رائعة - 2 ملف - مع شرح بسيط لتطبيقات vba مع الاكسل لاستاذنا الكبير محمد طاهر وفقك الله ياسر الحافظ شرح برنامج اكسل و تطبيقات الفيجوال مع اكواد رياضية رائعة.rar

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

السلام عليكم و رحمة الله إضافة لحلول الأخوة الجميلة أخي يمكنك عمل فلترة و اظهار الأسماء غير المكررة في نفس القائمة بإتباع الخطوات التالية : حدد المدى الذي يحتوي الأسماء ثم قم بإختيار التصفية المتقدمة Advanced Filter و أبقي الخيار الاول كما هو Filter the list , in place و قم بتحديد الخيار الأخير Unique Record Only ثم اوكي و سيعطيك الاسماء غير مكرره في نفس المدى

السلام عليكم الأخ الكريم نفرض أن مدى البيانات الذي تعمل عليه هو A1:A1000 حدد مدى البيانات و تأكد أن الخلية النشطة هي A1 من قائمة تنسيق....اختر تنسيق شرطي....ثم اختر الدالة هي... format>>>conditional formating>>>formula is اكتب المعادلة التالية =COUNTIF($A$1:$A$1000;A1)>1 =COUNTIF($A$1:$A$1000;A1)>1 ثم اضغط زر تنسيق format واختر الألوان والتنسيقات التي تحلو لك اضغط موافق ثم موافق مرة أخرى دمت بخير أيسم إبراهيم

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