MyTetra Share
Делитесь знаниями!
Прислушайтесь к советам и поверьте, сообщение не просто бесполезно, оно лишнее.
Время создания: 31.07.2019 22:37
Текстовые метки: проверка ввода
Раздел: !Закладки - VBA
Запись: xintrea/mytetra_db_adgaver_new/master/base/15203099893sgtacph2c/text.html на raw.githubusercontent.com
Прислушайтесь к советам и поверьте, сообщение не просто бесполезно, оно лишнее.
А для того "что бы знать", конструкция может выглядеть так:
Код:


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)

Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования