الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه الوليد123 في 15 مايو 2009 · 7 رد · 658 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

يوجد عندي حقل خاص برقم الجوال وهذا الحقل مكون من عشرة ارقام مثلا

0512345678

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

1- اخر ثلاث ارقام اصغر من 100 = اصفر

2- اخر ثلاث ارقام تتكون اكبر من 100 واصغر من مئتين = اخضر

وهكذا حتى رقم

10- اكبر من 900 واصغر من 999 = ازرق

هل بالامكان التحكم بالوان اخر ثلاث ارقام حسب هذة الشروط

وهل الكود (ForeColor) هو الكود المناسب

وشكرا

تم تعديل هذه المشاركة بواسطة الوليد123 في 15 مايو 2009 في 19:54

#2

أخى الكريم

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

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

تحياتى

محمد ندا

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

#3

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

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

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

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

color.rar

تم تعديل هذه المشاركة بواسطة ايهاب عثمان في 16 مايو 2009 في 23:18

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

===================================

إقرأ معي

رابط متجدد لكتاب أقرؤه فشاركني فيه

======

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

الكتاب :

حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار

اضغط على الصورة لتحميل الكتاب

%E1%E1%E5%20%CB%E3%20%E1%E1%CA%C7%D1%ED%CE.jpg

-----------

كتب سابقة

سعد الدين الشاذلي - مذكرات حرب أكنتوبر

#4

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

الله يوفقك

#5

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

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

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

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

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

#6

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

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

#7

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

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

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

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

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

#8

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

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

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

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

@أخي Iraq2009 ..

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

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

تم تعديل هذه المشاركة بواسطة ايهاب عثمان في 17 مايو 2009 في 23:49

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

===================================

إقرأ معي

رابط متجدد لكتاب أقرؤه فشاركني فيه

======

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

الكتاب :

حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار

اضغط على الصورة لتحميل الكتاب

%E1%E1%E5%20%CB%E3%20%E1%E1%CA%C7%D1%ED%CE.jpg

-----------

كتب سابقة

سعد الدين الشاذلي - مذكرات حرب أكنتوبر

مواضيع مشابهة