عمل كمبوبوكس لأختيار حقل البحث

[ًعبد من عباد الله]

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

عمل كمبوبوكس لأختيار حقل البحث.rar

تم تعديل أغسطس 24, 2017 بواسطه وائل أبو عبد الرحمن

[ًعبد من عباد الله]

الأخوة الكرام

هل في المطلوب شيء غير واضح أو شىء يستحيل تنفيذه 

للرفع

[ًعبد من عباد الله]

للرفع

[ًعبد من عباد الله]

من يدخل على أنفسنا السرور وله من الله الأجر

للرفع

تم تعديل أغسطس 29, 2017 بواسطه وائل أبو عبد الرحمن

[أكسس وبس]

اخى الكريم دى كذا طريقة للبحث ممكن تلاقيها فيها طلبك شوف الى يناسبك 

طرائق البحث.rar

[ًعبد من عباد الله]

الأخ الكريم شكرا لاهتمامك بالرد ولكن 

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

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

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

تم تعديل أغسطس 30, 2017 بواسطه وائل أبو عبد الرحمن

[صالح حمادي]

السلام عليكم

تستعمل هذا الكود خلف زر البحث

If IsNull(Me.iSearch) Then
  Me.FilterOn = False
  Me.iSearch.SetFocus
Else
  Me.Filter = Nz(Me.fild_search, "IDfoaid") & "='" & Me.iSearch & "'"
  Me.FilterOn = True
End If

 

و هذا التعديل على الملف

عمل كمبوبوكس لأختيار حقل البحث.rar

[ًعبد من عباد الله]

 

6 ساعات مضت, صالح حمادي said:

السلام عليكم

وعليكم السلام ورحمة الله وبركاته

أستاذ صالح حمادى. بارك الله فيك

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

ثانيا أسمح لى مشكورا بعد نجاح الخطوة الرئيسية الأولى إبداء أسنفسار وطلب تعديل أحتاج لوجوده ربما يكون التعديل بسيطا لحضرتك ولكنه يصعب على اتمامه بمفردى :-

- والاستفسار لماذا تظهر بيانات الحقول كلها عند فتح النموذج باسم ( #Name? ) ولا تظهر بيانات الحقول الحقيقية مكتوبة بوضعها الطبيعى كما تظهر عند البحث.

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

شكر الله لك وعظم أجرك في هذا اليوم الطيب المبارك وأحسن الله إليك كما أحسنت إلينا 

تم تعديل أغسطس 31, 2017 بواسطه وائل أبو عبد الرحمن

[صالح حمادي]

و كل عام و الأمة الإسلامية بألف خير إن شاء الله.

8 ساعات مضت, وائل أبو عبد الرحمن said:

ثانيا أسمح لى مشكورا بعد نجاح الخطوة الرئيسية الأولى إبداء أسنفسار وطلب تعديل أحتاج لوجوده ربما يكون التعديل بسيطا لحضرتك ولكنه يصعب على اتمامه بمفردى :-

- والاستفسار لماذا تظهر بيانات الحقول كلها عند فتح النموذج باسم ( #Name? ) ولا تظهر بيانات الحقول الحقيقية مكتوبة بوضعها الطبيعى كما تظهر عند البحث.

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

تفضل هذا التعديل الذي طلبته:

 

 

البحث بالحقل.rar

[ًعبد من عباد الله]

36 دقائق مضت, صالح حمادي said:

تفضل هذا التعديل الذي طلبته

أستاذى الكريم بارك الله فيك وتفعنا بعلمك وعملك

فضلا من حضرتك لا أمرا هناك 3 أمور أود أن أضعها بين يدي حضرتك لعلها تخرج على الوجه المراد

1- نتائج البحث لا تخرج كما كان في المرفق الأول مثلا جرب حضرتك البحث عن كلمة (اربع) في عنوان الفائدة في المرفقين تجدها في المرفق الأول تخرج بالنتائج بشكل جيد وفي المرفق الأخير لا تخرج أى نتائج.

2- بند الكل لم يتم عمله فلا أعلم هل حضرتك لم تنتبه له أم أن الأمر يصعب تنفيذه.

3- ارجو إذا كان بالإمكان تغيير مسميات الحقول للعربية من خلال الكود لا من خلال إنشاء جدول جديد لها وعلة ذلك أن نموذج البحث هذا سوف يتم تعميمه على العديد من النماذج التى اريد عمل بحث في جداولها وطريقة عمل جدول مساند لكل نموذج بحث لتغيير مسميات حقوله سيكثر من عدد الجداول بشكل كبير.

ادعو الله لكم في هذه الوقت من هذا اليوم وهو أعظم ايام الدعاء أن يتقبل منكم قضاء حاجتنا وان يدخل السرور عليكم كما تسرونا باهتمامكم

تم تعديل أغسطس 31, 2017 بواسطه وائل أبو عبد الرحمن

[صالح حمادي]

السلام عليكم

كل عام و أنتم و الأمة الإسلامية بألف خير

استعمل هذا الكود:

Dim sql_search As String
Dim fild_sear As String

Select Case Me.fild_search
  Case "الموضوع"
      fild_sear = "Object"
  Case "عنوان الفائدة"
      fild_sear = "FaedaTitle"
  Case "المرجع"
      fild_sear = "Mraj3Name"
  Case "القائل"
      fild_sear = "KaeelName"
  Case "فائدة طويلة"
      fild_sear = "FaedaNass"
  Case "فائدة قصيرة"
      fild_sear = "FaedaNass1"
  Case "الكل"
      fild_sear = "tout"
  Case Else
      fild_sear = "Object"
End Select

If fild_sear = "tout" Then
  sql_search = "SELECT * FROM Foaid where " & "(((Object) LIKE ""*" & Me.iSearch & "*""))" & "Or (((FaedaTitle) LIKE ""*" & Me.iSearch & "*""))" & "Or (((KaeelName) LIKE ""*" & Me.iSearch & "*""))" & "Or (((Mraj3Name) LIKE ""*" & Me.iSearch & "*""))" & "Or (((FaedaNass) LIKE ""*" & Me.iSearch & "*""))" & "Or (((FaedaNass1) LIKE ""*" & Me.iSearch & "*""));"
  Me.RecordSource = sql_search
ElseIf IsNull(Me.iSearch) Then
  sql_search = "SELECT * FROM Foaid"
  Me.RecordSource = sql_search
Else
  sql_search = "SELECT * FROM Foaid WHERE " & fild_sear & " LIKE ""*" & Me.iSearch & "*"""
  Me.RecordSource = sql_search
End If

و  هذا هو التعديل على مرفقك:

 

البحث بالحقل.rar

[ًعبد من عباد الله]

21 ساعات مضت, صالح حمادي said:

كل عام و أنتم و الأمة الإسلامية بألف خير

استعمل هذا الكود:

وعليكم السلام ورحمة الله وبركاته

أستاذ صالح حمادى.

بداية كل عام وأنتم بخير وصحة وسعادة وعيد أضحى سعيد 

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

ثالثا أعلم أنى ربما اتعبتك حضرتك لذا ارجو أن يتسع صدرك وكرمك لتعديلين واستفسار فضلا وتكرما

1- أريد إضافة الوحدة النمطية Simplify لعمل الكود الذى يقوم بالبحث حتى يتم تجريد كلمات النصوص من التشكيل و الهمزات وخلافه عند البحث.

أو أن يتم البحث في الكود من خلال الاستعلام qry_SearchAllTxt لأنه يقوم بنفس الغرض.

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

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

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

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

 

تم تعديل سبتمبر 2, 2017 بواسطه وائل أبو عبد الرحمن

[صالح حمادي]

السلام عليكم

تفضل التعديل به الطلب 1 و 2

أما رقم 3 فهو لا يخص هذا الموضوع و الأفضل فتح موضوع جديد خاص به

موفق إن شاء الله أخي وائل.

 

 

البحث بالحقل.rar

[ًعبد من عباد الله]

8 ساعات مضت, صالح حمادي said:

السلام عليكم

وعليكم السلام ورحمة الله وبركاته أستاذى العزيز صالح حمادى

8 ساعات مضت, صالح حمادي said:

موفق إن شاء الله أخي وائل.

آمين

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

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

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

ملحوظة: حتى لا أتعب حضرتك بالمرفق مثالين للتعديل المطلوب ولكن لم أستطع التطبيق.

بغير استعجال سأكون في الانتظار وشكرا جزيلا لحضرتك وعظم الله أجرك ومثوبتك على هذا العمل وجزاك الله خير 

تظليل كلمة البحث مع حساب االتكرار.rar

تم تعديل سبتمبر 10, 2017 بواسطه وائل أبو عبد الرحمن

[ًعبد من عباد الله]

الأخ والأستاذ الفاضل صالح حمادى

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

جزاكم الله خيرا.rar

تم تعديل سبتمبر 14, 2017 بواسطه وائل أبو عبد الرحمن

[عيسى الحوراني]

جزاكم الله خيراً على الموضوع المفيد

هل بالامكان ان يتم البحث بخيارين او اكثر بلا من الكل

[ًعبد من عباد الله]

14 دقائق مضت, عيسى الحوراني said:

جزاكم الله خيراً على الموضوع المفيد

أخى عيسى

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

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

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

كلها أفكار جميلة ومتنوعة أختار منها ما يناسبك ولقد أستفدت منها كثيرا فجزا الله الجميع خيرا على إسهاماتهم الطيبة والدال على الخير كفاعلة 

تم تعديل سبتمبر 19, 2017 بواسطه وائل أبو عبد الرحمن

[عيسى الحوراني]

حياك الله استاذ وائل 

الي اتكلم عنه مختلف 

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

انظر موضوعي وطلبي

 

[ًعبد من عباد الله]

أستاذ عيسى

أتمنى أن تجد أحد الأخوة من الخبراء يستطيع تلبيه طلبك

[صالح حمادي]

السلام عليكم و رحمة الله تعالى و بركاته:

أخي وائل آسف جد جدا لأني أطلت عليك فضغوط العمل و قدوم الوالد من البقاع المقدسة منعني من الدخول إلى الأنترنت

لقد قمت بإجراء التعديلات اللازمة على عجالة من أمري.

تفضل المرفق به التعديل:

 

جزاكم الله خيرا.rar

[ًعبد من عباد الله]

5 ساعات مضت, صالح حمادي said:

السلام عليكم و رحمة الله تعالى و بركاته

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

5 ساعات مضت, صالح حمادي said:

لقد قمت بإجراء التعديلات اللازمة على عجالة من أمري.

بارك الله فيك على حرص حضرتك على إتمام التعديلات والتى ربما ينقصها تسميه الحقول في مربع تحرير وسرد الفرز ولكن لا بأس بما وصلنا إليه ما دمت مشغولا

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

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

تم تعديل سبتمبر 24, 2017 بواسطه وائل أبو عبد الرحمن

[صالح حمادي]

في ٢٤‏/٩‏/٢٠١٧ at 16:24, وائل أبو عبد الرحمن said:

والتى ربما ينقصها تسميه الحقول في مربع تحرير وسرد الفرز

لقد تركت ذلك عمدا لتكمله وحدك. لأنني أعطيتك الطريقة في كمبوبكس البحث.لكن لا بأس تفضل استعمل هذا الكود:

Dim fiald_classement As String

Select Case Me.fsortN
        Case "الرقم"
            fiald_classement = "ID"
        Case "تصنيف رئيسي"
            fiald_classement = "MainCategory"
        Case "تصنيف فرعي"
            fiald_classement = "SubCategory"
        Case "السؤال"
            fiald_classement = "Question"
        Case "الإجابة"
            fiald_classement = "Answer"
        Case "المصدر"
            fiald_classement = "Source"
End Select

 

جزاكم الله خيرا.rar

[ابو جودي]

وزيادة فى الخير بعد اذن استاذى القدير واخى الحبيب الكريم الاستاذ @صالح حمادي 

فكرة اخرى  لمن يصعب عليه التعامل مع الاكواد بحيله صغيرة وتؤدى نفس النتيجة ان شاء

تحويل أسماء الحقول فى مربع تحرير وسرد ( الفرز ) إلى أسماء عربية.rar

[ًعبد من عباد الله]

10 ساعات مضت, صالح حمادي said:

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

أستاذى المحترم صالح حمادى

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

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

10 ساعات مضت, ابا جودى said:

زيادة فى الخير

بشمهندس محمد عصام جعلك الله دائما مفتاحا للخير مغلاقا للشر ونفعنا الله بمجهودتكم وإبداعاتكم المعهودة عنكم

أتمنى متابعكم الكريمة لبقية مواضعيى حتى أنتهى من إتمام برنامجى لا حرمنا الله من تعاونكم معنا على الخير وجزاكم الله عنى كل خير وشكرا لكم 

تم تعديل سبتمبر 26, 2017 بواسطه وائل أبو عبد الرحمن

[صالح حمادي]

لقد أجريت بعض التعديلات هنا.

 

جزاكم الله خيرا.rar