Добрый день, друзья!
Есть вот такая разработка (прикрепил файл).
Вопрос следующий: На UserForm есть 2 TextBox и 1 ListBox.
TextBox-ы это поля ввода состоящего из 2-х частей номера, вида 000 \ 000. Если вторая часть введена неправильно, нужно, выдать сообщение пользователю и пригласить его (мигающим курсором) к повторному вводу варианта. Попробовал сделать так:
, но, .SetFocus - не работает.
Есть идеи?
Всем откликнувшимся - спасибо!
Есть вот такая разработка (прикрепил файл).
Вопрос следующий: На UserForm есть 2 TextBox и 1 ListBox.
TextBox-ы это поля ввода состоящего из 2-х частей номера, вида 000 \ 000. Если вторая часть введена неправильно, нужно, выдать сообщение пользователю и пригласить его (мигающим курсором) к повторному вводу варианта. Попробовал сделать так:
Код |
---|
MsgBox "Диапазон допустимых значений: целое число от 1 до 12", vbCritical + vbOKOnly, "Значение вне диапазона:" znac = " " With Me With .tbx_NomDetalB .Text = znac .SelStart = 1 .SetFocus ht = .Top + .Height + 35 wt = .Left + .Width + 15 End With .Height = ht .Width = wt End With Exit Sub |
Есть идеи?
Всем откликнувшимся - спасибо!