TextBox, SetFocus и Enter перестает работать

[VictorM]

Здравствуйте, Уважаемые!
Вот "вылез" очередной баг, с которым никак не могу справится.
Есть форма с парой текстбоксов, кнопками "Внести" и "Очистить".
При инициализации формы фокус на на первый текстбокс устанавливается согласно TabIndex = 0.
Затем вот такие строчки:

Private Sub КодКлиентаСР_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)'переход по Enter
    If KeyCode = vbKeyReturn Then Call КодКлиентаСР_Обработать
End Sub

Private Sub КодКлиентаСР_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)' или по клику на втором текстбоксе
    Call КодКлиентаСР_Обработать
End Sub

Два события используются по заданиюю.
После внесения введенных данных кнопкой "Внести" текстбоксы очищаются кнопкой "Очистить" и фокус переностися опять на первый текстбокс КодКлиентаСР

Private Sub СР_Сброс_Click()
КодКлиентаСР.SetFocus
'код очистки эелеменов формы
End Sub

и вот тут возикает эта проблема. Перестает работать Enter. Т.е. я ввожу данные, нажимаю Enter и никакой реакции.
Если кликаю мышом на втором боксе все срабатывает, данные обновляются.
Причем, что странно, может работать как-то через раз.
Есть подозрение, что это все из-за SetFocus (перечитал кучу всего и на нашем форуме и в инете) но как это победить не знаю.
И фокус после очистки обязательно должен быть опять в КодКлиентаСР.
К сожалению не могу выложить файл с формой и кодом, т.к. она связана с данными в базах и все равно отдельно не сработатет.
Плюнул бы и оставил как есть, мышом же переходит, но народ хочет чтобы работало именно так - и мышом и Enter'ом.
Подскажите, пожалуйста, можно как-то с этим побороться?
Спасибо.

[nerv]

VictorM, не хочу играть в угадйки - пример в файле.

[VictorM]

Понимаю, сам бы так сказал..
Ладно, буду пробовать, может что найду.

[RAN.]

Enter работает, а вот при получении фокуса через SetFocuc ни события КодКлиентаСР_KeyDown, ни события КодКлиентаСР_BeforeUpdate не возникает.

[VictorM]

при получении фокуса через SetFocuc ни события КодКлиентаСР_KeyDown, ни события КодКлиентаСР_BeforeUpdate не возникает.

Все так. Эти события мне нужно получить после ввода данных в текстбокс.
Вот думаю, как обойти все это. И чтобы фокус поместить в текстбокс и Enter после этого работал. (И ведь работает иногда, но именно что иногда и не на всех компах)

[RAN.]

Без файла точно ничего не выйдет. Скорее всего, процедуры так завязаны, что ожидаемого результата не получается.

[VictorM]

Справился.
Несколько через ..., но теперь работает как заказывали))
Кнопкой "Очистить" кроме очистки элементов формы, выгружаю и тут-же показываю опять форму. На глаз не заметно. Фокус на месте (устанавливается согласно TabIndex = 0). От SetFocuc отказался полностью.
Все работает.
Спасибо всем за участие.