تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أريد طباعة كارت شخصي للكل موظف بالاكتف ريبورت الحزين اوى 1 37 19-01-18, 04:13 PM
آخر رد: Amir_alzubidy
  طلب كود للاضافة والتعديل على اكثر من جدول w123eg 0 17 10-01-18, 08:26 PM
آخر رد: w123eg
  طباعة مخصصة dr.mostashar 1 76 16-12-17, 12:18 AM
آخر رد: Ahmed_Mansoor
  طباعة بيانات محدد من خلال بحث في mshflexgrid دهشوش1 2 122 25-11-17, 02:29 AM
آخر رد: دهشوش1
  أمر طباعة متعدد dr.mostashar 1 94 02-11-17, 12:17 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] كيف اجعل في text التاريخ لا يقبل في اليوم اكثر من 30 يوماً وكيف اجعل التاريخ في الشهر Microformt 2 108 09-10-17, 09:17 PM
آخر رد: عبد العزيز البسكري
  [سؤال] كيف يتم طباعة MSHFlexGrid؟ suzoki 2 165 06-09-17, 01:30 PM
آخر رد: suzoki
  طباعة سجل بقاعدة البيانات dr.mostashar 1 160 05-09-17, 05:52 PM
آخر رد: sher
  [ تمّ الحل ] : طباعة القُصاصات الورقيّة عبد العزيز البسكري 5 437 28-07-17, 01:31 AM
آخر رد: IBRA939
  طباعة محتوى image dr.mostashar 2 184 28-07-17, 01:19 AM
آخر رد: IBRA939

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


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