Позиционирование на форме

[tae1980]

Очередной ламерский вопрос: при вводе пользователем текста в textbox нужно проверить корректность ввода, и если что-то не так вывести сообщение и вернуться к редактированию. То есть нельзя уйти из textbox с неправильным значением. Решаю её так:

Private Sub tbПечатьЧислоКопий_AfterUpdate()
    If IsNumeric(tbПечатьЧислоКопий.Value) Then
        tbПечатьЧислоКопий.Value = Format(tbПечатьЧислоКопий.Value, "0")
    Else
        MsgBox "Следует ввести целое число"
        tbПечатьЧислоКопий.SetFocus
    End If
End Sub

Все бы ни чего, но фокусировка после вывода сообщения происходит не на нужном textbox'се, а на элементе со следующим номером TabIndex.

Что я делаю не так?

[EducatedFool]

А я делаю так, что в текстбокс невозможно ввести ничего, кроме целого числа.
Пример кода можете посмотреть в этой программе:
http://excelvba.ru/programmes/Fill_Invoice
(так, в частности, сделано для полей «серия паспорта» и «номер паспорта»)

Или вообще отключаю ввод в текстбокс, предоставляя пользователю ScrollBar или SpinButton для изменения значения:



Ну и, конечно, можно воспользоваться комбобоксом, вбив в него значения от 1 до 50, и запретив редактирование значений (.style = styleList)

[tae1980]

Спасибо. Интересно.
Еще вопрос: выводим список таблиц готовых для печати, а рядом два взаимоисключающих OptionButton: "Печатаем все таблицы", "Печатаем выбранные таблицы". Возможны следующие ситуации:
1. Выбрали один из OptionButton напрямую: в цикле снимаем или ставим галочки на все таблицы.

Private Sub obПечатьВсе_Click()
    For n = 1 To lvЛистыСписок.ListItems.Count
        lvЛистыСписок.ListItems(n).Checked = True
    Next n
End Sub

2. Снятие галочки с одного/нескольких таблиц: выбираем OptionButton "Печатаем выбранные таблицы".
3. Ставим галочки на все таблицы (если ранее сработало событие 2): выбираем OptionButton "Печатаем все таблицы".

Private Sub lvЛистыСписок_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    If Item.Checked = False Then
        obПечатьТаблицы.Value = True
    Else
        For n = 1 To lvЛистыСписок.ListItems.Count
            If lvЛистыСписок.ListItems(n).Checked = False Then Exit For
        Next n
        If n > lvЛистыСписок.ListItems.Count Then obПечатьВсе.Value = True
    End If
End Sub

При событиях 2 и 3 установка значений OptionButton происходит командой аналогичной "obПечатьВсе.Value = False".

Проблема заключается в том что при событиях 2 и 3 срабатывают действия для события 1 как будто произошел прямой щелчок. А нужно просто включить тот или иной OptionButton.
Пытался для отслеживания события 1 использовать разные события "Clik" и "Change". Срабатывают всегда оба события.

Как быть?

[tae1980]

Вопрос решился использованием события "_BeforeUpdate".