تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
(تم الحل ) بجهود الاستاذ المبدع sendbad100 مشكلة في تقرير اكتيف ريبورت
#1
السلام عليكم الاخوة الاساتذة الكرام في منتدانا الغالي
لدي مشكلة في تقرير اكتف ريبورت وهي:
عند عرض التقرير والذي يخص درجات الطلبة وباستخدام الدالة 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
فاين الخطأ اخوتي الكرام علما اني مبيتدئ في برمجة فيجوال بيسك

الصورة الثانية هي الصحيحة والاولى تظهر غير صحيحة من حيث الخلفية واللون


الملفات المرفقة صورة/صور
       
الرد
تم الشكر بواسطة:
#2
وعليكم السلام

حط مثال صغير
ليتم التعديل عليه
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
تم الشكر بواسطة: haiderkh , عبد العزيز البسكري , Ahmed_Mansoor
#3
(24-02-17, 05:30 PM)sendbad100 كتب : وعليكم السلام

حط مثال    صغير
ليتم التعديل عليه
الاخ الاستاذ sendbad100 شكرا لسرعة ردك
اخي الكريم هذا هو المثال


الملفات المرفقة
.rar   vb example.rar (الحجم : 109.95 ك ب / التحميلات : 49)
الرد
تم الشكر بواسطة: Ahmed_Mansoor
#4
العفو

اتمنى انه المطلوب 


تفضل


الملفات المرفقة
.rar   vb example11.rar (الحجم : 24.42 ك ب / التحميلات : 68)
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
#5
(24-02-17, 08:02 PM)sendbad100 كتب : العفو

اتمنى انه المطلوب 


تفضل
شكرا جزيلا استاذ sendbad100
بارك الله فيك وجعلة في ميزان حسناتك
الرد
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى البرنامج بعد التنصيب على جهاز اخر المبرمج العتيق 2 73 01-11-18, 01:32 AM
آخر رد: حريف برمجة
  مشكلة فى تنصيب فيجوال بيسك 6 المبرمج العتيق 3 77 01-11-18, 12:52 AM
آخر رد: elgokr
  مشكلة فى رسالة معناها ان هناك مكتبات مفقودة المبرمج العتيق 2 111 26-10-18, 01:27 PM
آخر رد: المبرمج العتيق
  [vb6.0] مشكلة في تشغيل تطبيق تم إنشاءه بإستخدام VB6 محب الإسلام 7 189 03-10-18, 10:00 PM
آخر رد: محب الإسلام
  مشكلة عندي مشكلة في فتح قاعدة بيانات اكسس 2000 بيتم التعامل مع اكسس 97 fathyfarag122 3 81 03-10-18, 02:54 AM
آخر رد: عبدالله الصافي
  [vb6.0] مشكلة فى الكريستال ريبورت 4.6 ahmed ragab 9 243 02-10-18, 03:11 PM
آخر رد: ahmed ragab
  [سؤال] كيفية استخراج تقرير ملف PDF من برنامج مصمم بالفيجوال بيسك 6 mohamed arafa 4 206 11-09-18, 05:10 PM
آخر رد: mohamed arafa
  [vb6.0] حل مشكلة حفظ الصورة في ملف وليس على قاعدة البياناتDataBase عبدالقادرعواد 2 164 11-09-18, 02:45 PM
آخر رد: عبدالقادرعواد
  [vb6.0] مشكلة اللغة العربية فى النسخ واللصق ahmad.roz 6 277 27-08-18, 01:58 AM
آخر رد: عبدالله الصافي
  [سؤال] داتا ريبورت ديناميكي fariddidou 0 88 26-08-18, 11:07 PM
آخر رد: fariddidou

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


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