| |
|
|
| | Тут недавно делал форму для поиска, все работает шоколодно....а вот когда стал думать над интерфейсом...то столкнулся, с одной, но очень мелкой проблемой....
Вообщем у меня есть поля для поиска, куда должны вводится только цифры и не каких букв. Как сделать так, чтобы при вводе букв, сразу же выскакиввало сообщение, что-то вроде: здесь должны быть только цифры...или вообще заблокировать поле на ввод цифр....
Пробовал поменять формат поля...не выходит  | |
| |
| |
| |
|
|
| | Маска ввода:
9999999999 - до десяти цифр или пробелов (буквы игнорируются)
?????????? - до десяти букв (цифры игнорируются) | |
| |
| |
| |
|
|
| | делать проверку введённого символа в событии Изменение | |
| |
| |
| |
|
|
| | поле fFind вешаешь обработчик KeyPress
Private Sub fFind_KeyPress(KeyAscii As Integer)
On Error GoTo err_debug
If KeyAscii > 57 Then KeyAscii = 0
If KeyAscii < 48 Then KeyAscii = 0
exit_here:
Exit Sub
err_debug:
Resume exit_here
End Sub
|
| |
| |
| |
| |
|
|
| | БАЛЬШОЕ СПАСИБО!!!!!! Только одна беда.....клавиша BackSpace после ввода не срабатывает  | |
| |
| |
| |
|
|
| | #исправлено#
Private Sub fFind_KeyPress(KeyAscii As Integer)
On Error GoTo err_debug
If Not (KeyAscii <= 57 And KeyAscii >= 48) And Not (KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then
KeyAscii = 0
End If
exit_here:
Exit Sub
err_debug:
Resume exit_here
End Sub
|
| |
| |
| |
| |
|
|
| | Эххх..вообще не срабатывабт цирфры..... | |
| |
| |
| |
|
|
| | первый вариант был с глюком, уже выложил исправленный | |
| |
| |
|
|
