هل بالامكان تغيير لون اخر ثلاث ارقام

أخى الكريم

أرفق مثالك وليكن بصيغة 2003.

ربما أستطيع المساعدة

تحياتى

محمد ندا

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

انظر بالمرفق وتحديداً التقرير المسمى Index

طبتم واهتديتم

(عشان خاطر اخونا محمد ندا :P)

color.rar

رائع اخي ايهاب

الله يوفقك

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

اقتباس

طبتم واهتديتم

(عشان خاطر اخونا محمد ندا )

يستاهل ابو حميد

بارك الله فيك استاذ ايهاب عثمان وزادك من علمه وفضله

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

انا جربتها يا اخ ايهاب ولكن اللون يثبت عندي للثلاث قيود .. سؤالي هو كيف جعلت كل قيد تاخذ ارقامه الثلاثة الاخيرة لون معين؟؟؟؟

شكرا استاذ ايهاب وشكرا للجميع

ولكن مشكلة التنسيق الشرطي تكون دائما لثلاث خيارات فقط وهنا نحن بحاجة للكود

اعتقد بان هذا الكود هو المطلوب (حدث في الحالي) للنموذج

Private Sub Form_Current()
If Right([mobil], 3) >= 0 And Right([mobil], 3) < 100 Then
Me.mobil.ForeColor = 65535
End If

If Right([mobil], 3) >= 100 And Right([mobil], 3) < 200 Then
Me.mobil.ForeColor = 32768
End If

If Right([mobil], 3) >= 200 And Right([mobil], 3) < 300 Then
Me.mobil.ForeColor = 16711680
End If
End Sub

طبعا تستطيع اكمال الكود حتى الرقم المطلوب 999

ارجوا من الاخوة الكرام التعديل او الاضافة في حال ان يكون هناك شيء افضل

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

بارك الله فيكم أجمعين :)

@اخي الوليد123..

سؤالك كان حول تلوين الارقام الثلاثة الاخيرة طبقاً لقيمة العدد المكون من هذه الثلاثة - أو هاا ما فهمته - أما الكود الذي تطرحه فهو يلون الرقم بالكامل وليس الثلاثة الاخيرة

@أخي Iraq2009 ..

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

طبتم واهتديتم