تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طباعة الدرجة باللون الاحمر اذا كانت اكثر من 50
#1
السلام عليكم اخوتي الكرام
لدي هذا البرنامج المصغر( المرفق ) وفية تقرير اكتيف ريبورت لطباعة نتائج الطلبة
ارغب في ان تكون درجة المجموع ( total ) والتي تظهر في التقرير باللون الاخضر اذا كانت تساوي 50 او اكبر وباللون الاحمر اذا كانت اصغر من 50
مع الشكر الجزيل لكم مقدما


الملفات المرفقة
.rar   vb example.rar (الحجم : 28.83 ك ب / التحميلات : 24)
الرد
تم الشكر بواسطة:
#2
وعليكم السلام السلام ورحمة الله وبركاته 

اضف الكود التالي  في الاكتيف  

كود :
Private Sub Detail_AfterPrint()

If Val(Me.Field5.Text) < 50 Then
Me.Field5.BackColor = &H8080FF
Else
Me.Field5.BackColor = &H80FF80
End If

End Sub
 والله الموفق
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد
#3
أشكرك كثيرا استاذ
sendbad100
جعله الله في ميزان حسناتك
جاري التجربة
الرد
#4
للأسف لم يعمل الكود لدي  ولا اعرف هل الخطأ لدي في التصميم
حبَّذا مراجعة المثال استاذ sendbad100 وإضافة الكود وأكون شاكرا لحضرتك كثيرا
الرد
تم الشكر بواسطة:
#5
اولا تعديل اجراء الكود

PHP كود :
Private Sub Detail_BeforePrint()

If 
Val(Me.Field5.Text) < 50 Then

Me
.Field5.BackColor = &H8080FF
Else
Me.Field5.BackColor = &H80FF80
End 
If

End Sub 

 ثم      غير  الخاصية   BackStyle   لل    Field5      الى    1- DDBKNORMAL

كما  في الصوره

تفضل اخي الكريم     المثال في المرفقات


الملفات المرفقة صورة/صور
   

.rar   vb example11.rar (الحجم : 28.5 ك ب / التحميلات : 24)
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد
#6
شكرًا جزيلا استاذ sendbad100 بارك الله بك أتعبتك
نسأل الله ان يجزيك خيرا
الرد
تم الشكر بواسطة: sendbad100
#7
العفوا
في الخدمة اخي

الله يكتب اجر الجميع

انشاء الله انه مضبوط
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد
#8
(22-02-17, 05:23 PM)sendbad100 كتب : العفوا
في الخدمة اخي

 الله يكتب اجر الجميع

انشاء الله انه مضبوط
نعم مضبوط استاذي الكريم
ولكني غيرت backcolor الى forecolor
كي يظهر الرقم الملون وليس خلفية الرقم
شكرا جزيلا
الرد
تم الشكر بواسطة: sendbad100 , sendbad100


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  منع تشغيل اكثر من نسخة من البرنامج alfakeehy 3 98 01-03-18, 05:53 PM
آخر رد: alfakeehy
  طباعة مابداخل الفلكس قريد alfakeehy 5 54 24-02-18, 01:17 AM
آخر رد: مصمم هاوي
  أريد طباعة كارت شخصي للكل موظف بالاكتف ريبورت الحزين اوى 1 77 19-01-18, 04:13 PM
آخر رد: Amir_alzubidy
  طلب كود للاضافة والتعديل على اكثر من جدول w123eg 0 36 10-01-18, 08:26 PM
آخر رد: w123eg
  طباعة مخصصة dr.mostashar 1 116 16-12-17, 12:18 AM
آخر رد: Ahmed_Mansoor
  طباعة بيانات محدد من خلال بحث في mshflexgrid دهشوش1 2 161 25-11-17, 02:29 AM
آخر رد: دهشوش1
  أمر طباعة متعدد dr.mostashar 1 127 02-11-17, 12:17 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] كيف اجعل في text التاريخ لا يقبل في اليوم اكثر من 30 يوماً وكيف اجعل التاريخ في الشهر Microformt 2 138 09-10-17, 09:17 PM
آخر رد: عبد العزيز البسكري
  [سؤال] كيف يتم طباعة MSHFlexGrid؟ suzoki 2 190 06-09-17, 01:30 PM
آخر رد: suzoki
  طباعة سجل بقاعدة البيانات dr.mostashar 1 206 05-09-17, 05:52 PM
آخر رد: sher

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم