Необходимо расчитать значение в полях по нажатию кнопки, при этом нужно проверить сумму коэфициента, она не должна превышать 1. Вот код - но ругается нещадно. В чем ошибка, подскажите.

Private Sub Рассчет_Click()
On Error GoTo Err_Рассчет_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

СуммаОбъект1.Value = Сумма.Value * K1.Value
СуммаОбъект2.Value = Сумма.Value * K2.Value
СуммаОбъект3.Value = Сумма.Value * K3.Value
СуммаОбъект4.Value = Сумма.Value * K4.Value
СуммаОбъект5.Value = Сумма.Value * K5.Value
KO.Value = K1.Value + K2.Value + K3.Value + K4.Value + K5.Value
If KO.Value < 1# Then GoTo Err_Рассчет_Click
ElseIf KO.Value > 1# Then GoTo Err_Рассчет_Click
End If
Exit_Рассчет_Click:
Exit Sub

Err_Рассчет_Click:
MsgBox "Неправильно введены коэфициенты"
Resume Exit_Рассчет_Click

End Sub

Мне нужно отсчитать чтобы KO была строго равно 1 иначе выдать сообщение, что коэфициенты заданы неправильно, при нажатии кнопки, даже при правильно введенных коэф, все равно выдается сообщение "Неправильно введены коэфициенты"
непонимаю где ошибка...

Заработало, но после того, как были добавлены еще 2 элемента (все по той же схеме) Access стал ругаться:
Выражение Нажатие кнопки, введенное в поле свойст события, вызываетошибку: Duplicate Option statement.
С чего бы это?

Народ, е-мое, я не могу въехать, почему следующий код:

If КИ + К1 + К2 + К3 + К4 + К5 + К6 + К7 + К8 + К9 + К10 <> 1# Then
MsgBox "Неправильно введены коэфициенты"
End If

даже при правильно заданных коэф все равно сваливается на сообщение об ошибке?

спасибо
но я кажется другой способ подобрал, если ставить
K1.Value + K2.Value ... <> 1#
то все, вроде бы как, работает