Как осуществить проверку?

[justas1507]

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

[Teslenko_EA]

Здравствуйте justas1507.
"..Возможно я чего-то не понял в вашем примере.." - да возможно (а возможно не включен обработчик VBA):
"..после ввода количества товара ... автоматически проверялось наличие данного товара на складе .. если его меньше чем .. ввели, выдавалось бы сообщение.."

1. при выборе контролом Product товара, поле Field0 отображает отображает остаток товара в наличии (на складе)
2. при вводе в поле формы Quantity, если кол-во превышает остаток, цвет символов этого поля становится красным.
(заменив в коде строку ..Quantity.ForeColor = IIf(b, 255, 0).. на ..Quantity.BackColor = IIf(b, 255, 16777215).. будет меняться цвет фона на красный, возможно так будет нагляднее)
3. с учетом того что конструкция предназначена для добавления, изменения и удаления записей, обработчик нажатия кнопки так-же выполняет проверку превышения остатка строкой кода:

...
If Val(s3) > Val(Field0) + Val(Nz(List1.Column(3), 0)) Then

Обрабатывается запись выбранная в списке:
первая в списке - создание новой записи
выбранная в списке - редактирование
выбранная с Quantity =0 - удаление
всё выполняется без лишних, бесполезных "сообщений", как-то так...
Но если такой вариант не устраивает - простите, что отвлёк Ваше внимание.
Евгений.