ТекстБокс - ограничение на введение символов.

[KOSTIK1]

Доброго времени суток! Помогите пожалуйста с кодом для формы, при введении в текстбокс больше 20 любых символов, выскакивало сообщение, что "превышено количество символов". Заранее спасибо!

[IgorGO]

присвойте свойству MaxLength TextBox'а значение 20. Без всяких сообщений, но больше 20 символов не ввести.

[KOSTIK1]

Сообщение от IgorGO

присвойте свойству MaxLength TextBox'а значение 20. Без всяких сообщений, но больше 20 символов не ввести.

Спасибо Игорь за предложенный вариант, тоже хорош, только мне надо было гдето так.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    On Local Error Resume Next
    If Len(Me.TextBox1) >= 20 Then MsgBox "Более 20 символов", vbInformation, "Внимание": Exit Sub
End Sub

Пока работает, но может нужно поправить что, а?

[viter.alex]

Эти сообщения будут только сбивать с толку. Игорь предложил нормальный вариант, не нужно изобретать велосипед

[Teslenko_EA]

Здравствуйте Костик.
Прислушайтесь к советам и поверьте, сообщение не просто бесполезно, оно лишнее.
А для того "что бы знать", конструкция может выглядеть так:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Len(Me.TextBox1) >= 20 And Not KeyAscii = 8 Then
        'MsgBox "Более 20 символов", vbInformation, "Внимание"
        KeyAscii = 0
    End If
End Sub

(8 нажатие клавиши BackSpace)
Евгений.

[KOSTIK1]

Спасибо ВСЕМ! Совет приму, сообщение выводить не буду, но мне нужно как то показать о превышении(учитывая и пробел тоже), могу я вывести инфу на Label и как.
Спасибо.

[KOSTIK1]

Ещё раз спасибо всем, разобрался. Получилось так-

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(Me.TextBox1) >= 20 Then 
        Label2 = "Более 20 символов"
    End If
    If Len(Me.TextBox1) <= 20 Then
        Label2 = ""
    End If
End Sub

[Teslenko_EA]

Костик, так конструкция будет выглядеть компактнее

Private Sub TextBox1_Change()
Dim s$
If Len(TextBox1) > 20 Then s = "Более 20 символов"
        Label2 = s
End Sub

Евгений.

[KOSTIK1]

Спасибо Евгений, действительно компактно!