كل الانشطه

اعرض الملف أداة إنشاء الخيارات المخصصة بإستخدام القوائم المختصرة {سلسلة الأدوات المساعدة المخصصة} اليوم أقدم لكم طريقة أخرى من طرق إنشاء قوائم الخيارات المخصصة ولكن هذه المرة بإستخدام القوائم المختصرة السياقية كل ما يتطلب معرفته للعمل بهذه الأداة ستجدونه موضحا ضمن المرفقات وكما تعودنا فمرفق لكم ملف أكسس بإسم النسخة التوضيحية تحتوي على أمثلة عملية توضح طريقة عمل الأداة وطرق الإستفادة منها بالإضافة إلى نسخة بإسم القالب يحتوي الكائنات المطلوب إستيرادها تم في هذه الأداة الأخذ بالإقتراحات التي قدمها الأخ @Foksh والأخ @Moosak في موضوع الأداة السابقة هنا فأصبح نموذج ببناء صيغة أمر الإستدعاء يقوم بإضافة عبارة Select Case ضمن الصيغة وتم إستخدام دالة بدل الإجراء ليتم إرجاع قيمة الخيار مباشرة لأني رأيت بصراحة أن هذين الإقتراحين هما الأنسب لهذه الأداة أرجو أن تجدوا في هذه الأداة الفائدة العلمية والعملية وفي إنتظار أي ملاحظات تقدمونها تحياتي صاحب الملف منتصر الانسي تمت الاضافه 09/19/26 الاقسام قسم الأكسيس  

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

كتبت لك الحل في المشاركة السابقة واكرر لم توضح الرقم الاصل او الاساسي هل هو في الخلية O10 او K9 لان الحل يختلف والنتيجة تختلف بفرضية ان الرقم الاصل الاولي هو في K9 اليك الملف AS.xlsx

أريد التوضيح في ورقة العمل يا أستاذ

والحل يا أستاذ

وعليكم السلام ورحمة الله وبركاته اولا لم توضح الرقم الاساسي هل هو في الخلية O10 او K9 اذا كان القيمة في الخلية O10 هي الاساس غيّر معادلة الخلية H10 لتكون: =K10 اما إذا كان الأساس هو نسبة الـ 9% من المجموع الكلي (95975.95) غيّر قيمة الخلية O10 لتكون معادلة بدلاً من رقم ثابت =O9*9% والسبب ان نسبة 9% للرقم 95975.95 ليست 8637.8400 وانما 8637.8355 والفرق بينهما 0.0045 ضرب 12=0.05 (5 سنتيم)

السلام عليكم ورحمة الله إخواني الكرام عندي مشكل في عملية الضرب في هذا الملف المرفق أطلب الحل وجزاكم الله خيرا AS.xlsx

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

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

بارك الله فيكم أستاذ جمال ، وشكراً لكم تفاعلكم معنا لتجربتكم 😇

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

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

طلبك موجود بهذه المشاركة .. أتمنى من السادة المشرفين ضم المشاركتين :

تمام .. اختفى الخطأ أصبح الآن لدينا طريقة جديدة فى البحث .. يرجى التعديل فى القالب الأصلي شكراً لكما

مشاركةً مع اخي منتصر .. استبدل الاستعلام الموجود في الدالة GetLettersArray التي فيها الخطأ ، بالتالي :- strSQL = "SELECT DISTINCT Left(Trim(SearchName), 1) AS SearchLetter " & "FROM (" & strRS & ") AS SubQuery " & "WHERE SearchName IS NOT NULL;" حيث أن الدالة Left تحتاج إلى معاملين . وانت استعملت معامل واحد وهو SearchName ، ولم تحدد رقم الحرف الأول ، لتصبح :- Left(Trim(SearchName), 1)

موضوع مكرر @المشرفين لإجراءاتكم 😇

معادلة جلب العنوان: =IFERROR(INDEX($K$4:$K$1000,MATCH($B4&$C4&$D4,$H$4:$H$1000&$I$4:$I$1000&$J$4:$J$1000,0)),"") معادلة جلب المهنة: =IFERROR(INDEX($L$4:$L$1000,MATCH($B4&$C4&$D4,$H$4:$H$1000&$I$4:$I$1000&$J$4:$J$1000,0)),"") في إصدارات Excel القديمة يجب إدخال المعادلة كمصفوفة بالضغط على: Ctrl + Shift + Enter أما في Excel 365 وExcel 2021 فيكفي الضغط على Enter فقط، ولا حاجة لاستخدام Ctrl + Shift + Enter.

عندي جدولين رقم 1 اريد تعبئة بيانات العنوان و الوظيفة من الجدول رقم 2 لكن كل من الاسم و اللقب و تاريخ الميلاد في الجدول رقم 1 غير مرتبين مثل الجدول رقم 2 المطلوب : معادلة أو كود برمجي يقوم بالبحث و عندما يجد تطابق يقوم بتعبئة البيانات (العنوان و الوظيفة) من الجدول رقم 2 الى الجدول رقم 1 جزاكم الله كل خير

عندي جدولين رقم 1 اريد تعبئة بيانات العنوان و الوظيفة من الجدول رقم 2 لكن كل من الاسم و اللقب و تاريخ الميلاد في الجدول رقم 1 غير مرتبين مثل الجدول رقم 2 المطلوب : معادلة أو كود برمجي يقوم بالبحث و عندما يجد تطابق يقوم بتعبئة البيانات (العنوان و الوظيفة) من الجدول رقم 2 الى الجدول رقم 1 جزاكم الله كل خير 1.xlsx

اعرض الملف aSc Timetable السلام عليكم لقيت ان هذا الملف مطلوب بهذه المشاركة فقمت برفعه هنا .. رجاءا من السادة المشرفين نقله الى هذه المشاركة : وهذا شرح أيضا للبرنامج صاحب الملف كمال على طارق تمت الاضافه 09/17/26 الاقسام قسم الإكسيل  

تفضل db.mdb

إذا جربت حذف وإعادة إستيراد النموذج frmSearch ولم ينجح فلو أمكن ترسل مثال للتأكد

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

المفروض يعمل في أي نسخة المشكلة الذي لاحظتها من رسالة الخطأ جملة SQL والتي تظهر بهذا الشكل Left(Trim(SearchName) As SearchLetter FROM (SELECT Nr AS SearchNo, Name_S AS SearchName FROM tbl_student1 ORDER BY Name_S) AS SubQuery WHERE SearchName IS NOT NULL ويفترض أن تكون بهذا الشكل SELECT DISTINCT Left(Trim(SearchName),1) As SearchLetter FROM (SELECT Nr AS SearchNo, Name_S AS SearchName FROM tbl_student1 ORDER BY Name_S) AS SubQuery WHERE SearchName IS NOT NULL فلو قارنا بين الجملتين سنجد عدم وجود عبارة SELECT DISTINCT وكذلك دالة Left كانت خاظئة عموماً جرب حذف النموذج frmSearch وإعادة إستيراده من القالب وإن شاء الله تحل المشكلة