Не работает код пишет Требуется объект

Private Sub Form_Open(Cancel As Integer)
Dim CurDate As Date
Dim i As Long
    'раскрашиваем поля
    For i = 1 To 31
        CurDate = CDate(DateSerial([Year], [n_mes], i))
            With Tabel
            'пишем день недели
            .Controls("lab_W" & i).Caption = Format(CurDate, "dd")
            'Красим выходные и праздники
            If i = day(Date) Then
                .Controls("D" & i).BackColor = CurDateColor
                .Controls("p_" & i).BackColor = CurDateColor
                .Controls("lab_W" & i).BackColor = CurDateColor
            Else
                If IsWorkday(CurDate) = True Then
                    .Controls("D" & i).BackColor = CurRabWeekColor
                Else
                    .Controls("D" & i).BackColor = CurNoRabWeekColor
                End If
            End If
        End With
    Next i
    DoCmd.RepaintObject acForm, "Табель"
End Sub