[مصمم هاوي]

تقبل الله منا ومنكم الصيام والقيام وتلاوة القرآن

هذا مثال بسيط مستقطع من مشروع شؤون الطلبــة، المطلوب إظهار بيانات الحضـور أو الغياب للطالــب في التقرير وذلك حسب الشهر
البيانات موجودة في استعلام = Q_MDay

حاولت بشتى الطرق قبل عرض المشكلة؛ ولكن دون جدوى فعسى أن أجد عندكم الحل


  تقرير الحضور والغياب والتأخير.rar (الحجم : 724.87 ك ب / التحميلات : 59)

[مصمم هاوي]

حللت المشكلة ونجح الكود في إظهار بيانات الغياب في تقرير حصر عدد أيام الغياب
والمشكلة أن الكود غبي وطويل وممل لاسيما أنه سوف يتكرر 33 مرة بعدد الفليد الموجودة في التقرير
فهل يمكن التعديل عليه وجعله مختصرا
بحيث يتغير لون خط الفليد ألــ 33 حسب الشرط
إذا كان ح (حضور) يكون لون الخط أبيض
وإذا كان غ (غياب) يكون لون الخط أسود ليكون مقروءاً

حيلة بسيطة لكنها حققت الغرض

كود :

If F1.Text = "ح" Then
F1.ForeColor = &HFFFFFF
ElseIf F1.Text = "غ" Then
F1.ForeColor = &H0&
End If

[Ahmed_Mansoor]

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

أهلا بك أخي الكريم, تم تعديل المثال بناء على الحيلة التي قمت أنت بإستخدامها,بالتوفيق .

[مصمم هاوي]

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

أهلا بك أخي الكريم, تم تعديل المثال بناء على الحيلة التي قمت أنت بإستخدامها,بالتوفيق .

بارك الله فيك أستاذي العزيز.
ونسأل الله أن يبلغك ليلة القدر، وأن يكتبك فيها من السعداء.
وان شاء الله أرى التعديل وارد عليك لأنني داخل من الجوال الآن.