ابو جودي

انا اسف كنت على عجله من امرى فلم اقم بالتطبيق على استعلام وهذا المرفق بعد التعديل للعلم الاستعلام مرتبط حتى يعمل بالموديول استخراج السن فى اول اكتوبر عن طريق دالة فى الاستعلام.rar

اتفضل معالجة البيانات من الرقم القومى.rar

طيب اتفضل جرب حمل دى https://up.top4top.net/downloadf-631220mc1-rar.html تم استيراد جميع كائنات قاعدة البيانات الى قاعدة جديده والقاعدة تعمل بدون اى مشاكل قبل وبعد الاستيراد اى القديمه والتى ارفقتها اليكم لو حدثت نفس المشكلة قم بازالة الاوفيس واعادة تنصيبه مرة اخرى

طيب ارفع القاعدة على اى موقع لرفع الملفات ونحاول نجرب نعمل احنا القاعدة الجديدة ونقوم باستيراد الكائنات ونبعتها لحضرتك تانى وتجرب مركز لرفع الملفات https://up.top4top.net/

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

طيب جرب تعمل قاعدة بيانات جديده ثم قم باستيراد كل الكائنات من قاعدة البيانات البيانات القديمه اليها وايضا قم بعمل الاتى ثم ثم ثم ثم جرب يمكن تظبط

انت عندك اوقيس ايه وكام بت 32 بت واللا 64 بت

طيب انا بصراحه مش عارف اساعد حضرتك ازاى انا اسف جدا

اضغط القاعدة باستخدام وين رار مثلا او احد برامج الضغط او ارفعها ان احببت على اى موقع لرفع الملفات وخلينا نشوف عل الله يهئ لنا من امرنا رشدا

طيب ممكن حضرتك ترفق قاعدة البيانات للاطلاع عليها

تأكد من اعدادات اللغة ركز معى وتابع تلك الاعدادت من لوحة التحكم وسيعمل معك البرنامج على كل الحواسيب التى ستقوم بتعديل هذه الاعدادت بها 1- افتح لوحة التحكم " Control Panel " 2- اعدادت اللغة المحلية والاقليمية " Regional and Language Option " أو "Language" حسب نوع نظام التشغيل 3- تابع الشرح بالصور 4- اختر اللغة العربية التى تناسبك سيطلب عمل ريستارت للجهاز حرب وان شاء الله تنحل مشكلتك

شوف الموضوع ده ممكن يساعدك على الاقل هذا ما استطيع تقديمه فى الوقت الحالى لضيق وقتى حاول فهم الامثله والتطبيق وان شاء الله لى عوده

واحب اضيف اضافة مع استاذى الجليل ومعلمى القدير ووالدى الاستاذ @jjafferr FindAsUType-update.rar

ممكن سؤال وتأكد لى رجاء هل الاوفيس 64 بيت ام الويندوز 64 بيت للعلم لو ان الاوفيس 32 بيت والويندوز 64 بيت لن تحدث اى مشاكل وانت ذكرت فى مشاركتك

شوف الافكار دى لو عجبتك يمكنك نقلها الى مرفقك معالجة البيانات من الرقم القومى.rar

حضرتك نقلت الكود منين ممكن ترفع لى القاعدة الاصلية اللى بها كود البحث هذا " المصدر "

انا مش فاهم ممكن حضرتك توضح اكتر

معلش وقتى لا يسعنى الان لمحاولة تحميل وتعديل القاعدة ولكن فى المنتدى مشاركة قد يكون فيها افكار متقاربة لتؤدى الغرض ان شاء الله ولى عودة اليكم ان شاء الله ان كان فى العمر بقية فان تعذر عليكم التطبيق ان شاء الله اشرح اليكم الافكار

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير الاستاذ @رمهان تحية طيبة وبعد اسمح لى ان اتقدم بتلك الافكار البسيطة على استحياء لى سؤال ماذا لو ان الجدول يحتوى على 10 حقول واريد ان يقتصر البحث على عدد 4 حقول فقط ؟ ما السبيل الى ذلك بهذه الطريقة سوف اكون ملزما بكل الحقول فى الجدول ان تكون موجوده داخل الكمبوبوكس تم التحايل على تلك المعضلة بفضل الله سبحانه وتعالى الذى هدانى لعمل فكرة بسيطه فى استعلام خاص باختيار الحقول المراد استخدامها فى البحث فقط "qrySearchFields" ثم الاستكمال على خطاكم ونظرا لانى لا احب التعامل مع اسماء الكائنات بالعربى انا حولتها انجليزى فى الجدول وكنت حابب اسماء حقول البحث فى التحرير والسرد ان تكون عربية فقمت باعادة تسميتها داخل الاستعلام الاول الخاص باختيار الحقول "qrySearchFields" وسيحتم علينا هذا عمل استعلام اخر ليكون هو مصدر بيانات نموذج البحث ليصبح الاستعلام الاخر يحتوى على نفس الاسماء التى تم اعادة تسميتها لحقول البحث فى الاستعلام "qrySearchFields" ثم اضافة باقى الحقول من الجدول والتى لم يتم عمل اعادة تسمية لها واسم الاستعلام الذى هو مصدر بيانات النموذج "qrySearch" وتم عمل المطلوب كما تمنيتم ادعوا الله تعالى لاستاذى الجليل ومعلمى القدير الاستاذ @رمهان هو وكل اساتذتنا الكرام فى هذا الصرح العظيم الذين سنظل ندين لهم بكل الفضل بعد رب العزة سبحانه وتعالى هم والقائمين على امور المنتديات فلم يبخلوا بالغالى والنفيس ولم يملوا او يكلوا اللهم زدهم يارب من فضلك اللهم بارك لهم فى اعمارهم واعمالهم واهلهم وولدهم اللهم زد فى حسناتهم يارب العالمين اللهم يسر وسهل لهم يارب دروب الجنان اللهم ارزقهم شربة هنيئة مريئة من يد نبينا وحبينا وسيدنا محمد صل الله عليه وسلم هم وكل المسلمين يارب العالمين احبكم فى الله ولوجه الله FindAsUType-update.rar

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير واخى الحبيب استاذ/ @رمهان والله وحشتنى اللمسات الرمهانية

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

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

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

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

شكرا استاذى الجليل ومعلمى القدير استاذ @أ / محمد صالح على كلماتكم الطيبة واسمح لى بالرد والتوضيح وربما تم حذف دالة cleantext من المرفق الخاص بكم سهوا رغم أنه لم يتم حذف النموذج quran لم تحذف الداله سهوا بل عن قصد لانه تم استبدالها مطلقا لم احذف النموذج هذا سهوا كان من المقترض حذف النموذج فعلا فالأفضل حذف الاثنين أو ابقاؤهما لم احذف النموذج هذا سهوا لان الافكار التى جالت بخاطرى كانت تستدعى عمل نموذج خاص بها والا لقمت بالتعديل على النموذد وابقيت عليه كما هو فلن يعمل البحث داخل النموذج بدون الدالة فلماذا الإبقاء على النموذج؟؟!!! فعلا لا فض فوك صح كلام حضرتك لا علم نية حضرتك فى الاسطر السابقة ورددت عليها ولكن استاذى الجليل استاذ @أ / محمد صالح اعطيت كل صاحب حق حقه فى كلماتى قمت بالتعديل على المرفق كما وضحتم اولا انظر الى التقريرين بالداله الخاصة بكم وبالاستاذ @ابو خليل بالاخص انظر الى بِسْمِ اللّهِ الرَّحْمـَنِ الرَّحِيمِ - كود الاستاذ ابو خليل جرد الكلمات من التشكيل وهذا ما لم يحدث بالداله الخاصة بحضرتك الحمد لله تعالى ان نسبت العمل الى صاحبه الكريم جزاه الله الخير كله اعتقد فى بعض الاحيان معيار الكيف اهم من الكم لذلك لم اعر عدد اسطر الكود اهتماما المطلب الثانى على ارض الواقع لو البحث سوف يكون على مثلا 10 حقول الكلمة المراد البحث عنها سوف تكون فى الحقل 5 هل علم المستخدم اين هو مكان الكلمة وفى اى حقل ؟ ولو قمنا بالوزن والعد لعدد الحروف والكلمات المستخدمه فى الكود سوف يكون Me.Filter = "cleantxt([field1]) Like ""*" & FindAsType & "*"" Or cleantxt([field2]) Like ""*" & FindAsType & "*""" Or cleantxt([field3]) Like ""*" & FindAsType & "*""" Or cleantxt([field4]) Like ""*" & FindAsType & "*""" Or cleantxt([field5]) Like ""*" & FindAsType & "*""" Or cleantxt([field6]) Like ""*" & FindAsType & "*""" Or cleantxt([field7]) Like ""*" & FindAsType & "*""" Or cleantxt([field8]) Like ""*" & FindAsType & "*""" Or cleantxt([field9]) Like ""*" & FindAsType & "*""" Or cleantxt([field10]) Like ""*" & FindAsType & "*""": Me.FilterOn = True - بينما استطاع المستخدم فى فكرتى المتواضعه اولا تحديد الحقل اولا اذا هو على علم مسبقا اين تقع الكلمة التى توافق نتيجة البحث -الكود اصغر - وربما ايضا حضرتك لاحظت ان فى فكرتى المتواضعة يستطيع المبرمج اختيار حقول البحث فقط وتسميتها كما يريد دون التقيد بكامل حقول الجدول وبالاسم الخاص بكل حقل والقول الفصل هو الحمد لله تعالى الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل فسبحانك لا علم لنا الا ما علمتنا انك انت العليم الحكيم اللهم اغفر لكل من تعلمنا منهم وعلى ايديهم ووالديهم يارب العالمين كل عام وانتم بخير البحث بدون تشكيل.rar