الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يمكن عمل مثل هذا التقرير

مغلق
بدأه alabsari في 21 سبتمبر 2007 · 2 رد · 546 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

الأخوه الأعزاء رمضان كريم

أرجوا منكم مساعدتي في عمل تقرير نتائج الطلاب و وصف هذا التقرير هو

عرض درجات الطالب مع الإسم في شكل صف مع بعض العمليات مثل إظهار المواد التي رسب فيها الطالب بلون معين

و المواد التي نجح فيها بلون أخر

مثال إذا حصل الطالب على أصغر من 50 درجة يجب أن يظهر مربع أحمر حول الدرجة و تكون الدرجة مكتوبة باللون الأحمر

أما إذا كانت الدرجة أكبر من 50 لا يظهر مربع و يكون لون النص أسود.

هذا كل شيء و أتمنى منكم مساعدتي في هذا التقرير

و أرجوا من المشرفين المرور و الأجابه على سؤالي

و جزاكم الله خير

#2

أخي الفاضل alabsari

السلام عليكم ورحمة الله وبركاته

وكل عام وانتم بخير وتقبل الله منا ومنكم صالح الأعمال في هذا الشهر الكريم

تفضل هذا المثال بناء على طلبك

طريقة عمل النموذج والتقرير

1. نقوم بإنشاء نموذج جدولي عادي وكذلك تقرير عادي مبني على الجدول الخاص بالطلاب

2. نستخدم التنسيق الشرطي لجميع حقول الدرجات في النموذج فإذا كانت الدرجات اقل من 50 درجة يكون لون الخط أحمر .

3. كذلك نقوم بإستخدام نفس طريقة التنسيق الشرطي لجميع حقول الدرجات في التقرير فإن كانت اقل من 50 درجة يكون لون الخط أحمر .

4. نقوم بإضافة مستطيل من مربع ادوات اكسيس لكل مربعات النص الخاصة بالدرجات في التقرير ونعطيه اللون الأحمر وعرض الحدود 2 نقطه .

5. نقوم بتحديد كل مستطيل ونجعل خاصيته مرئي على لا

6. نستخدم الآن الكود لإظهار المستطيلات التي قمنا بعملها في حالة كانت الدرجات في الحقول اقل من 50 وإن كانت الدرجات اكبر من 50 فبالتالي ستكون مخفيه .

هذا الكود يوضع في قسم التفصيل للتقرير بهذه الطريقة :

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
If Me![Quran] < 50 Then
Me.R1.Visible = True
Else
Me.R1.Visible = False
End If
If Me![Hadeth] < 50 Then
Me.R2.Visible = True
Else
Me.R2.Visible = False
End If
If Me![Haseb] < 50 Then
Me.R3.Visible = True
Else
Me.R3.Visible = False
End If
If Me![Math] < 50 Then
Me.R4.Visible = True
Else
Me.R4.Visible = False
End If

End Sub

كما تلاحظ من الكود اننا اعطينا المستطيلات الحمراء اسماء وهي R1 و R2 و R3 و R4 على حسب مربعات الدرجات الموجوده لدينا ويمكنك زيادتها على حسب ما هو موجود لديك من مربعات الدرجات وكذلك لا تنسى استخدام التنسيق الشرطي للمرعات التي سوف تقوم بإنشاءها زيادة على ذلك .

وسيكون شكل النموذج بهذا الشكل

post-15367-1190428228_thumb.gif

وشكل التقرير بهذا الشكل

post-15367-1190428276_thumb.gif

zaReport.rar

بالتوفيق ان شاء الله

#3

مشكورة اختي زهرة على المرور و جزاك الله خير

و تستأهلي كل خير

و غفر الله لك و لوالديك و للمسلمين و المسلمات

هذا الموضوع مغلق.

مواضيع مشابهة