Или Like не работает, или мозги

[Osteon]

Здравствуйте всем.
В событии LostFocus текстового поля сделал автоматический ввод слова с большой буквы. Поле находится на первой вкладке SSTab

Код: Выделить всё

With txtPasp(Index)
    '***************
    ElseIf Index Like "[0-5, 9]" Then
       If Trim(.Text) <> "" Then .Text = UCase(Mid(.Text, 1, 1)) & Right(.Text, Len(.Text) - 1)
    '***************
End With

В таком виде все работает. Добавил еще вкладку на SSTab, новые поля с тем же именем, но с другими индексами.

Код: Выделить всё

ElseIf Index Like "[0-5, 9, 19-21, 24, 28]" Then

Теперь поля с индексами 0-5 и 9 видит, а остальные нет...

Может, я не знаю чего?

[ger_kar]

Ну во первых сделано не просто не правильно, а абсолютно неправильно!
Like служить прежде всего для сравнения на соответствие строк определенному шаблону, а в данном примере идет отборка индексов, т.е. числовых значений. Даже тот пример, который работает, для сравнения использует вагон ненужных операций, в т.ч. и неявное преобразование числовых значений в строки. Поэтому так никто не должен делать - это дурная практика.
Для того, что-бы сделать отбор по индексам самый нормальный вариант использовать конструкцию Select Case ... End Select и первый пример переписать например так:

Код: Выделить всё

With txtPasp(Index)
    '***************
    Select Case Index
        Case 0 To 5, 9
            If Trim(.Text) <> "" Then .Text = UCase(Mid(.Text, 1, 1)) & Right(.Text, Len(.Text) - 1)
    End Select
    '***************
End With

[Osteon]

Значит, не работают все-таки мозги. Я с "детства" привык пользовать ElseIf, потому и пошел по этому пути. А Like воткнул - типа, я крутой программер. Спасибо за вразумление, буду переписывать код...

[Хакер]

К тому же, дался вам этот LostFocus, если для этой цели есть специальное событие Validate