Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Forme_Pole / 10 сообщений из 10, страница 1 из 1
02.06.2004, 15:01
    #32544884
dima_traktor
dima_traktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Forme_Pole
Kak mogno sdelat chto pri vvode dannih na forma pervaya bukva pechatalas bolchoy naprimer:
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2004, 15:05
    #32544898
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Forme_Pole
Код: plaintext
1.
2.
3.
4.
5.
Private Sub Поле0_Change()
    If Len(Поле0.Text) =  1  Then
        Поле0.Text = UCase(Поле0.Text)
        Поле0.SelStart =  1 
    End If
End Sub

?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2004, 15:08
    #32544907
Sfagnum
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Forme_Pole
печатать наверное можно задать через Validation Rule, но это помоему только на матюки
для сохранение в BeforeUpdate написать me.textbox1=UCase(Mid(me.textbox1,1,1) & Mid(me.textbox1,2) перед этим проверку на длинну сделать надо...
можно конэшно попробывать на OnChange поставить

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2004, 15:10
    #32544915
Sfagnum
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Forme_Pole
2 paparome
А ты поробуй набрать текст, а потом первую букву сотри...

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2004, 15:17
    #32544939
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Forme_Pole
Дык - не вопрос - сотреться :)

Так можно-же и без проверки на длину = 1:)

типа

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Поле0_Change()
Dim x As Integer
    If Len(Поле0.Text) >  0  Then
        x = Поле0.SelStart
        Поле0 = UCase(Mid(Поле0.Text,  1 ,  1 )) & Mid(Поле0.Text,  2 )
        Поле0.SelStart = x
    End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2004, 15:26
    #32544953
dima_traktor
dima_traktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Forme_Pole
Spasibo paprome!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2004, 16:40
    #32545130
(c)VIG
(c)VIG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Forme_Pole
StrConv(s, vbProperCase)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2004, 16:45
    #32545141
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Forme_Pole
Сейчас придет ищ и опять будет на меня удивляться:
папаримский. ты меня иногда удивляишь отсталыми понятиями.
Как такое сделать? (вопрос про crosstab)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2004, 17:17
    #32545219
Sfagnum
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Forme_Pole
2 paparome

тогда уж
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub Поле0_Change()
Dim x As Integer
    If Len(Поле0.Text) >  0  Then
            If Len(Поле0.Text) >  2  Then
                x = Поле0.SelStart
                Поле0 = UCase(Mid(Поле0.Text,  1 ,  1 )) & Mid(Поле0.Text,  2 )
                Поле0.SelStart = x
            Else
                Поле0 = UCase(Поле0.Text)
                Поле0.SelStart = x
            End If
    End If
End Sub
А то при вводе одного символа по идеи ошибка вылетать должна


Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2004, 17:20
    #32545224
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Forme_Pole
авторА то при вводе одного символа по идеи ошибка вылетать должна

А проверить?

Я проверял - все ОК :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Forme_Pole / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 537ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1674168]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 169ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 2ms
others: 252ms
total:  537ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]