طلب تعديل دالة

[2saad]

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

محتاح اعدل في هذه الدالة بحيث تشمل (له برنامج علاجي  أو  لها برنامج علاجي أو   (غ) )  بدلا من  (غ) فقط

أنا حاولت واستعملت ( 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

 

[Foksh]

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

تعديل بسيط في جملة If لتشمل ثلاث حالات

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), , , 0.2
    End If
End Sub

 

جرب وأخبرني بالنتيجة 

[kkhalifa1960]

مشاركة مع استاذ @Foksh تفضل أخي @2saad . طريقتين اختار الانسب لك .

باستخدام If:

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 = "(غ)" 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), , , 0.2
    End If
End Sub

باستخدام Select Case:

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

    Select Case Me.ruslt
        Case "(غ)", "له برنامج علاجي", "لها برنامج علاجي"
            Me.FillColor = RGB(238, 198, 211)
            Me.FillStyle = 0
            Me.Circle (x, y), rid, RGB(256, 0, 0), , , 0.2
    End Select
End Sub

 

[2saad]

شكرا جزيلا لكما وبارك فيكما وجزاكما كل خير وزادكما الله من علمه