Подскажите, как сформулировать логику в 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
Может есть другой способ реализовать данную процедуру. Подскажите, научите пожалуйста.

Как раз данный способ изображен на экране. В поле Внесено вводится сумма, принятая наличными, она прописывается в поле Наличными, а оставшаяся сумма записывается в поле Карта. Но для того чтобы опять принимать раздельную оплату нужно переписывать код. Поэтому без переключателя, я думаю, не обойтись.

Все, сам допер. Сделал группу переключателей 3 шт - Наличными, Карта, Смешанная, каждому написал код на событие Получение фокуса и все работает.

Private Sub Переключатель98_GotFocus()
1 [Наличными] = Me![кОплате]
2 [Карта] = "0"
End Sub

Private Sub Переключатель100_GotFocus()
1 [Карта] = Me![кОплате]
2 [Наличными] = "0"
End Sub

Private Sub Переключатель102_GotFocus()
1 [Наличными] = Me![Внесено]
2 [Карта] = [кОплате] - [Наличными]
End Sub
Надо только ввести сумму денег наличными в поле Внесено и нажать нужный переключатель, все расставляется автоматически.

Сам решаю эту проблему с Атол F-Print 55, только принтор чеков, это у меня в другой теме на этом форуме.

PS: Тема- Код для печати на принтере чеков. там есть готовые решения вопроса, надо только привязать к своей базе.