Подскажите, как сформулировать логику в VBA для выбора смешанной оплаты за товар. Форма продажа товара, на ней есть четыре способа оплаты. При наведении курсора в нужный тип оплаты там автоматически прописывается сумма кОплате :
Private Sub Наличными_GotFocus()
1 [Наличными] = Me![кОплате]
2 [Карта] = "0"
End Sub
или
Private Sub Карта_GotFocus()
1 [Карта] = Me![кОплате]
2 [Наличными] = "0"
End Sub
Другие способы оплаты используются довольно редко и не составляет особого труда вносить данные вручную.
А вот карта+наличные довольно часто. А мои два кода не позволяют это сделать. Пытался сделать логику на переключателе, типа когда отключен-раздельная оплата, когда включен примерно так:
Private Sub Наличными_GotFocus()
If Переключатель=1 GoTo 1
1 [Наличными] = Me![Внесено]
[Карта] = [кОплате]- [Наличными]
If Переключатель=0 отменить действие
End Sub
Может есть другой способ реализовать данную процедуру. Подскажите, научите пожалуйста.

http://www.sql.ru/forum/1290555/smeshannaya-oplata-tovara