ToMix قام بنشر أكتوبر 31, 2006 قام بنشر أكتوبر 31, 2006 طابت ايامكم اخواني سؤالي لا يبتعد كثيراً عن ما كتب في عنوان الموضوع ولكن سأكتب هنا للإيضاح فقط !! لدي أكثر من تقرير في البرنامج ، اريد ان اضع في النموذج الرئيسي قائمة منسدلة تظهر لي جميع التقارير التي في البرنامج يبدأ اسمها بـ (rpt) مثلاً .. هل هناك دالة او كود يظهر لي اسماء كافة التقارير التي تبدأ بـ(rpt) ؟؟ وشكرا لكم مقدماً بانتظار الـــــرد
ToMix قام بنشر نوفمبر 5, 2006 الكاتب قام بنشر نوفمبر 5, 2006 UP اخواني انا حصلت هذا الكود ارجو من يملك الخبرة بأن يفهمني وش الفايدة منه وهل ينفعني في تنفيذ المطلوب في الموضوع الرئيسي وشكراً Me.lstForms.RowSource = "SELECT DISTINCTROW Mid([Name],4) AS Expr1, MSysObjects.Type FROM MSysObjects WHERE (((MSysObjects.Type)=-32764) AND ((MSysObjects.Name) Like ""rpt*"")) OR (((MSysObjects.Type)=-32768) AND ((MSysObjects.Name) Like ""rpf*"")) ORDER BY MSysObjects.Name;"
rudwan قام بنشر نوفمبر 5, 2006 قام بنشر نوفمبر 5, 2006 مكونات ملف الأكسس تخزن في جدول مخفي من جداول النظام و اسمه MSysObjects , و هذا الاستعلام يحضر لك أسماء المكونات التي من نوع تقرير أي (((MSysObjects.Type)=-32764) و من هذه التقارير اعرض فقط التقارير التي يبدأ اسمها ب rpt أي ((MSysObjects.Name) Like ""rpt*"")) لذلك فان الجزء الأول فقط هو الذي يفيدك و هو : Me.lstForms.RowSource = "SELECT DISTINCTROW Mid([Name],4) AS Expr1, MSysObjects.Type FROM MSysObjects WHERE (((MSysObjects.Type)=-32764) AND ((MSysObjects.Name) Like ""rpt*"")) أما الباقي فهو يحضر لك أسماء النماذج بعد كلمة Or حيث كود النماذج في ذلك الجدول هو -32768
ToMix قام بنشر نوفمبر 5, 2006 الكاتب قام بنشر نوفمبر 5, 2006 (معدل) الحمدلله والشـكـر من قبل ومن بعد اتقدم لك عزيزي بكل الشكر والتقدير على مساعدتك ولا اخفي عليك بأنني توصلت إلى المطلوب بنفسي بعد إجراء عدة اختبارات للكود وذلك قبل أن أدخل واشاهد ردك .. فاحياناً انا أدرك بأنني استطيع فعل ما اريد ولكنـي في أحيان أخر يتملكني الإحساس باليأس .. ولكن الذي استفدته منك عزيزي هو شرحك الرائع لهذا الكود ومنه استفدت استفادة عظمى لا تتصورها .. لك كل التقدير والتحايا تم تعديل نوفمبر 5, 2006 بواسطه ToMix
ToMix قام بنشر نوفمبر 5, 2006 الكاتب قام بنشر نوفمبر 5, 2006 سؤال عالطاير قبل لا تغلق الجلسة ايهما افضل ان اعمل ضغط وإصلاح لقاعدة البيانات قبل الانتهاء من البرنامج أو بعد الانتهاء منه حيث انني قمت بعمل ضغط واصلاح لقاعدة البيانات ولا زلت اعمل على تنقيحها وترتيب النماذج ووالخ هل سيسبب لي هذا ظرر في المستقبل وشكراً
يوسف أحمد قام بنشر نوفمبر 5, 2006 قام بنشر نوفمبر 5, 2006 استاذنا / rudwan يعطيك الف عافية على هذه المعلومات القيمة اخي ToMix عمل الضغط والإصلاح بعد الإنتهاء افضل حسب معلوماتي المتواضعة وهناك طريقة لعمل الضغط والإصلاح عند كل إغلاق للبرنامج وهي كالآتي : اذهب إلى قائمة ادوات - خيارات ثم ومن التبويب عام قم بتفعيل ضغط عند الإغلاق. هذا وبالله التوفيق
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.