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

يبدو أن الأمر فعلاً صعب. على كل أرجو أن يحاول جميع الخبراء ، لأنه يوجد من فعل ذلك.

للمتابعة. :(

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

نصيحة تحول إلى الكريستال ريبورت

badr313_32 كتب:

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

نصيحة تحول إلى الكريستال ريبورت

←

جميل ولكن كيف ؟؟؟؟؟؟؟؟

أرجوا إيضاح الطريقة لأنني قلت أنه يوجد من قام بذلك ولكن كيف؟؟؟

شكراً على المشاركة عزيزي badr313_32

تحية وبعد

بحاول اليوم ...... :wacko:

و ان شاء الله بكرة اعطيك الحل :D

سلام

المبرمج الطيب :)

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

if rs!f1 >60 then
  repengm.Sections("section2").Controls("lb2").backcolor = qbcolor(3)
datareport.show
end if

جرب هذا وانا سأجرب ايضا إن شاء الله وطبعا rs هي التي تعبي التقرير

تحياتي

اخوك ناصر

:(

أخي ناصر العزيز :

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

المطلوب بالطبع هو أن الحقل يكون تبعاً للقيمة المطلوبة وهي على سبيل المثال 60.

اي :

اسم الطالب العلامة

احمد 50 (أحمر اللون)

جمال 60 (أحمر اللون)

سعيد 80 (أخضر اللون)

سليم 90 (أخضر اللون)

------------------------------------------ :wacko:

بإنتظار المبرمج الطيب ، إضافة إلى كل الخبراء الطيبون.

للمتابعة................

يمكنك استخدام elseif لكل شرط

حسب قيمة rs المعبأه لمربع النص في التقرير

أخي العزيز ناصر :

هل جربت ونجحت معك ، إذا كان بالامكان أرجو إيضاحها بمثال بسيط.

شكراً على الاهتمام :blink: .

بسم الله

اخي الكريم

لاتظن اني نسيت الموضوع .... مازال في الذاكرة ... وما زالت المحاولات قائمة.. ومازلت ابحث جليا...

خاطرة :

اذكر ان احد الطلاب الذين كانوا معي عمل هذا الشيء لمؤسسة ما طلبت منه ذلك .... لكني لم اسأله عن الطريقة بس اللي أذكر انه قال لي انها اتعبته كثيرا .. علما ان الطالب هذا مبرمج من الدرجة الاولي وهو الان يدرس في جامعة الملك عبد العزيز في جده

الخلاصة : اني ساحاول كثيرا بشتى الطرق ... واذا باءت بالفشل فسأرد عليك

سلام

المبرمج الطيب :)

لا أدري ما المشكلة التي تواجهك الآن فالكود الذي وضعه الأخ nasser50001 صحيح ولكنك بحاجة إلى إضافة الجملة ( else ) فقط لتلوين الحقل باللون الآخر ...

if rs!f1 >60 then
    repengm.Sections("section2").Controls("lb2").backcolor = Green
    datareport.show
else
    repengm.Sections("section2").Controls("lb2").backcolor = Red
    datareport.show
end if

Set datareport.sourc = rs

shoqi كتب:

لا أدري ما المشكلة التي تواجهك الآن فالكود الذي وضعه الأخ nasser50001 صحيح ولكنك بحاجة إلى إضافة الجملة ( else ) فقط لتلوين الحقل باللون الآخر ...

if rs!f1 >60 then
    repengm.Sections("section2").Controls("lb2").backcolor = Green
    datareport.show
else
    repengm.Sections("section2").Controls("lb2").backcolor = Red
    datareport.show
end if

Set datareport.sourc = rs

←

لاأعلم كيف هو صحيح:

هل حللت الكود :

أرجوا إيضاح ذلك عن طريق مثال.

repengm ؟؟؟؟؟؟ :blink:

Set datareport.sourc = rs ؟؟؟؟؟؟ : :angry:

شرط إظهار التقرير هو إما lb2 جميعها باللون الاحمر أو أخضر؟؟؟؟؟؟ :wacko:

لأنني أعلم كيف تضاف ال else ولكن المشكلة بالكود

على أية حال ربما أنا على خطأ فليكن المثال هو الأفضل في الردود.

عفواً أخي g-johnny .. هههههههههههههههه

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

أنسى إنك تلون السجلات في الداتا ريبورت .. لكن ممكن تلونها بلون واحد فقط ...

معليش مره ثانية .. أنا شايفك تحمست وقمت ورديت باللون الأحمر .. ههههههههههههههه

shoqi كتب:

أنسى إنك تلون السجلات في الداتا ريبورت .. لكن ممكن تلونها بلون واحد فقط ...

←

عزيزي :

لقد قلت سابقاً أنه يوجد من فعل ذلك لذا لن أنس وسأبقى ساهراً حتى نصل إلى الحل.

أما اللون الأحمر لأن الكود خاطئ فأردت إيضاح ذلك.

ولا يهمك.. نحن أخوة. :lol:

إذا كان رأيتها ... ومتأكد من أنها داتا ريبورت ..

فأنا معك وسأبحث حتى أجد .. لأنها ميزة ممتازة ...

لكن هل انت متأكد أن بعض السجلات تكون بلون والأخرى بلون آخر ..؟

نعم صديقي رأيتها بعيني.

على أية حال ، إن كان هناك طريقة أخرى فلابأس فلنحاول سواء Crystal report....أو .. الخ. فالغاية هي الحل.

فالنحاول وننتابع.....

(h)

خبرائنا الاعزاء أين أنتم ، هل تحاولون معنا ، تبحثون ، مهتمون بالموضوع ، مشغولين !!!!!!!!!!

<_< <_< <_< <_< <_< <_< <_< <_< <_< <_< <_< <_< <_< <_<

أخي العزيز g-johnny ..

أظن أن التقرير اللي شفته ليس على الداتاريبورت لأني حاولت بشتى الطرق .. وأنا لي أعمال كثيرة على الداتاريبورت حتى أني فهمته تمام ..

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

مع تمنياتي لك أن تجد حل .. وتبلغنا .. لا تنسى .

إنه على الداتا ريبورت حتى أن نفس المبرمج عمله على الاكسس Access ولكن الملف بصيغة mde .

أنا أيضاً حاولت كثيراً على الداتا ريبورت ولكن فشلت.

قلت أيضاً لابأس إن كان يتحقق المطلوب على الكريستال ريبورت لأن الغاية هي النتيجة وليس عن طريق من... لأنني لم أعمل على الكريستال ريبورت.

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

أطلقت عدة نداءات للخبراء فلم يردوا ولاأعلم لماذا حتى الرأي لم يعطى !!!!!!!.

لذ مللت من الموضوع عن طريق طرحه لغياب المشاركات.

وسأبحث عنه في السوق

. <_<

الموضوع ممكن ولكن أنا أعرفة بالكريستل ريبورت

والنسخة التى لدى منه هى 9.2 فإن أردت أنا أصنع لك مثال فنحن فى الخدمة (h)

:lol:

شكراً أخي رمضان على المشاركة.

أنا لاأعمل على الكريستال وخاصة الاصدار 9.2 ولكن لابأس إن أرفقت مثال أكون لك من الممتنين كثيراً وسأحاول أن أعمل على الكريستال بالاصدار 9.2.

أتمنى أن ترفق المثال بأسرع وقت لديك.

شكراً مرة أخرى. :lol:

إن لم يعمل البرنامج معك لإختلاف إصدار الكريستل فيمكنك مشاهدة الكود والتعديل فيه حسب النسخة الموجودة لديك

RepColor.zip

شكراً أخي رمضان على الاهتمام. سوف أقوم بمشاهدة المثال عند حصولي على الاصدار 9.2 .

شكراً ............................................................................................................ :rolleyes:

أنا كان عندي نفس السؤال وهو كيفية تغيير لون الحقل في DataReport ولكن تبعاً لوقت معين

يعني مثلا لو كان الوقت بعد الساعة 10 صباحا يتغير لون الحقل إلى أي لون آخر

أرجو ممن لديه القدرة على الاجابة أن يفيدنا بذلك

وشكرا

لك هذا المثال :rolleyes:

Dena22.rar