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

**2saad** · الجمعة at 20:03

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

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

في الملف المرفق عند فتحه يظهر نموذج عند الضغط علي زر التقارير ثم اختيار الفصل الدراسي ( مثلا الفصل الدراسي الثاني ) ثم الصف مثلا ( الصف السادس ) ثم اختار جميع ( 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