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

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

Text0.BackColor = RGB(255, 255, 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

اختكم

زهره

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

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

وشكرا