اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته
محتاح اعدل في هذه الدالة بحيث تشمل (له برنامج علاجي أو لها برنامج علاجي أو (غ) ) بدلا من (غ) فقط
أنا حاولت واستعملت ( or ) ولم تنجح معي
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
'me.Circle (x,y),rid,col,,,ascp
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 = "(غ)" Then
Me.FillColor = RGB(238, 198, 211)
Me.FillStyle = 0
Me.Circle (x, y), rid, RGB(256, 0, 0), , , 0.2
End If
End Sub