Ahmos

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

السلام عليكم ورحمة الله وبركاته أخي الكريم @nssj الحمد لله أوله وأخره و الحمد لله الذي هدانا لهذا ، وما كنا لنهتدي لولا أن هدانا الله ، وما توفيقي ولا اعتصامي ولا توكّلي إلا على الله تم بحمد الله التعامل مع المواضع المتأخرة إليك النسخة المحدثة بالمرفقات والفكرة كالتالي: 1- يتم استخراج الكتب وفق المكتبة الكتب والنمط 2- يتم تسجيل بداية كل كتاب داخل النص 3- يتم ترتيب النتائج وفق ظهورها داخل النص اي برقم بداية كل نتيجة 4 - يتم تسجيل نقطة نهاية لكل نص قبل بداية الكتاب الجديد 5 - يتم اقطاع هذا النص 6 - يتم البحث بداخل كل نص مقتطع عن المواضع المتأخر ثم يتم استبدال الـ و فقط لأني وجدت مواضع متأخر تأتي بدون ( إن شاء الله تجد النتيجة جيدة والان الامر متوقف علي قائمة الكتب فاذا كانت تتضمن جميع الأسماء فيمكن ان نعتمد علي هذه الطريقة للبحث داخل النص الجديد بعض الصور قبل : بعد : بالتوفيق Smart_Search_Pages_V11.zip

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

السلام عليكم ورحمة الله وبركاته الاستاذة / صفاء @safaa salem5 تم بحمد الله عمل التعديلات المطلوبة من خلال الأكواد وبإضافة عمودين للجدول ( isPrinted - printCount ) الملف بالمرفقات Safaa_V2.accdb

مكرر

أخي الكريم أرجو لك من الله التوفيق وقد هداني الله لمراجعة الكود مرة أخرى تذكرت ان هناك خطأ مستتر به 😄 وبالفعل لذا تم التعديل وتحسين عمل الكود إن شاء الله يصبح أسرع وأدق النسخة بالمرفقات والخطأ هو انه عند وجود كتاب بديل ضمن قائمة الكتب يقوم باستبداله ثم يخرج و يذهب الي سجل جديد والمفروض انه يكمل ضمن كامل قائمة الكتب ليستبدل جميع البدائل وبالفعل هذا ما وجدت بعد التعديل بالتوفيق Smart_Search_Pages_V10.zip

طيب انا فعلاً لما راجعت الكود وجدت ان فيه خطأ تم التعديل والملف بالمرفق كما أن هناك نص يطبع النتائج ان لم ترده يمكنك حذفه او تعطيله Smart_Search_Pages_V9.zip

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

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

هل من الممكن ان هناك بعض الخانات الفارغة في العمود NASS ؟

أخي الكريم قمت بإضافة بعض الأعمدة لتسجيل الجزء الذي تم اقتطاعه من النص في حالة التطابق الملف بالمرفق 😁 في خانة allFoundMNO يتم تسجيل جميع النتائج المقتطعة اما في خانات الـ MNO يتم تسجيل فقط ما تم مطابقته وللعلم في هذا الكود حتي اعالج قيم المواضع المتأخرة افترضت ان الجزء المقتطع لن يتضمن اسم كتاب أخر حتي اتجنب البحث بأسماء الكتب الأخرى داخل الجزء المقتطع فما أقوم به هو البحث عن و( او و ( ويتم استبدالها باسم الكتاب و( لذا ان كنت تملك أمثلة لتجربة مثل هذه الحالات حتي نتبين الأمر واذا كنت ترغب بتعديل آلية البحث فلا أمانع فأنت المعني باختيار الأفضل والأنسب Smart_Search_Pages_V8.zip

دائماً أترك النص الأساسي بدون تغير لأنه المرجع فقد قمت بعمل عمود أخر باسم (modifiedNass) ولكني تابعت التجارب عليه بغرض إستخراج الكتب وليس البحث النسخة بالمرفقات بها التعديل المطلوب "إن شاء الله" تم تعديل البحث ليتم داخل عمود النص الجديد كما تم إضافة زر لإعداد النص الجديد بانتظار تجربتك أخي الكريم Smart_Search_Pages_V7.zip

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

بعض التعديلات البسيطة ظهرت مع بعد إجراء بعض التجارب وهي لمعالجة النص الناتج كوجود سطر فارغ زائد علامات لا فائدة منها لذا تم إضافة بعض الأكواد لمعالجة مثل هذه الحالات Smart_Search_Pages_V6.zip

تم عمل تعديلات بسيطة الملف بالمرفق مثال قبل وبعد إضافة كتاب Smart_Search_Pages_V5.zip

أخي الكريم بارك الله فيك لقد قمت ببعض التعديلات ومن أثرها سرعة استخراج الكتب الملف بالمرفقات إجابةً علي أسألتك 1- الدالة تعتمد علي الاسم والرقم فهناك دالتين تعمل علي تجهيز النص نتكلم الان عن البحث باسم الكتاب ورقم الصفحة الدالة الاولي تقوم بقص النص من اول اسم الكتاب إلي الرقم المراد البحث عنه ومن ثم تعمل الدالة الثاني علي مطابقة النمط ولنحسم هذا الأمر يمكنك تجربة اسم غريب داخل جدول BOOKS فستجد انه لم يعد هناك نتائج للبحث ومن قبل كان هناك نتائج مثال : وبما أن دالة الاستخراج تستخدم نمط مطابقة مشابه فهي أيضاً تعتمد علي اسم الكتاب ولذلك الكتب التي لم يتم استخراجها ذلك بسبب عدم وجود اسم الكتاب في جدول BOOKSLIST للعلم دالة استخراج الكتب لا تبحث بالأرقام تعتمد فقط علي أسماء الكتب فالدالة تقوم أولا بعمل قائمة بأسماء الكتب وبدائلها من الجدول BOOKSLIST ثم نذهب بهذه القائمة علي كل نص ونبحث عن الاسم ثم نطابق نمط بعد الاسم لنستخرج الأرقام والاقواس وهكذا ولذلك إن لم يكن اسم الكتاب موجود في جدول أسماء الكتب فلن يتم استخراجه مازلت أحاول العمل علي فكرة استخراج المواضع المتأخرة والان أقوم باستخراجها بشكل منفصل إلي انا اصل الي طريقة سريعة لربطهم بأسماء الكتب التابعة لهم أسئل الله التوفيق والسداد لك ولي أخي الكريم بالنسبة لي سوف أسجل رد جديد حين أصل الي حل او تحديث جديد إن شاء الله بالنسبة لك لا تتردد أخي الكريم في طلب او مناقشة أي تعديل اللهم لك الحمد كله والشكر كله بالتوفيق Smart_Search_Pages_V4.zip

الحمد لله والشكر لله بالتوفيق لو أمكن مشاركتها للتجربة

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

تفضلي أستاذة / حنــان الملف بالمرفق جميع الاكواد المضافة والمعدلة داخل مديول (New_Functions_Subs) الصورة : بعد القص : بعد تعديل المقاس : Cropping_Images_V1.zip

لو محتاجه تعمليها بدون التعديل علي واجهة البرنامج ممكن نعملها لكن في تفاصيل لازم نجاوب عليها 1- الـ Sub_Form بيفتح باستعلام معني كدا ان محتوي الفورم نفسة فالغالب هيتغير كل مرة 2- فالحالة دي هنحتاج نميز كل سجل هل تم طباعته ام لا ودي ممكن نوصلها " إن شاء الله " نضيف عمود في الجدول 3- وممكن نضيف عمود كمان عشان عدد مرات الطباعة 4- هل هنحتاج نضيف حد أقصي وأين سنضيفه في الكود أم في الواجهة ؟ محتاج أعرف احتياجك بالظبط وإن شاء الله ربنا يوفقنا ونوصل للمطلوب الحمد لله والشكر لله بالتوفيق

الملف المعدل بالمرفقــات *ملحوظة أكواد الطباعة الموجودة خـاصة بطابعة الـ SUB_FORM في حال كان هناك تقرير ستختلف أكواد الطباعة Safaa_New.accdb

اللي فهمته 1- سيتم عمل اسكان لورقة 2- تريدي قص هذه الصورة لاستبعاد الأجزاء الغير مرغوب بها 3- تغير مقاس هذه الصورة فيما يخص النقطة رقم 2 - إذا أمكن مشاركة صورة للتجربة - حسب تصوري يجب أولاً معرفة جودة هذه الصورة حتي نتمكن من حساب البكسلز ومعرفة كيفية حساب الجزء المستبعد ثم قص الصورة فيما يخص النقطة رقم 3 فهمت من الصور ان المقاس المرغوب هو 8.5 * 11 بوصة(انش) وليس سم *ملحوظة هذا المقاس ليس A4 إنما US Letter Size A4 > 8.3 * 11.7 بوصلة A4 > 21 * 29.7 سم

السلام عليكم ورحمة الله وبركاته الأستاذة صفاء يمكنك إضافة الكود التالي في الحدث عند النقر او في Public sub واستدعائه Dim msgResponse As VbMsgBoxResult Dim totalRecords As Integer Dim totalSeeReport As Integer Dim totalNotEmptyResult As Integer Dim totalEmptyResult As Integer Dim tableName As String tableName = "test_order_tbl" totalRecords = DCount("*", tableName) If totalRecords = 0 Then MsgBox "There are no records in Table : " & tableName, vbCritical + vbOKOnly, "Error : No Records" Exit Sub End If totalSeeReport = DCount("[see_report]", tableName, "[see_report]=false") totalNotEmptyResult = DCount("[see_report]", "test_order_tbl", "[see_report]=false and not isnull([result])") totalEmptyResult = DCount("[see_report]", "test_order_tbl", "[see_report]=false and isnull([result])") If totalSeeReport = totalEmptyResult Then MsgBox "No need To Print this Report", vbInformation + vbOKOnly, "No Need To Print" Exit Sub ElseIf totalSeeReport = totalNotEmptyResult Then ' Here you shuold add the print code to print all records Debug.Print "Report Printed" Else msgResponse = MsgBox("Only Some Results Exist" & vbCrLf _ & "Do you want to Print The report ?", vbQuestion + vbYesNo, "Do You want to Print ?") If msgResponse = vbYes Then ' Here you shuold add the print code to print all records Debug.Print "Report Printed" Else Debug.Print "Report will not be Printed" End If End If اما بخصوص هل تم طباعته من قبل وحتي لا نضيف أي شي لواجهة البرنامج فاقتراح إضافة عمود بالجدول او اثنين 1- نعم او لا إذا تم الطباعة 2- لعدد مرات الطباعة إذا كان هذا الاقتراح مناسب فيمكنك التعديل علي الملف ومشاركته مرة أخرى وإن شاء الله سأضيف الاكواد اللازمة لتحديثه

الدالة بالفعل تبحث باسم الكتاب والرقم إذا امكنك تزويدي بمكتبة كبيرة او واحدة تضمن بعض الأمثلة كما ان فكرة استبدال الاسم بالفعل فكرة ممتازة اذا كنت تملك قاعدة بهذه الأسماء وبدائلها فيمكن العمل علي دالة تقوم بهذا الاستبدال كما يمكن أيضاً إعداد نص أخر سوف أقوم "إن شاء الله" باستبدال الاسم بوضعه داخل علامات مميزة مثال الأربعين في مناقب أمهات المؤمنين يصبح (BN) الأربعين في مناقب أمهات المؤمنين (BN) بشرط ان هذه العلامة لا توجد بالاحاديث وبهذه الطريقة يمكن عمل دالة تستخرج جميع الاحاديث داخل النص 1- عمل دالة لاستبدال جميع بدائل الأسماء لتوحيد الاسم داخل النص 2- استبدال (ص 3- يجب معالجة المواضع المتأخر بإيجاد طريقة لاستبدال و( باسم الحديث الذي يأتي قبلها 4- عمل دالة تتبع النمط التالي (BN) كلام (BN) مسافة او أي فواصل ( { وهكذا ثم ارقام ثم إلي أخر رقم او ) وبهذه الطريقة سيكون لدينا جميع الاحاديث داخل هذا النص ومن ثم يمكن التفكير في طريقة للعمل عليها وتحليلها بالتفكير فالنقطة رقم 3 فيمكن إن شاء الله عمل دالة تبحث قبل الـ و( حتي تصل إلي (BN) ثم تستبدل أسأل الله التوفيق والسداد