Forme_Pole

dima_traktor

Дата: 02.06.2004 15:01:06

Kak mogno sdelat chto pri vvode dannih na forma pervaya bukva pechatalas bolchoy naprimer:

paparome

Дата: 02.06.2004 15:05:59

Private Sub Поле0_Change()
    If Len(Поле0.Text) = 1 Then
        Поле0.Text = UCase(Поле0.Text)
        Поле0.SelStart = 1
    End If
End Sub

Sfagnum

Дата: 02.06.2004 15:08:54

печатать наверное можно задать через Validation Rule, но это помоему только на матюки
для сохранение в BeforeUpdate написать me.textbox1=UCase(Mid(me.textbox1,1,1) & Mid(me.textbox1,2) перед этим проверку на длинну сделать надо...
можно конэшно попробывать на OnChange поставить

Сделать можно всё!!!
Только бы знать как...

Sfagnum

Дата: 02.06.2004 15:10:37

2 paparome
А ты поробуй набрать текст, а потом первую букву сотри...

Сделать можно всё!!!
Только бы знать как...

paparome

Дата: 02.06.2004 15:17:56

Дык - не вопрос - сотреться :)

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

типа

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

dima_traktor

Дата: 02.06.2004 15:26:17

Spasibo paprome!!!!

(c)VIG

Дата: 02.06.2004 16:40:20

StrConv(s, vbProperCase)

paparome

Дата: 02.06.2004 16:45:36

Сейчас придет ищ и опять будет на меня удивляться:
папаримский. ты меня иногда удивляишь отсталыми понятиями.
Как такое сделать? (вопрос про crosstab)

Sfagnum

Дата: 02.06.2004 17:17:16

2 paparome

тогда уж

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

А то при вводе одного символа по идеи ошибка вылетать должна

Сделать можно всё!!!
Только бы знать как...

paparome

Дата: 02.06.2004 17:20:35

		автор
		А то при вводе одного символа по идеи ошибка вылетать должна

А проверить?

Я проверял - все ОК :)