sandanet

اخي الكريم .. تقوم برامج الاخفاء المجلدات عادةً بتشفير اسم المجلد واخفاءه من جذوره وبالتالي لايمكن الوصول لما في داخل المجلد الا عن طريق اظهار المجلد من البرنامج نفسه

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

شكراً جزيلا لك أستاذنا القدير جعفر دائماً متميز بمواضيعك .. وفقك الله

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

كنت قد استخدمت الدالة التالية التي تعمل على استخراج الفرق بين جملتين Function WORDDIF(rngA As String, rngB As String) As String On Error GoTo Err ' to test the function, press ctrl+G then paste this line of code--> ?WORDDIF("عبد الرحيم بن سلمان عبد الله بو سالم", "عبد الرحيم بن سلمان عبد الله سالم") Dim WordsA As Variant, WordsB As Variant Dim ndxA As Long, ndxB As Long, strTemp As String WordsA = Split(rngA, " ") WordsB = Split(rngB, " ") For ndxB = LBound(WordsB) To UBound(WordsB) For ndxA = LBound(WordsA) To UBound(WordsA) If StrC

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

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

رائع جداً .. لكن ماذا لو اتى الاسم "بو سالم" في المنتصف اي الاسم الثاني او الثالث؟

نعم استاذي العزيز افهم قصدك من ذلك لكن لايمكن اعتبار الاسم "عبد الرحيم بن سلمان عبد الله بو" اسم رباعي ولا يمكن السماح بادراج الاسم بهذا الشكل في حال لم تكن اللاحقة "بو" مضافة للجدول مسبقاً لذلك قمت بتعديل بسيط على طريقتكم باستخدام كود الاستاذ القدير @ابوخليل والنتيجة كانت ممتازة .. انظر المرفق جرب ادخل الاسم التالي "عبد الرحيم بن سلمان عبد الله بو سالم" بدون ادخال اللاحقة "بو" الى جدول tblSpecialParts تحياتي Test Four Name.mdb

نعم اخي أبو عبدالله كلامك صحيح ... لكن لو لم تكن اللاحقة مضافة لجدول tblSpecialParts مسبقاً فسنواجه مشكلة خصوصا لو كان هنالك عدد من المستخدمين يعملون على البرنامج .. اعتقد انه من الافضل ايجاد طريقة تنبيه للمستخدمين تفيد بأن الاسم سيتم اقتطاعه لوجود لاحقة غير مضافة لجدول tblSpecialParts وبالتالي يمكن تلافي ادراج الاسماء منقوصة. نعم كلامك صحيح ونقطة في محلها فعلا خصوصا لو كان لدينا برنامج كبير لكني في الواقع افضل تقليص عدد الجداول ^_^ ولو ان كود الاستاذ جعفر كنز ثمين لايمكن تجاهله لكن بالتأكيد سنحتاجه عاجلا ام آجلاً. معناها لو قمنا بالغاء الاستعلام qry_SP فسنلغي دال

أشكرك جزيل الشكر على المرفق السابق لكني واجهت مشكلة اخرى عندما حاولت اضافة الاسم التالي "عبد الرحيم بن سلمان عبد الله بو سالم" فظهر في الخانة الاخيرة كلمة "بو" فقط .. المفروض تظهر كلمة "بو سالم" كلها كما ان لدي بعض التساؤلات التي استوقفتني السؤال الاول : ماهو الفرق بين استخدام طريقتكم التي تفضلتم بها و طريقة الاستاذ اباجودي التي تفضل بها في مرفقه ؟ هل يمكن اعتبار ان الفكرتين تؤديان الى نفس النتيجة أم هنالك فرق جوهري بالأمر؟ ارجو التوضيح فهذه نقطة مهمة جدا فكلا المرفقين فيهما حلول رائعة السؤال الثاني: لماذا تستخدم دالة MakeMsg التي تستوجب اضافة جدول ووحدة نمطية للبرنامج ف

أخي العزيز أبو عبدالله شكراً لك على المرفق الأخير الأكثر من رائع والشكر لكل من ساهم به ولو بفكرة بسيطة اثناء عمل compile للكود يظهر خطأ في الدالة التالية x = Split(testSpcailPart(M), " ") اعتقد ان الكود يجب ان يكون بهذا الشكل x = Split(testSpcailPart(M, 4), " ") كما اني لاحظت ان الاسم الرباعي لو كان مركبا مثل هذا "جاب الله نور الدين عصام الدين بن مسعود" لا يتم قبوله إلا إذا قمنا بتقليص الاسم يعني استبدال اسمين مركبين باسمين غير مركبين فما هو سبب حدوث ذلك؟

معقولة اقارن اجابتي المتواضعة باجابة بروفيسور 😝

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

سبقتموني في الوصول الى الحل لكني وصلت لنفس نتيجة الاستاذ جعفر بالنهاية وهذا شرف كبير لي 😀 821562509_FilterWithMoreCondition.mdb