+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : (تم الحل ) بجهود الاستاذ المبدع sendbad100 مشكلة في تقرير اكتيف ريبورت (/showthread.php?tid=19395)
(تم الحل ) بجهود الاستاذ المبدع sendbad100 مشكلة في تقرير اكتيف ريبورت - haiderkh - 24-02-17
السلام عليكم الاخوة الاساتذة الكرام في منتدانا الغالي
لدي مشكلة في تقرير اكتف ريبورت وهي:
عند عرض التقرير والذي يخص درجات الطلبة وباستخدام الدالة if لجعل الدرجة الاقل من 50 بخلفية حمراء(Backcolor) والدرجة المساوية او الاكبر من 50 بلون احمر تظهر الورقة الاولى صحيحة كما في الصوره الاولى بينما في الصفحة الثانية للتقرير تكون الدرجة المساوية او الاكبر من 50 بلون اخضر لكن الخلفية الحمراء (Backcolor) الرجاء توضيح اين الخطأ علما ان الكود المستخدم هو
كود :
Private Sub Detail_BeforePrint()
If Val(Me.Field4.Text) < 50 Then
Me.Field4.BackColor = &HFF&
Else
Me.Field4.ForeColor = &HC000&
End If
If Val(Me.Field7.Text) < 50 Then
Me.Field7.BackColor = &HFF&
Else
Me.Field7.ForeColor = &HC000&
End If
If Val(Me.Field10.Text) < 50 Then
Me.Field10.BackColor = &HFF&
Else
Me.Field10.ForeColor = &HC000&
End Ifالصورة الثانية هي الصحيحة والاولى تظهر غير صحيحة من حيث الخلفية واللون
RE: مشكلة في تقرير اكتيف ريبورت - sendbad100 - 24-02-17
وعليكم السلام
حط مثال صغير
ليتم التعديل عليه
RE: مشكلة في تقرير اكتيف ريبورت - haiderkh - 24-02-17
(24-02-17, 05:30 PM)sendbad100 كتب : وعليكم السلامالاخ الاستاذ sendbad100 شكرا لسرعة ردك
حط مثال صغير
ليتم التعديل عليه
اخي الكريم هذا هو المثال
RE: مشكلة في تقرير اكتيف ريبورت - sendbad100 - 24-02-17
العفو
اتمنى انه المطلوب
تفضل
RE: مشكلة في تقرير اكتيف ريبورت - haiderkh - 24-02-17
(24-02-17, 08:02 PM)sendbad100 كتب : العفوشكرا جزيلا استاذ sendbad100
اتمنى انه المطلوب
تفضل
بارك الله فيك وجعلة في ميزان حسناتك