Помогите исправить ошибку (подсветка строк)

Среда, 25 Июня 2014 г. 13:18 + в цитатник

Суть проблемы: хочу, чтобы програмно подсвечивались строки.
Тика если ячейка в субформе (таблица формы вставлены в др форму), так вот, если ячейка актива, то должна подсвечиваться вся строка. Пытаюсь, но не получается(..

Private Sub Form_Current()
    Ключ = Nz(Me.Код, 0)
     
If Me.Section(Ключ).InSelection = True Then
    With Me.Section(0).Controls
        For i = 0 To Me.Section(0).Controls.Count - 1
            With .Item(i)
                    .FormatConditions.Delete
                    .BackColor = RGB(255, 0, 255)
          End With
        Next i
End With
End If