تغير لون حقل ما في ال DataReport تبعاُ للقيمة؟؟؟

لماذا لم يعمل البرنامج لدي؟

الأخ g-johnny

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

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

كريستال ريبورت 4

ةشكرا للأخ أبراهيم الطيب علي هذا الربط الذي بحثت عنه كثيرا ، وكنت أتمني العثور عليه أثناء إعداد دورة كريستال ريبورت

ملحوظة

حجم هذه النسخة حوالي 4ميجا فقط ومع ذلك بها من الإمكانيات الكثير ، بحيث يمكنك إنشاء تقارير محترفة ، تفوق في قوتها التقارير التي يتم إنشائها بواسطة داتا ريبورت

Major

الأخ g-johnny

شكرا جزيلا على المثال ولكن عند التشغيل نظهر الصورة التالية

لم افهم ما المقصود بها؟

pic1.zip

Dena22 جربي الأن الملف المرفق

Dena22.rar

الاخ : major

تحية من القلب ...

بالنسبة لل datareport فقد وجدت طريقة كالتالي :

نقوم بتصدير البيانات المطلوبة الى جدول جديد (مثال الطلاب والعلامات). يكون فيه حقل العلامات مجزأ الى حقلين( علامة1 & علامة2) حقل نخزن فيه العلامات الاكبر من 60 والآخر الأقل من 60.

ثم عن طريق ال dataReport نضع text1 & text2 فوق بعضهما البعض وكل واحد بلون مختلف ومرتبط مع الحقلين( علامة1 & علامة2) وبالتالي الحقل الفارغ لن يظهر وإنما الحقل الذي يحوي على قيمة العلامة هو الذي يظهر ، وبالتالي باللون الذي نريده.

طبعا هذه الطريقة مفيدة ولكن مع خيارات الالوان القليلة لانها تتعلق بعدد الحقول المجزأة.

بالنسبة للكريستال ريبورت فلدي الاصدار 4 ولكن لم أتعامل معه ولم استطع تحميل الاصدار 9 حتى الان.

على اية حال ان كان بالامكان توضيح كيفية عمل ذلك عن طريق الكريستال الاصدار 4 وإن كان بمثال أفضل و أفضل ......

شكراً لكل من ساهم في هذا الموضوع وأرجوا أن يستفيد كل أخ في هذا المنتدى من الملف المرفق

;)

color.rar

الأخ g-johnny

لازالت تظهر لي نفس الرسالة المرفقة ما سببها ؟

أرجو التوضيح

Dena22 كتب:

الأخ g-johnny

لازالت تظهر لي نفس الرسالة المرفقة ما سببها ؟

أرجو التوضيح

←

لاأعلم لماذا ؟؟

غير ال connection في DataEnvironment1 ليرتبط مع قاعدة البيانات المرفقة.

وماهو مهم الكود التالي الذي يمكن أن تعدل فيه ليلائم خيارات الزمن المطلوبة.

Private Sub DataReport_Initialize()
If Hour(Time) < 14 Then
Me.Sections(2).Controls("text1").ForeColor = vbRed
Else
Me.Sections(2).Controls("text1").ForeColor = vbGreen
End If
End Sub

بسم الله الرحمن الرحيم

أخي العزيز إذاك كنت تستخدم كريستال ريبورت 9 فلاتكون عندك أي مشكلة حيث أن الكريستال ريبروت يعالج هذه المسألة بطريقة سهلة جدا وهي أنك تضغط بالزر الأيمن على الحقل المراد وضع شرط له وتختار أمر Highlight Expet ومن ثم تتابع وتضع أكتر من شرط هناك وذلك بحسب قيمة الحقل وتختار اللون الأمامي واللون الخلفي وممكن إطار الحقل والكثر ...

ِكرا جزيلا لجميع الأخوة على الردود

أخي g-johnny

ممكن تشرح لي الكود اكثر للتوضيح؟

إخواني الكرام لا أعتقد أن هناك ثمة طريقة تجعل تقرير الداتا ريبورت يلون كل سطر على حده لانه يقرأ مباشرة من الجدول ولا يتم تعبئه يدوياً

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

تحياتي

عزيزي omani :

لقد توصلنا إلى هذا الرأي بعدم الإمكانية لذلك حتى الآن ولكن إن عدت إلى ردودي سوف ترى طريقتي في تحقيق ذلك باشرح والملف المرفق.

شكرأ جزيلاً لمشاركتك معنا.