محتاج تطييق كود

[2saad]

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته

كل عام وأنتم بخير وبصحة وعافية

في الملف المرفق عند فتحه يظهر نموذج عند الضغط علي زر التقارير ثم اختيار الفصل الدراسي ( مثلا الفصل الدراسي الثاني ) ثم الصف مثلا ( الصف السادس ) ثم اختار جميع ( chek ) ناجح - ناجحة -له دور ثاني -لها دور ثان -غ 

ثم نضغط علي زر ( النتيجة النهائية عليا ) يظهر تقرير النتيجة .

المطلوب تطبيق هذا الكود علي عمود ( ruslt ) في التقرير في الطباعة 

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    Dim x, y, rid As Single

    x = Me.ruslt.Left + Me.ruslt.Width / 2
    y = Me.ruslt.Top + Me.ruslt.Height / 2
    rid = Me.ruslt.Width / 2
    
    If Me.ruslt = "(غ)" Or Me.ruslt = "له دور ثان" Or Me.ruslt = "لها دور ثان" Then
        Me.FillColor = RGB(238, 198, 211)
        Me.FillStyle = 0
        Me.Circle (x, y), rid, RGB(256, 0, 0), , , 1
    End If
End Sub

2استدعاء الغائب وله دور ثان.rar

[2saad]

صورة مرفقة لتوضيح المطلوب

[kkhalifa1960]

تفضل استاذ @2saad المرفق بعد التعديل حسب مافهمت .

2استدعاء الغائب وله دور ثان-2.rar

[2saad]

شكرا جزيلا أخي الفاضل وبارك الله فيك بحق هذه الأيام المباركة