Включение и выключение флажков по значению поля

[intersk]

В форме есть три флажка, два из них состоят в группе, а третий отдельно.
Флажки в группе имеют своим значением поле формы. По клику каждый заносит в поле своё значение (15 или 25). Третий по клику делает доступным это поле формы и позволяет внести произвольное значение.
Нужно по открытию формы, по переходу по записям чтобы флажки отображали реальное состояние поля. То есть при значении 15 - был включенным первый флажок, при 25- второй, при любом другом - третий, при нулевом - все выключены.

Как вариант код (не рабочий). Ошибка "не возможно присвоить значение". Может из-за того что изначально форма запускается защищенной от редактирования?
Для справки: формат поля - обычный текст, формат поля таблицы - числовой.

Private Sub Form_Current()

Select Case Me.ПлДеньПлатежа
Case Is = Null
Me.ФлДеньПлатежа1 = False
Me.ФлДеньПлатежа2 = False
Me.флИное = False
Case Is = 15
Me.ФлДеньПлатежа1 = True
Me.ФлДеньПлатежа2 = False
Me.флИное = False
Case Is = 25
Me.ФлДеньПлатежа1 = False
Me.ФлДеньПлатежа2 = True
Me.флИное = False
Case Else
Me.ФлДеньПлатежа1 = False
Me.ФлДеньПлатежа2 = False
Me.флИное = True
End Select

End Sub