• 0
ولـwaleedـيد

تغيير لون خلفية لمربع تسمية او مربع نص في التقرير بالكود

سؤال

السلام عليكم

اريد ان أغير لون الخلفية لمربع تسمية ومربع نص في تقرير بناء على متغير يعني اذا كان قيمة المتغير 1 يكون لون الخلفية لمربع التسمية احمر واذا كان 2 يكون ازرق

لم استطع الوصول ألى خاصبة backcolor في كود التقرير

وشكراً لتعاونكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

4 إجابة على هذا السؤال .

  • 0

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

Text0.BackColor = RGB(255, 255, 0) اللون الاصفر

ارجوا ان يكونالجواب واضح

و الله ولي التوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكراً جزيلاً اخي على تجاوبك

لكني كتب هذا الكود عند فتح التقرير للتجربة ولم يتغير لون مربع النص

وشكراً

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بعد اذن اخي wkalo

اخي الفاضل وليد

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

انت تحتاج الى IF الشرطية في التقرير حسب الشروط التالية

1. اذا كان قيمة المتغير ( NUMBER ) مثلا يساوي 1 يكون خلفية لون مربع النص للـ NAME احمر

2. اذا كان قيمة المتغير ( NUMBER ) مثلا يساوي 2 يكون خلفية لون مربع النص للـ NAME ازرق

3. اذا لم تساوي قيمة المتغير احد القيمتين 1 او 2 يبقى مربع النص كما هو بدون لون

اذن سنقوم بتطبيقها بالكود على النحو التالي

يوضع هذا الكود في قسم تفصيل للتقرير

Private Sub ÊÝÕíá_Format(Cancel As Integer, FormatCount As Integer)
If Me![NUMBER] = 1 Then
Me![NAME].BackColor = RGB(255, 0, 0) اللون الاحمر - لون خلفية مربع النص '
Me![NAME].ForeColor = RGB(255, 255, 255) لون ابيض -لون الخط في مربع النص '
Exit Sub
End If

If Me![NUMBER] = 2 Then
Me![NAME].BackColor = RGB(0, 0, 255) اللون الازرق- لون خلفية مربع النص
Me![NAME].ForeColor = RGB(255, 255, 255) لون ابيض -لون الخط في مربع النص '
Exit Sub
End If

If Me![NUMBER] <> 1 Or 2 Then
Me![NAME].BackColor = RGB(255, 255, 255) لون ابيض -لون خلفية مربع النص '
Me![NAME].ForeColor = RGB(0, 0, 0) لون اسود -لون الخط في مربع النص '
Exit Sub
End If
End Sub

للتجربه قم بتغيير احد الارقام في الجدول وانظر النتيجه في التقرير

وهذا مثال تطبيقي عملي

Color_Report.rar

اختكم

زهره

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكراً جزيلاً لكي يا اخت زهرة وايضاً يا اخ wkalo ولجميع الأعضاء في هذا المنتدى الطيب

وجزاكم الله الف خير

وشكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .