Как такое сотворить?

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
ProGaMen
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 07.12.2003 (Вс) 20:51
Откуда: Москва

Как такое сотворить?

Сообщение ProGaMen » 14.12.2003 (Вс) 1:28

Как можно заставить пользователя вводить в поле, скажем название фирмы только большими буквами?

Заранее благодарен.
Крепкий дневной сон - это по мне!!!

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 14.12.2003 (Вс) 7:55

Код: Выделить всё
Private Sub Text1_KeyPress(KeyAscii As Integer)
  KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

ProGaMen
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 07.12.2003 (Вс) 20:51
Откуда: Москва

Спасибо!

Сообщение ProGaMen » 14.12.2003 (Вс) 17:37

Спасибо ОГРОМНОЕ!

Но еще один вопросик!
А как сделать, чтобы первая буква была заглавная, а остальные маленькие и если возможно, чтобы после пробела опять первая была заглявная, а остальные маленькие. Например так - Фомин Илья

Если и в этом случае поможешь - то ты не представляешь себе как я тебе буду благодарен!!!! :)
Крепкий дневной сон - это по мне!!!

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 15.12.2003 (Пн) 8:55

Код: Выделить всё
Private Sub Text1_Change()
  Dim tmp As Long
  tmp = Text1.SelStart
  Text1.Text = StrConv(Text1.Text, vbProperCase)
  Text1.SelStart = tmp
End Sub
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 0

    TopList