Dim ctl As Control
For Each ctl In Me.Report.Controls
 
Select Case ctl.ControlType
Case acLabel
If ctl.Tag = "trz" Then
gunadi = ctl.Caption & "/" & Month(Forms![Form1]!Calendar9) & "/" _
& Year(Forms![Form1]!Calendar9)
    If Format(gunadi, "dddd") = "Pazar" Or _
        Format(gunadi, "dddd") = "Cumartesi" Or _
        Format(günadi, "ddmm") = "2304" Or _
        Format(gunadi, "ddmm") = "1905" Or _
        Format(gunadi, "ddmm") = "2910" Or _
        Format(gunadi, "ddmm") = "3008" Then
    ctl.ForeColor = vbRed
    End If
End If
End Select
Next