كوماندير قام بنشر أغسطس 30, 2015 قام بنشر أغسطس 30, 2015 السلام عليكم اخواني بالمرفق احاول البحث عن عن قيمة احد الحقول ( في النموذج المستمر) حسب اختياري ل اسم الحقل من ( الكومبوبوكس ) وحسب عامل تشغيل المقارنة الذي اخترته من ( الكومبوبوكس ) وحسب القيمة في حقل ( TextToComp ). وماهي الطريقة لجعل التسمية التوضيحية تظهر بالقائمة المنسدلة لـ ( كمبوبكس اسماء حقول الجدول ) بدلا عن ظهور اسماء الحقول كما سيظهر بالمرفق . لم اهتد لطريقة معينة فهلا ساعدتموني في ايجاد الحل . شاكرا للكل . وهذا المرفق : QueryByService.rar
رمهان قام بنشر أغسطس 31, 2015 قام بنشر أغسطس 31, 2015 (معدل) سؤال جميل الان حسب فهمي انه يتكون من جزئين : 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 بواسطه رمهان
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.