البحث في مربع تحرير وسرد

[عفرنس]

إخوتي الفضلاء : 

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

طبعا هو عند باسم المادة ( TEXT3 ) 

برنامج_تصدير_الطلاب_للسجل_الالكتروني_حسب_المادة_معتمد.mdb

[أبوبسمله]

السلام عليكم اخى @فايز..

وكل عام وانت واخوانى واساتذتى بخير تقبل الله من ومنكم صالح الاعمال

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

بالتوفيق اخى

[عفرنس]

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

وكل سنة وأنت طيب .. 

عيدكم مبارك . 

[طاهر الوليدي]

عيدكم مبارك مقدما ايها الاخوة الاعزاء

الفكرة كمايلي

عندي نموذج بحث معتمد على استعلام يقوم بالبحث عن اي عمود مثال

المبلغ رقم الفاتورة. البيان. الاسم .وغيرها

بحث شامل عن طريق الكمبوا في نموذج جدولي

المطلوب .

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

مثال عند عمود الاسم احيانه يتكرر الاسم في عمود البيان.

او رقم السند يتكرر مع عمود المبلغ .

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

اتمنا ان الفكرة وصلت

[kha9009lid]

في ٢٩‏/٧‏/٢٠٢٠ at 15:02, فايز.. said:

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

بعد اذن اخي الاستاذ @الفلاحجى حل اخر

في البداية عملنا استعلام اسميتة q_1 وجعلنا الاستعلام يساوي

SELECT Student.المادة
FROM Student
GROUP BY Student.المادة
HAVING (((Student.المادة) Like "*" & [Forms]![FORM2]![text3].[Text] & "*"))
ORDER BY Student.المادة;

ثم النموذج لمربع التحرير والسرد في تبويب بيانات غيرنا توسيع تلقائي الى لا

اخيرا في حدث عند مفتاح اعلى وضعنا الكود التالي

If Len(Me.text3.Text) > 0 Then
Me.text3.RowSource = "q_1"
     Me.text3.Dropdown
Else
     Me.text3.RowSource = "SELECT Student.المادة FROM Student GROUP BY Student.المادة"
End If

والنتيجة

 

قائمة.mdb

[أبوبسمله]

جزاك الله خيرا اخى واستاذ خالد 

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

 

[عفرنس]

2 ساعات مضت, kha9009lid said:

بعد اذن اخي الاستاذ @الفلاحجى حل اخر

في البداية عملنا استعلام اسميتة q_1 وجعلنا الاستعلام يساوي

SELECT Student.المادة
FROM Student
GROUP BY Student.المادة
HAVING (((Student.المادة) Like "*" & [Forms]![FORM2]![text3].[Text] & "*"))
ORDER BY Student.المادة;

ثم النموذج لمربع التحرير والسرد في تبويب بيانات غيرنا توسيع تلقائي الى لا

اخيرا في حدث عند مفتاح اعلى وضعنا الكود التالي

If Len(Me.text3.Text) > 0 Then
Me.text3.RowSource = "q_1"
     Me.text3.Dropdown
Else
     Me.text3.RowSource = "SELECT Student.المادة FROM Student GROUP BY Student.المادة"
End If

والنتيجة

 

قائمة.mdb 736 kB · 4 تنزيلات

جزاك الله خيرا اخي @kha9009lid 

[kha9009lid]

في ٣٠‏/٧‏/٢٠٢٠ at 14:07, طاهر الوليدي said:

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

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

الحقيقة هذا الامر ممكن ولكن الكثير من المبرمجين يفضلون البحث من خلال حقل او عدة حقول غير منظمة لسهولة عملها

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

من ابسط الطرق لعمل ذلك

• استخدام نماذج غير مرتبطة
• نموذج عادي ونتحكم في مصدر البيانات عند البحث من خلال الاكواد

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

تقبل تحياتي وكل عام وانتم بخير