Здравствуйте, уважаемый эксперты!
Помогите пожалуйста решить задачу.
В форме имеются несколько TextBox, которые последовательно заполняются.
Не получается реализовать следующее:
Если пользователь ввел "0" и переходит на следующее поле, то вылетает соответствующий MsgBox, некорректный TextBox очищается, а фокус остается на месте.
Такой подход не срабатывает, фокус все равно переходит на следующий TetxtBox.
Помогите пожалуйста решить задачу.
В форме имеются несколько TextBox, которые последовательно заполняются.
Не получается реализовать следующее:
Если пользователь ввел "0" и переходит на следующее поле, то вылетает соответствующий MsgBox, некорректный TextBox очищается, а фокус остается на месте.
Код |
---|
Private Sub Количество_AfterUpdate() If Количество <= 0 Then MsgBox "Введите число больше нуля" Количество = "" Количество.SetFocus Exit Sub End If End Sub |
Наша суть отражается в наших повторяющихся действиях. Отсюда следует, что совершенство есть не действие, а привычка. Аристотель.