البحث عن قيمة حقل حسب عوامل تشغيل المقارنة

[كوماندير]

السلام عليكم

 

اخواني بالمرفق احاول البحث عن عن قيمة احد الحقول ( في النموذج المستمر) حسب اختياري ل اسم الحقل من ( الكومبوبوكس ) وحسب عامل تشغيل المقارنة الذي اخترته من ( الكومبوبوكس ) وحسب القيمة في حقل ( TextToComp ).

وماهي الطريقة لجعل التسمية التوضيحية تظهر بالقائمة المنسدلة لـ ( كمبوبكس اسماء حقول الجدول  ) بدلا عن ظهور اسماء الحقول كما سيظهر بالمرفق .

لم اهتد لطريقة معينة

 

فهلا ساعدتموني في ايجاد الحل . 

 

شاكرا للكل .

وهذا المرفق :

 QueryByService.rar

[رمهان]

سؤال جميل

الان حسب فهمي انه يتكون من جزئين :

1. البحث بواسطة تغير الحقل وعامل المقارنة ثم القيمة في مربع النص : وهنا يظهر استفسار : ماذا تقصد بالبحث ؟ : هل هو بحث في البيانات الموجودة فقط وبعد اختيار الشركة من اعلى ؟ ام تريد اعادة البحث في الجدول كاملا بغض النظر عن البيانات التي هي ناتج اختيار الشركة والتاريخ ؟!!

2. تريد اظهار التسمية التوضيحيه بدلا من اسم العمود : هنا يوجد طريقة سهلة وهي ان تجعل المصدر استعلام ومعادة تسمية الاعمدة وسيكون هذا الاستعلام مصدرا للسرد وبنفس خاصية مصدر الصف قائمة الحقول ! ولكن هنا نحن نحتاج لاسم الحقل لتطبيق الفقرة رقم 1 وهذا يجعلنا ان نضطر ان يكون القائمة عبارة عن عمودين >> الاول لاسماء الحقول لاستخدامها فعليا كشرط او معيار للفقرة 1 وهذا العمود سيكون مخفي . اما الثاني فسيظهر التسمية ويكون مرئي للمستخدم !

هنا تم تغيير خاصية نوع مصدر الصف=قائمة القيم والتي سنظيفها من الكود ! وكذلك لاحظ خاصيتي عدد الاعمدة وعرض الاعمدة للاخفاء والاظهار كما اسلفت :

هذا الكود وهذا الملف ! وبالنسبة للفقرة 1 انتظر اجابتك على الاستفسار !

Private Sub TextServic_GotFocus()
TextServic.RowSource = ""
For i = 0 To CurrentDb.TableDefs("tblorders").Fields.Count - 1
xs = xs & CurrentDb.TableDefs("tblorders").Fields(i).Name & ";" & CurrentDb.TableDefs("tblorders").Fields(i).Properties("caption") & ";"
TextServic.RowSource = xs
Next
End Sub

بالتوفيق

 

QueryByService.rar

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