هذا مثال بسيط مستقطع من مشروع شؤون الطلبــة، المطلوب إظهار بيانات الحضـور أو الغياب للطالــب في التقرير وذلك حسب الشهر
البيانات موجودة في استعلام = Q_MDay
حاولت بشتى الطرق قبل عرض المشكلة؛ ولكن دون جدوى فعسى أن أجد عندكم الحل
25-04-21, 05:05 PM (آخر تعديل لهذه المشاركة : 25-04-21, 05:07 PM {2} بواسطة مصمم هاوي.)
حللت المشكلة ونجح الكود في إظهار بيانات الغياب في تقرير حصر عدد أيام الغياب
والمشكلة أن الكود غبي وطويل وممل لاسيما أنه سوف يتكرر 33 مرة بعدد الفليد الموجودة في التقرير
فهل يمكن التعديل عليه وجعله مختصرا
بحيث يتغير لون خط الفليد ألــ 33 حسب الشرط
إذا كان ح (حضور) يكون لون الخط أبيض
وإذا كان غ (غياب) يكون لون الخط أسود ليكون مقروءاً
حيلة بسيطة لكنها حققت الغرض
كود :
If F1.Text = "ح" Then
F1.ForeColor = &HFFFFFF
ElseIf F1.Text = "غ" Then
F1.ForeColor = &H0&
End If