Условие на значение по событию

День добрый.
В подформе программно создаётся запись и на поле кол-во устанавливается фокус. Значение в этот момент =0. Необходимо что бы заставить пользователя ввести значение >0. Казалось бы чего проще но вот то что я применил на событие выход работает только при работе с клавой. Мышью же можно выйти.

If Me.поле = 0 Then
MsgBox "Введите значение >0"
Cancel = True
Else
End If
Подскажите в чем ошибка. Спасибо

simply

...но вот то что я применил на событие выход работает только при работе с клавой. Мышью же можно выйти.

На самом деле событие возникает и для клавы и для мыши. Просто в случае с клавой вы переходите на другое поле этой же подформы, а в случае с мышью, вы видимо переводите фокус на поле главной формы и, естественно, что событие "Выход" для поля подчиненной формы не возникает.
Вы можете использовать
1. Событие BeforeUpdate
2. Свойство поля ValidationRule
3. Событие контрола подчиненной формы Exit

Для BeforeUpdate и Exit для подч. формы вы также можете использовать Cancel.

Я не полностью привел первоначально текст
Правильно:
Private Sub Врезерв_Exit(Cancel As Integer)
If Me.Врезерв = 0 Then
MsgBox "Введите значение >0"
Cancel = True
Else
End If
Событие контрола Exit не срабатывает, BeforeUpdate не возникает. В итоге создаётся много записей с нулевым значением

Если заданное вами условие жизненно важно сделайте форму модальной.

Вместо

Private Sub Врезерв_Exit(Cancel As Integer)

Попробуйте то же самое в

Private Sub Form_BeforeUpdate(Cancel As Integer)

подчиненной формы.

simply

Я не полностью привел первоначально текст Правильно: Private Sub Врезерв_Exit(Cancel As Integer) If Me.Врезерв = 0 Then MsgBox "Введите значение >0" Cancel = True Else End If Событие контрола Exit не срабатывает, BeforeUpdate не возникает. В итоге создаётся много записей с нулевым значением

я, вроде, уже ответил.
А beforeupdate возникает при изменении значения и перед его сохранением.

simply

Необходимо что бы заставить пользователя ввести значение >0.

если для поля есть ControlSource укажите в таблице для этого поля

DefaultValue = 1
ValidationRule > 0
ValidationText = 'Введите в поле "бла-бла-бла" значение >0'

(или то же самое для поля формы)