nssj

ظهرت لي مشكلة صغيرة .. وهي بخصوص فرز حقل (Total) فأنا بحاجة لفرزه واستعراض الرموز التي لم تتكر أو لم تستخدم، أو الرموز التي استخدامها أقل من عشر مرات مثلا .. وهكذا وحاولت إجراء هذا الفرز في نموذج ورقة بيانات، لكن لم تكن النتيجة مناسبة، على الطريقتين * طريقتي بجعل القيمة المطلوبة في مربع نص غير منضم (TotalX) فهو حقل لا يقبل الفرز * طريقتك أخي الكريم باستخدام استعلام خارجي واسم الحقل (Total) وهي أفضل، يقبل الفرز ولكنه يتعامل مع الأرقام كنص ولا يفرز بالشكل المطلوب ولأني أحب التجارب والاختراعات 🙂 .. آخر تجربة عندي أني أضفت للجدول حقل رقمي (TotalXX) ووضعت له استعلام تحديث (Q_rmzupdate) واستخدمت فيه العبارة المسروقة 😁 واستدعيت هذا الاستعلام في حدث عند التحميل في النموذج (FRM_RMZ2) .. والنتيجة جيدة .. الفرز كما هو المطلوب .. وأستطيع أيضا انشاء استعلام (Q_RMZ_total) لعرض الرموز التي تكررت أقل من عشر مرات مثلا وهكذا .. فهل هذا هي الطريقة المثلى لهذا الغرض .. أم هناك أفضل منها دون استخدام الكباري والأنفاق 😅 MusndWZwayid 005.accdb

الإخوة الكرام .. موضوع البحث مع تجاهل التشكيل ونحوه كعلامات الترقيم والأقواس والأرقام، مع المساواة بين أشكال الهمزة ونحوها (ا - أ – إ – آ & ة – ه & ي - ى) هذا الموضوع طُرق في عدة مشاركات، هذه بعضها: حل جذرى للبحث في الكلمات ذات التشكيل والهمزات والتاءات والياءات حذف و ازالة الحركات و التشكيل من النص ظهورالهمزة والتاء المربوطة عند عملية البحث فكرة بحث ذكية (Search) الحروف ( ة ه ا إ آ أ ي ى ) وحاصل ما قرأته واطلعت عليه في هذا الموضوع، أن هناك طريقتين لحل هذه المشكلة في البحث: 1- الطريقة الأولى: استخدام أكواد خاصة لحذف التشكيل وغيره من النص عند البحث 2- الطريقة الثانية: إنشاء حقل خاص للبحث محذوف التشكيل * * * الطريقة الأولى: استخدام أكواد خاصة لحذف التشكيل وغيره من النص والمساواة بين الهمزات ونحوها عند البحث وهنا لابد من التنبيه على أمر مهم، وهو أننا أمام قضيتيتن غير متلازمتين: الأولى (تجاهل التشكيل ونحوه كعلامات الترقيم) والثانية (المساواة بين الأحرف المتناظرة: أاإآ – ة ه – ي ى) فلا يلزم من حل القضية الأولى أن تحل الثانية بنفس الطريقة، لذلك وبعد تجربتي للأكواد التي وجدتها على الشبكة خرجت بطريقتين لاستخدام هذه الأكواد: (1) كود واحد يؤدي المهمتين (mod_Tshkeel) حذف ما يراد تجاهله (التشكيل ونحوه) والمساواة بين الأحرف المتناظرة (أاإآ – ة ه – ي ى) والنتيجة جيدة بخصوص التجاهل .. أما بخصوص المساواة بين الأحرف المتناظرة فهذا الكود لوحده لا يكفي، لأنه عند البحث مثلا عن (أيوب) فإن الكود يقوم باستبدالها في نص البحث لتصبح (ايوب) ولذلك لا يجدها عند البحث، لأنك طلبت البحث عن (أيوب)، يجدها فقط إذا كتبتها (ايوب) لذلك لابد أولا من استخدام كود آخر (mod_searchtext) للمساواة بين الأحرف المتناظرة في مربع البحث أيضا قبل طلب كود البحث، وعندها يعمل كود البحث بشكل جيد لأنك مهما كتبت في مربع البحث المعد للكتابة (أيوب – ايوب – إيوب - آيوب) فستصبح (ايوب) وعندها سيجدها في نص البحث * وهذه الطريقة في الملف المرفق في زر (بحث بالكود) (2) كود لحذف التشكيل وعلامات الترقيم والأرقام، وهو الكود السابق (mod_Tshkeel) أو يمكن اختصاره بحيث يبقي على الهمزات والأحرف المتناظرة كما هي وكود آخر (mod_hmzat) للمساواة بين الأحرف المتناظرة، يعمل بشكل مختلف، يعمل في مربع البحث نفسه ليجعل البحث عن الكلمة بجميع احتمالاتها، فعند البحث عن (أيوب)، فهذا الكود يجعل البحث عن ([أاإآ]يوب) فسيجدها كيفما كتبت * وهذه الطريقة في زر (بحث بالكودين) تقييمي لهذه الطريقة بفرعيها: تؤدي المطلوب لكنها بطيييييئة بشكل ملحوظ في الجداول التي تحوي نصوصا كثيرة، كما هو الحال عندي .. فقاعدة البينات التي عندي فيها جدول رئيسي وجداول فرعية، والمطلوب البحث فيها كلها، فإذا استخدمت هذه الطريقة في الجداول الفرعية الصغيرة فلا مشكلة في السرعة، لأن النصوص فيها مختصرة، أما في الجدول الرئيسي حيث النصوص طويييلة والصفوف كثيييييرة، فإن الأمر غير مجدي 😐 وسبب البطء فيما يظهر لي هو في كود التجاهل الذي يقوم بحذف التشكيل ونحوه من النص عند البحث، أما الكود الآخر للأحرف المتناظرة والذي يعمل في مربع البحث فلم يظهر لي أنه يسبب البطء * * * الطريقة الثانية: إنشاء حقل خاص للبحث، يتم فيه حذف التشكيل وعلامات الترقيم والأرقام وما يراد تجاهله عند البحث أما بخصوص الأحرف المتناظرة (أاإآ – ة ه – ي ى) فأمامنا طريقتان كما سبق: (1) استبدالها أيضا في نفس الكود (Q_nass2)، مع استخدام كود (mod_searchtext) لاستبدالها في مربع البحث قبل طلب كود البحث. * وهذه الطريقة في زر (بحث في nass2) (2) عدم استبدالها والاكتفاء بحذف التشكيل ونحوه (Q_nass3) واستخدام الكود المتقدم (mod_hmzat) الذي يجعل البحث عن كافة احتمالات الكلمة. * وهذه الطريقة في زر (بحث في nass3) وهذه الطريقة - بفرعيها - سريعة وتؤدي المطلوب، لكن بالنظر إلى أن حقل النص (NASS) المراد البحث فيه عندي عرضة للتحديث يوميا، فلا بد من تحديث نص البحث (nass2 & nass3) عند تحديث النص الرئيسي (NASS)، باستدعاء الكود (mod_nass2 ، mod_nass3) بعد التحديث في نموذج (FRM1) .. والنتيجة جيدة بحمد الله، ولم أجابه مشاكل عند التحديث وتغيير البيانات ولا حتى عند إضافة أو حذف سجل. ونتيجة كل ما سبق، أنني أنوي استخدام الطريقة الأولى في الجداول الفرعية الصغيرة [mod_Tshkeel & mod_searchtext]، والطريقة الثانية [mod_nass2 & mod_searchtext] في الجدول الرئيسي إلا إذا كان عند أهل الاختصاص رأي آخر .. فهذه النتيجة التي توصلت لها هي نتاج بحثي وفهمي، ولست من أهل الاختصاص فهل توجد طريقة أخرى لتجاهل التشكيل ونحوه لا تسبب بطئا في عملية البحث، كما هو الحال في الكود الثاني للأحرف المتناظرة والذي يعمل في مربع البحث نفسه وليس في نص البحث أم أن النتيجة التي توصلت لها هي أفضل المتاح بالنظر لطبيعة الجداول التي عندي ؟ هذا .. وكل ما سبق يتعلق بالشق الأول من الموضوع، يبقى الشق الثاني (أثر هذه الأكواد على تلوين النتائج) فإن تلوين نتائج البحث مهم لي بالنظر لطول النصوص .. لكن المشكلة في الطريقتين كلتيهما، أن كود التلوين الذي وجدته بعد بحث في هذه المشاركة تلوين نتيجة البحث تلوين نتائج البحث وإظهارها في أول سطر يلون الكلمة التي تم إدخالها في مربع البحث، فإذا كانت الكلمة في النص مشكولة فلن يتعرف كود التلوين عليها، سواء استخدمت الطريقة الأولى أو الثانية، لأنه في الحالتين تم حذف التشكيل .. فعند البحث عن (محمد) فلن يتم تلوين (مُحَمد) ولا (محمدٌ) .. .. وكذلك الحال إذا طلبت البحث عن (أيوب) وكانت في النص (ايوب) لن يلونها .. وكذلك عند البحث عن ( بن عرفة) لن يلونها إذا كانت في النص ( [بن] عرفة) فهل يمكن أن نجعل كود التلوين يعمل على الكلمات التي أخرجها كود البحث، وليس على الكلمة التي كتبت في مربع البحث .. أو أي طريقة أخرى لحل هذه المشكلة ؟؟ وفي الملف المرفق خلاصة تجاربي المتواضعة في هذا الموضوع (نموذج: Frm_searsh) وأنا أطمع بنصائح وتجارب أهل الخبرة والاختصاص .. والله الموفق. search 01.rar

حاولت أن أطبق كلامك أخي الكريم .. لكني لم أفلح 😟 على كل .. الأمر بحاجة لطرحه في موضوع مستقل

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

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

أحسن الله إليك أخي الكريم .. هذه الخيارات تجعل النتيجة: جيدة جدا لكن ظهرت لي مشكلة كان ينبغي أن أتنبه لها مُبكرا 🤔 .. مشكلة في تلوين نتائج البحث عند البحث مع تجاهل التشكيل ونحوه .. وسوف أطرح هذه المشكلة في موضوع مستقل بعون الله .. والله الموفق

أحسن الله إليك أخي الكريم .. تم المطلوب بحمد الله مع أنني كنت أظن لقلة خبرتي أن الأمر بسيط ويمكن إجراؤه في خصائص الجدول دون الحاجة إلى النماذج والاستعلامات وطبعاً .. لم أستطع مقاومة شغفي بالتجارب والتطفل على أعمال أهل الخبرة 😁 .. فسرقت عبارة الاستعلام DCount("*","[TAB_RMZ_X]","[RMZno]=" & [RMZno]) وأنشأت في النموذج مربع نص غير منضم ووضعت العبارة (المسروقة 🙂) في مصدر بياناته .. وتم المطلوب .. وبهكذا وفرت استخدام الاستعلام الخارجي .. هل هذا تصرف صحيح ؟؟

أخي الكريم .. ربما لم أوضح المطلوب تماما .. أنا أرغب بإظهار هذه النتيجة في جدول (TAB_RMZ) وليس (TAB) يعني .. النتيجة الموجودة في حقل (عدد مرات التكرار) في استعلام (CalcFildQ) المطلوب أن تظهر في جدول (TAB_RMZ) في حقل يتم إنشاؤه خصيصا باسم (Total) وإن تعذر هذا في الجدول .. فلا بأس أن يظهر في النموذج (FRM_RMZ) أرجو ان يكون الأمر أصبح أسهل هكذا .. 😄

يتم حساب عدد الرموز من الجدول الوسيط (TAB_RMZ_X) ويظهر هذا الرقم في الجدول المطلوب (TAB_RMZ) عند الكبس على علامة (+) فيظهر عدد مرات تكرار هذا الرمز وأين يوجد، هذا بناء على العلاقة بين الجداول الثلاثة والمطلوب -إن أمكن- طريقة لإظهار هذا الرقم مباشرة في حقل خاص

الإخوة الكرام .. في الملف المرفق ثلاثة جداول بينهما علاقة متعدد لمتعدد والمطلوب -سلمكم الله- إدراج حقل محسوب باسم (Total) في جدول (TAB_RMZ) يظهر فيه عند كل رمز عدد المرات التي وجد فيها هذا الرمز في الجدول الرئيسي (TAB) MusndWZwayid 004.accdb

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

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

هل هذا يعني أن الأمر غير وارد في أكسس 🤔

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

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

الإخوة الكرام .. في الملف المرفق حاولت إدراج عمود للترقيم التلقائي (ID) بحيث يكون الترتيب حسب عمود (TNO) ولكن الترقيم التلقائي لا يكون متسلسلا حسب المطلوب .. يعني أنه يضع الترقيم التلقائي دون الالتزام بأن يكون الترتيب حسب (TNO) كما يظهر في الصورة وكررت المحاولة .. والحذف والإضافة مع جعل ترتيب الجدول على (TNO) والنتيجة نفسها في كل مرة .. مع اختلاف موضع الخلل في التسلسل أحيانا ما هو السبب ؟؟ وأين الخطأ ؟؟ MusndWZwayid003.rar

تم الأمر بالطريقة التي كنت أتطلع لها .. والحمد لله وجزاك الله خيرا أخي الكريم فقد انطلقت من هذا الكود الأخير وأجريت عدة تجارب، ظهر لي أن المشكلة في رمزي (*) (#) وكانت نتيجة التجارب هذا الكود الذي أدى المطلوب بشكل دقيق Not Like "@" And Not Like "$" And Not Like "[*]" And Not Like "^" And Not Like "+" And Not Like "=" And Not Like "!" And Not Like "%" And Not Like "[#]" And Not Like "|" And Not Like "<" And Not Like "؟" And Not Like "<<"

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

الأخ الكريم يوسف أحمد .. رأيت مشاركتك بعد أن كتبت التعليق السابق وجزاك الله خيرا .. فقد فهمت قصدي وأني أريد كل عمود لوحده وعدلت على الاستعلام الأول ليصبح هكذا <>0 And <>1 And <>2 And <>3 And Is Not Null وكانت النتيجة المطلوبة لكن .. نفس المشكلة في العمود الثاني (TFR) .. تخرج جميع النتائج .. والمفروض أن تكون النتيجة هكذا

جزاك الله خيرا أخي الكريم Moosak .. الاستعلام المذكور أدى المطلوب بخصوص عمود (TFLVL) مع العلم أنه كان قصدي التعامل مع كل عمود لوحده، ولكن يظهر أني لم أوضح المطلوب لكني عدلت على (Quiry 1) ليعمل على كل عمود لوحده، فكانت هذه صيغته في عمود (TFLVL) SELECT TAB.ID, TAB.TNO, TAB.NOM, TAB.NASS, TAB.TFLVL FROM TAB WHERE (((TAB.TFLVL)="0" Or (TAB.TFLVL)="1" Or (TAB.TFLVL)="2" Or (TAB.TFLVL)="3" Or (TAB.TFLVL) Is Null)); وتم المطلوب بحمد الله .. وجزاك الله خيرا وحاولت أن أجرى نفس الطريقة على عمود (TFR) وعدلت الاستعلام إلى SELECT TAB.ID, TAB.TNO, TAB.NOM, TAB.NASS, TAB.TFR FROM TAB WHERE (((TAB.TFR)="@" Or (TAB.TFR)="$" Or (TAB.TFR) Like "*" Or (TAB.TFR)="^" Or (TAB.TFR)="+" Or (TAB.TFR)="=" Or (TAB.TFR)="!" Or (TAB.TFR)="%" Or (TAB.TFR)="#" Or (TAB.TFR)="|" Or (TAB.TFR)=">" Or (TAB.TFR)=">>" Or (TAB.TFR)="؟" Or (TAB.TFR) Is Null)); لكن يظهر أن هذه الجملة بحاجة لتعديل Or (TAB.TFR) Like "*" فعند تشغيل الاستعلام تخرج جميع النتائج

الإخوة الكرام .. في الملف المرفق عمودان (TFLVL) (TFR) (TFLVL) المطلوب التأكد أن القيم فيه هي أحد هذه الأرقام فقط 0 1 2 3 (TFR) المطلوب التأكد أن القيم فيه هي أحد هذه الرموز فقط @ $ * ^ + = ! % # | > >> ؟ وحيث يوجد غيرها تميز من خلال (ID) لتصحيحها MusndWZwayid 01.accdb

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

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

الإخوة الكرام .. أفادني مؤخرا أحد الأخوة ممن عنده بعض المعلومات عن أكسس بتعديل الكود ليصبح هكذا: Dim str As String searchtext.SetFocus str = Me.searchtext.Text Me.searchtext = Replace(str, "أ", "ا") str = Me.searchtext.Text Me.searchtext = Replace(str, "إ", "ا") str = Me.searchtext.Text Me.searchtext = Replace(str, "آ", "ا") str = Me.searchtext.Text Me.searchtext = Replace(str, "ة", "ه") str = Me.searchtext.Text Me.searchtext = Replace(str, "ى", "ي") str = Me.searchtext.Text Me.searchtext = Replace(str, "ؤ", "و") وأصبح الكود يعمل بشكل جيد ويستبدل جميع الحروف المطلوبة ولكن هل توجد صيغة تختصر هذا السطر المكرر، أم أن هذه أفضل صياغة للكود

الإخوة الكرام .. في الملف المرفق كود لاستبدال بعض الحروف بحروف أخرى في مربع البحث (searchtext) وأنا لست من أهل الخبرة في كتابة الأكواد، ولكن هذا الكود محاولة تجميعية من هنا وهناك Private Sub search_go_Click() Dim str As String searchtext.SetFocus str = Me.searchtext.Text Me.searchtext = Replace(str, "أ", "ا") Me.searchtext = Replace(str, "إ", "ا") Me.searchtext = Replace(str, "آ", "آ") Me.searchtext = Replace(str, "ة", "ه") Me.searchtext = Replace(str, "ى", "ي") Me.searchtext = Replace(str, "ؤ", "و") والمشكلة فيه أنه لا يستبدل كل هذه الأحرف‘ إنما يستبدل الأحرف الموجدة في آخر جملة من الكود فقط ويتجاهل ما قبلها فما هي الصيغة الصحيحة لتأدية المطلوب واستبدال جميع هذه الأحرف وللتوضيح .. هذا الاستبدال في مربع البحث (searchtext) يجعل كود البحث يعمل بشكل أدق في المساواة بين أشكال الهمزة (أ إ آ ا) ونحوها عند البحث .. Replace.accdb