Foksh

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

هل ممكن يكون السبب هو عدم وجود إحتياط كـ Case Else ؟؟

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

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

وعليكم السلام ورحمة الله وبركاته أخي محمد .. أعاننا وإياكم الله على صنع الخير وفعله وكل عمل يقربنا الى الله . إن شاء الله تعالى قريباً سيتم طرح الأداة ، ولكنني كنت انتظر نتائج أكثر ومتنوعة بهدف رؤية ما اذا كان هناك إصدارات تعارض الأداة في التنفيذ أم لا . وننتظر ، ما دامت الردود ستساعد ، فـ 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)

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

بارك الله فيك أخي حافظ ، وجزاك الله عنا وعن من سيستفيد من مشروعك هذا كل خير .. ونسأل الله أن يكون في ميزان حسناتك . بعد تحميلي الملف صادفتني مشكلة عند تسجيل الدخول :-

لربما محاولة رفعه مثلاً على جوجل درايف قد تفي بالغرض ، ليكون مرجعاً يستفاد منه عند حاجته .. 🤗

العفو أخي الكريم .. 💐

العفو أخي الكريم 🤗 وإياكم أجمعين 🤲🏻

وعليكم السلام ورحمة الله وبركاته .. لدي ملف قديم أرسله لي أحد الطلاب والأصدقاء ، سأشاركك إياه كتجربة مبدأية قابلة للتطوير . عجلة سؤال وجواب.pptx

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

شكراً لك على تفاعلك ومشاركتنا النتيجة أخي موسى 🤗 ..

للأسف ، وبشكل واااااضح وملموس .

وعليكم السلام ورحمة الله وبركاته .. أعتقد كان لك موضوع مشابه لهذه المشكلة أخي حافظ فيما سبق ، في هذا الموضوع :- فلا أعلم فعلاً أن كانت نفس المشكلة المتعلقة باستعمال حقل الترقيم التلقائي أم لا .. على العموم ارفق ملفك لرؤية معطيات السؤال .

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

أخي منتصر ، فعلاً قد يؤدي إلى تعطيل قاعدة البيانات وتلفها ، إن كان التعديل غير مدروس بعناية وتركيز .. فعلى سبيل المثال لو تم تغيير قيمة داخل جداول النظام فقد يحدث خلل في القاعدة وعدم عملها ، فما بالك بقلب آكسيس نفسه 😇 . وهذا ما سأعتمده بنشره قريباً إن شاء الله ، ولكن كما ترى فردود التفاعل بالتجارب والإفادة غير مشجعة على الإطلاق 😅 . آكسيس قوي بما يكفي فعلاً قولاً واحداً في تأمين نفسه - تجاهل عبثي به - فتجاربي كانت من باب الفضول وليس له أي هدف شخصي ، إلا من باب التعلم . ولهذا لم ولن أطلق أي أداة تساعد على كسر هذه الثقة التي لدى 95% من مصممي قواعد البيانات ومطوري البرامج . عن نفسي وأنا ما زلت أتعلم كانت محاولاتي هي نقل آكسيس إلى بُعد أبعد بكثير من كونه حاوية بيانات رهيبة . أحترم جميع الآراء ، وأعتذر من الجميع عن أسلوبي وطريقتي في العمل سابقاً 🥰 .

تبارك الله ،، فكرة جميلة جداً ، وأكثر ما أعجبني بها هي حركة الماوس وتبديل الحرف جزاك الله عنا كل الخير على هذه الفكرة الجميلة .. وقد اقوم باستعمالها بدلاً من فكرتي السابقة الغبية في الفيديو التالي للتوضيح 😅

بسيطة أخي الكريم .. إذا أردت الإعتماد على المعادلة السابقة في الخلية لكل اسم ، فيمكن استخدام المعادلة التالية في الخلية N9 كمثال ، ونفس الأمر تقوم بسحبها لأسفل :- =TRIM(MID(TRIM(Q9), LEN(O9) + 1, LEN(Q9))) أما إذا كنت تريد معادلة مستقلة ولا تعتمد على المعادلة الأولى لاستخلاص اللقب ( كعدم وجودها أساساً ) ، استخدم المعادلة التالية كمثال :- =TRIM(MID(TRIM(Q9), FIND("^", SUBSTITUTE(TRIM(Q9)&" ", " ", "^", IF(OR(LEFT(TRIM(Q9), 3)="بن ", LEFT(TRIM(Q9), 4)="أبو ", LEFT(TRIM(Q9), 4)="ابو "), 2, 1))) + 1, LEN(Q9))) ملفك بالمحاولتين :- فصل.xlsx

تمام ، إذا جرب المعادلة التالية في الخلية O9 على سبيل المثال ، ثم اسحبها من زاويتها لأسفل ليتم تطبيقها على الخلايا كاملة التي تريدها .. =LEFT(TRIM(Q9), FIND("^", SUBSTITUTE(TRIM(Q9)&" ", " ", "^", IF(OR(LEFT(TRIM(Q9), 3)="بن ", LEFT(TRIM(Q9), 4)="أبو ", LEFT(TRIM(Q9), 4)="ابو "), 2, 1))) - 1) ملفك :- فصل.xlsx