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

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

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

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

تم تعديل أغسطس 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

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

 

  في 30‏/8‏/2017 at 20:42, صالح حمادي said:

السلام عليكم

Expand  

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

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

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

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

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

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

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

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

[صالح حمادي]

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

  في 31‏/8‏/2017 at 03:25, وائل أبو عبد الرحمن said:

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

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

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

Expand  

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

 

 

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

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

  في 31‏/8‏/2017 at 11:49, صالح حمادي said:

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

Expand  

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

فضلا من حضرتك لا أمرا هناك 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

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

 

البحث بالحقل.rarFetching info...

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

  في 1‏/9‏/2017 at 12:38, صالح حمادي said:

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

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

Expand  

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

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

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

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

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

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

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

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

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

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

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

 

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

[صالح حمادي]

السلام عليكم

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

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

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

 

 

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

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

  في 9‏/9‏/2017 at 22:37, صالح حمادي said:

السلام عليكم

Expand  

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

  في 9‏/9‏/2017 at 22:37, صالح حمادي said:

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

Expand  

آمين

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

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

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

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

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

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

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

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

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

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

جزاكم الله خيرا.rarFetching info...

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

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

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

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

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

  في 19‏/9‏/2017 at 12:25, عيسى الحوراني said:

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

Expand  

أخى عيسى

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

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

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

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

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

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

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

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

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

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

 

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

أستاذ عيسى

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

[صالح حمادي]

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

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

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

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

 

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

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

  في 24‏/9‏/2017 at 09:05, صالح حمادي said:

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

Expand  

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

  في 24‏/9‏/2017 at 09:05, صالح حمادي said:

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

Expand  

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

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

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

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

[صالح حمادي]

  في 24‏/9‏/2017 at 14:24, وائل أبو عبد الرحمن said:

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

Expand  

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

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

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

  في 25‏/9‏/2017 at 21:37, صالح حمادي said:

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

Expand  

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

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

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

  في 25‏/9‏/2017 at 22:25, ابا جودى said:

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

Expand  

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

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

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

[صالح حمادي]

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

 

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