تطبيق كود التنسيق الشرطي علي كل العناصر

بالتأكيد أخى ممكن

اليك هذا الكود بعد التعديل

Dim objFrc As FormatCondition
    Dim lngRed As Long
    Dim lngWhite As Long
    Dim lngBlack As Long
    Dim lngYellow As Long
    Dim lngBlue As Long
    Dim lngGreen As Long
    Dim ctl As Control

    lngRed = RGB(255, 0, 0)
    lngWhite = RGB(255, 255, 255)
    lngBlack = RGB(0, 0, 0)
    lngYellow = RGB(255, 255, 0)
    lngBlue = RGB(0, 0, 255)
    lngGreen = RGB(0, 255, 0)

    For Each ctl In Me.detail.Controls
    If ctl.ControlType = acTextBox Then
    ctl.FormatConditions.Delete
    Me![strAge].FormatConditions.Delete
    Set objFrc = ctl.FormatConditions.Add(acExpression, , "[strAge] = 20")
    Set objFrc = ctl.FormatConditions.Add(acExpression, , "[strAge] = 44")
    Set objFrc = ctl.FormatConditions.Add(acExpression, , "[strAge] = 60")

    With ctl.FormatConditions(0)
        .BackColor = lngYellow
        .FontBold = True
        .ForeColor = lngRed
    End With

    With ctl.FormatConditions(1)
        .BackColor = lngBlue
        .FontBold = True
        .ForeColor = lngWhite
    End With

    With ctl.FormatConditions(2)
        .BackColor = lngGreen
        .FontBold = True
        .ForeColor = lngBlack
    End With

    End If
    Next ctl

السلام عليكم ورحمة الله

اللهم صلي وسلم علي نبينا محمد

ماشاء الله تبارك الله

شكرا جزيلا لك استاذي ابو يوسف

فعلا هذا هو المطلوب , الف شكرا وزادك الله من فضلة وعلمة وامد في عمرك وصحتك

اتمني لك السعادة و التوفيق في الدنيا و الاخرة

لقد رشحت هذة الاجابة

شكرا لك