*تقارير* + *فورم* تلوين السجلات بناء علي شرط ( التنسق الشرطي)

فى تصميم التقرير

Format

conditional Formating

الأخ مصراوي - بارك الله فيك -

لكن ما فهمت شيء ..؟؟!!

أين أضع ذلك .. في أي حدث ؟؟

ثم لعلي لم أوفق في الشرح كما ينبغي ..

عندي تقرير مبني على أستعلام بحيث أدخل الشهر ثم النتيجة في التقرير عدة سجلات .. تحوي على حقول ( الاسم - الرقم - المدينة )

** المطلوب :

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

فكيف يتحقق ذلك بالكود ؟!!

1 افتح التقرير فى وضع التصميم

2 اختار حقل الاسم

3 من قائمة فورمات Format

4 اختار conditional Format

5 اختار Equal

6 اكتب "خميس"

7 ثم غير اللون الي الأحمر مثلا

8 احفظ التقرير ثم أغلقه

عند فتح التقرير ستجد كل الأسماء المساوية ل "خميس" ملونة بالأحمر بعد حفظ التقرير

اذا كان عندك أكسس 97 أعتقد أن هذه الخاصية لا تعمل معه

الأخ مصراوي .. السلام عليكم ورحمة الله وبركاته وبعد

أولاً : الأكسيس عندي 2000 عربي .. ولم ارف ماذا يقابل Format أو conditional Format

؟؟!!

فهل شرحت لي ماذا يقابلها في الأكسس العربي 2000 .

ثانياً : المطلوب تلوين كافة خط السجل الذي قيمة حقل المنطقة فيه ( خميس مشيط ) وتلوينه باللون الأحمر .. وإذا كانت مثلاً الرياض تلوين باللون الأخضر وهطذا ( يعني أريد تخصيص خط لكل سجل يتبع مدينه معينه )

وأكرر شكري وتقديري لك مقدماً ومؤخراً ..

كما نأمل من بقية الأخوان المشاركة

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

في حدث عند التنسيق لمقطع تفصيل ضع :

Select Case المنطقة
Case "خميس مشيط": تغيير_لون_الخط (255)
Case "مكة": تغيير_لون_الخط (6723891)
Case Else ' هذا إذا لم تكن المدينة أي من المدن السابقة
تغيير_لون_الخط (0)
End Select

أكمل بقيتها حسب رغبتك .

وفي نهاية الوحدة النمطية للتقرير ضع :

Private Sub تغيير_لون_الخط(رقم_اللون As Long)
Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Or _
        ctl.ControlType = acComboBox Then ctl.ForeColor = رقم_اللون
    Next ctl
End Sub

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

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

Private Sub تغيير_لون_الخط(رقم_اللون As Long)
Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox And ctl.Name <> "اسم مربع النص" Or _
        ctl.ControlType = acComboBox Then ctl.ForeColor = رقم_اللون
    Next ctl
End Sub

ولك تحياتي

آسف ليس لدي النسخة العربية حاليا

أعتقد أنها ستكون

من قائمة تنسيق ( فى وضع تصميم التقرير)

اختار

تنسيق مشروط

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

حياك الله يا أخي مصراوي ..

لكن وين تنسيق مشروط لم أجدها في قائمة تنسيق التقرير ..

ممكن تطلع على المسنجر ..

amotaib@hotmail.com

وتحياتي لك ..