VPF::Textbox-е допускались только цифри

mari5

Дата 27.10.2007, 22:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 26.8.2005

Репутация: нет
Всего: нет

что мне сделать, что в Textbox-е не допускались символи, а только цифри?
Надо код: In Keypress:
If Key not in (#0 .. #9) then key:=#0?????? a VB ???

bopoha

Дата 28.10.2007, 09:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Лучше проверить после изменения поля, т.е. на событии "До обновления"

Код


Private Sub Ïîëå2_BeforeUpdate(Cancel As Integer)
    if <проверка коректности> Then
         '-- не корректно
         '-- выдать сообщение пользователю
         Cancel = true
    End if
End Sub

или можно воспользоваться маской ввода, если известно количество цифр.

--------------------

Как создавать приложения на MS Access

Akina

Дата 28.10.2007, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Простейший вариант:

Код


Option Compare Database
Option Explicit
Const ValidChars As String = "0123456789"

Private Sub TextBox_KeyPress(KeyAscii As Integer)
If InStr(ValidChars, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Однако этот код блокирует также и Del, BS, и движения курсора, и прочие необходимые для нормальной работы нажатия. К тому же, он не различает состояния модификаторов. Кроме того... ну в общем масса недостатков. Так что метод bopoha более "применимый".

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »