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

Откуда:
Сообщений: 44
В общем ситуация такая что на поле в форме надо сделать ограничение чтобы не все подряд вводили а только имена - буквы в любом регистре, а а цифры и все прочее отменить.
Взял пример отсюда http://support.microsoft.com/kb/114554
Вроде все отлично, НО проблема в том что ОГРАНИЧИВАЕТ ВВОД ТОЛЬКО символов, но не работает когда делаем пробелы или точки в именах
скажем "Mr R" или "Mr. R." не работает, т.к. есть точки и пробелы.
Как сделать? Спасибо.
26 янв 07, 18:41    [3701377]     Ответить | Цитировать Сообщить модератору
 Re: Ограничить пользователя во вводе  [new]
ILL HEAD
Member [заблокирован]

Откуда:
Сообщений: 8498
в хелпе VBA посмотри таблицу ASCII
26 янв 07, 18:44    [3701384]     Ответить | Цитировать Сообщить модератору
 Re: Ограничить пользователя во вводе  [new]
rulez22
Member

Откуда:
Сообщений: 44
да но как это практически реализовать, можно с примером?
26 янв 07, 19:00    [3701458]     Ответить | Цитировать Сообщить модератору
 Re: Ограничить пользователя во вводе  [new]
Karfaqen
Member

Откуда:
Сообщений: 7010
rulez22
да но как это практически реализовать, можно с примером?
В этой процедуре в цикле посимвольной проверки сделайте сначала сравнение с вашими допустимыми "иными" символами, а потом уже делайте сравнение на буквы, например так:
For LoopVar = 1 To Len(MyString)
    SingleChar = UCase(Mid$(MyString, LoopVar, 1))
    If SingleChar = " " Or SingleChar = "." Then '<--- вот это новая проверка
    ElseIf SingleChar < "A" Or SingleChar > "Z" Then
        IsAlpha = False
        Exit Function
    End If
Next LoopVar
26 янв 07, 19:40    [3701646]     Ответить | Цитировать Сообщить модератору
 Re: Ограничить пользователя во вводе  [new]
rulez22
Member

Откуда:
Сообщений: 44
Спасибо, работает!
26 янв 07, 20:01    [3701723]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить