Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Обработка ошибки, если в числовое поле вводится буква.  [new]
Галка
Member

Откуда: Москва
Сообщений: 162
Подскажите код, чтобы отправить пользователю сообщение, что он в числовое поле вводит букву. Спасибо.
mdbXP Sql-сервер
4 май 05, 14:51    [1516141]     Ответить | Цитировать Сообщить модератору
 Re: Обработка ошибки, если в числовое поле вводится буква.  [new]
Bagin
Member

Откуда:
Сообщений: 838
Можно просто задать необходимый формат поля
me.Поле1.Format, либо через свойства объекта в режиме конструктора
4 май 05, 15:04    [1516183]     Ответить | Цитировать Сообщить модератору
 Re: Обработка ошибки, если в числовое поле вводится буква.  [new]
ы
Guest
Имхо, проще воспользоваться маской ввода ограничивающей ввод, чем писать обработчики событий, мешающие вводить данные. Или, еще проще, задать "формат поля" (.Format), тогда акцесс сам выдаст сообщение, если число введено неправильно (ведь вначале числа м.б. "-", внутри него - одна "." и т.д.).
4 май 05, 15:04    [1516185]     Ответить | Цитировать Сообщить модератору
 Re: Обработка ошибки, если в числовое поле вводится буква.  [new]
АлексейК
Member

Откуда: http://www.msdatabase.ru , Moscow
Сообщений: 7683
если он вводит данные в форму то лучше всего поставить
числовой формат для поля
4 май 05, 15:06    [1516195]     Ответить | Цитировать Сообщить модератору
 Re: Обработка ошибки, если в числовое поле вводится буква.  [new]
Галка
Member

Откуда: Москва
Сообщений: 162
Уточнение:
нужно в ниже приведённом коде обратотать возможность того, чтобы поле txtCount среагировало если в него введут не цифру а букву и выдало ошибку в msgbox


Private Sub cmdOK_Click()

If IsNull(txtCount.Value) Then
MsgBox ("заполните….")
Exit Sub
End If
If IsNull(txtPojasnen.Value) Then
MsgBox ("Заполните….")
Exit Sub

Else
If CInt(txtquantity.Value) < CInt(txtCount.Value) Then
MsgBox ("Вы не можете списать больше, чем имеется в наличии.")
Else


MsgBox (txtModel & " " & txtPojasnen & " " & txtCount)

Spis txtModel, txtPojasnen, txtCount


DoCmd.Close
Form_frmSkladSpis.sp6.Requery
End If
End If
End Sub
4 май 05, 15:08    [1516201]     Ответить | Цитировать Сообщить модератору
 Re: Обработка ошибки, если в числовое поле вводится буква.  [new]
Ольга_Т
Member

Откуда: Москва
Сообщений: 629
А все-таки, например, для булгахтеров, которые со младенчества научены вместо десятичного разделителя бить "-" и "=" в зависимости от копеек, тексты надо писать подробно и по-русски, поэтому в клинических случаях надо писать обработку на BeforeUpdate, сообщения с подробными объяснениями причин отката и сам откат.
4 май 05, 15:09    [1516203]     Ответить | Цитировать Сообщить модератору
 Re: Обработка ошибки, если в числовое поле вводится буква.  [new]
Галка
Member

Откуда: Москва
Сообщений: 162
АлексейК
если он вводит данные в форму то лучше всего поставить
числовой формат для поля


почему-то всё простое в нужный момент забывается :-)
спасибо!
4 май 05, 15:11    [1516216]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить