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

حط مثال صغير
ليتم التعديل عليه
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد }}}}
تم الشكر بواسطة: haiderkh , عبد العزيز البسكري , Ahmed_Mansoor
#3
(24-02-17, 05:30 PM)sendbad100 كتب : وعليكم السلام

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


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

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


تفضل


الملفات المرفقة
.rar   vb example11.rar (الحجم : 24.42 ك ب / التحميلات : 53)
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد }}}}
#5
(24-02-17, 08:02 PM)sendbad100 كتب : العفو

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] الاكتيف ريبورت Abdellah 2 34 أمس, 12:44 AM
آخر رد: Abdellah
  أريد طباعة كارت شخصي للكل موظف بالاكتف ريبورت الحزين اوى 1 43 19-01-18, 04:13 PM
آخر رد: Amir_alzubidy
  [ تمّ الحل ] : إضافة الملفات أثناء تصطيب البرامج التّنفيذيّة عبد العزيز البسكري 13 655 18-01-18, 10:22 PM
آخر رد: الوايلي
  مشكلة في تحويل التاريخ dr.mostashar 2 27 18-01-18, 12:28 AM
آخر رد: dr.mostashar
  مشكلة في Active Report dr.mostashar 4 49 18-01-18, 12:09 AM
آخر رد: dr.mostashar
  تلوين اسطر في تقرير داتا ريبورت gonm64 4 72 16-01-18, 09:25 PM
آخر رد: gonm64
  السلام عليكم عندي مشكلة عند ربط قاعدة بيانات اكسس بالفيجول بيسك 6 عزف الرياح 2 111 25-12-17, 12:38 AM
آخر رد: عزف الرياح
  [سؤال] تنفيذ تقرير و ارسال ايميل aboezzat84 1 72 29-11-17, 03:03 PM
آخر رد: Amir_alzubidy
  مشكلة جمع حقل فارغ في الاستعلام sulimanalahdl 12 274 11-11-17, 03:04 PM
آخر رد: sulimanalahdl
  [ تمّ الحل ] : تصدير بيانات التاكسات إلى الوورد عبد العزيز البسكري 6 156 02-11-17, 01:50 PM
آخر رد: عبد العزيز البسكري

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


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