Не могу установить SetFocus

[VictorM]

Появилась такая проблемка. Поиск по форуму ничего не дал.
На форме несколько TextBox ов. Первый "Закупка", второй "Продажа" и т.д.
Пытаюсь сделать проверку на то, чтобы поле Закупка небыло пустым или Закупка небыла больше Продажи. Вроде все просто. Но после проверки не могу установить фокус в поле Закупка. Активируется поле со следующим TabIndex.

Код: Выделить всё

Private Sub Продажа_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Рассрочка").Range("D9") = Продажа.Text
If Закупка.Text = "" Or Закупка.Text > Продажа.Text Then
MsgBox "Ошибка в поле 'Закупка' ", vbInformation, " "
Продажа.Text = ""
Закупка.SetFocus
Exit Sub
End If
End Sub

Подскажите, где моя ошибка?
Спасибо.
p.s. после разных экспериментов замечаю, что дело по-моему в BeforeUpdate. После выполнения строки Закупка.SetFocus, выполнение процедуры начинается сначала
на пробной форме "втупую" SetFocus устанавливается без проблем

[SunKiSSka]

VictorM, у меня есть такой вариант, который позволяет вернуться на то же место (на тот же Text Box) на форме при потере фокуса:

Код: Выделить всё

Dim x
Private Sub Text1_GotFocus()
    On Error Resume Next
    Text1.SelStart = x
End Sub
Private Sub Text1_LostFocus()
    x = Text1.SelStart
End Sub

когда то такое делала, вроде должно работать

И есть, например, код для перебора массива элементов Text Box, который позволяет последовательно обойти все элементы:

Код: Выделить всё

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then 'нажата клавиша ENTER
NewIndex = Index + 1 'вычисляется следующий по индексу TextBox
On Error Resume Next 'если достигнут последний индекс, это позволит избежать ошибки
Text1(NewIndex).SetFocus 'операция получения ввода следующего ТекстБокса
End If
End Sub

[VictorM]

SunKiSSka, спасибо! Сейчас буду пробовать.
***
чёт не могу въехать, куда притулить Ваш код (первый фрагмент)

[VictorM]

Вопрос решен. На соседнем форуме есть такой человек - pashulka (жаль, что он перестал заходить на наш форум). С его помощью и была решена эта задача.

Код: Выделить всё

Private iFocus As Boolean

Private Sub Продажа_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Temp_Macro
End Sub

Private Sub Продажа_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then Temp_Macro
End Sub

Private Sub Temp_Macro()
   If iFocus = True Then
      iFocus = False: Exit Sub
   End If
   If Закупка.Value = "" Or _
      Val(Закупка.Value) > Val(Продажа.Value) Then
      'На самом деле просто Val() недостаточно, ибо :
      'MsgBox Val("5.5")
      'MsgBox Val("5,5")
      
      iFocus = True 'Or iFocus = Not iFocus
      Продажа.Value = "":  Закупка.SetFocus
    End If
End Sub

p.s. кому интересны подробности http://www.progz.ru/forum/index.php?showtopic=36042

[kminas]

Вопрос решен. На соседнем форуме есть такой человек - pashulka (жаль, что он перестал заходить на наш форум). С его помощью и была решена эта задача.

Умный мужик, мне здорово помог.

И есть, например, код для перебора массива элементов Text Box, который позволяет последовательно обойти все элементы:

Код: Выделить всё

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then 'нажата клавиша ENTER
NewIndex = Index + 1 'вычисляется следующий по индексу TextBox
On Error Resume Next 'если достигнут последний индекс, это позволит избежать ошибки
Text1(NewIndex).SetFocus 'операция получения ввода следующего ТекстБокса
End If
End Sub

А как потом вернуть фокус на CommandButton?

[VictorM]

Умный мужик, мне здорово помог.

Да уж, он очень многим помог.

А как потом вернуть фокус на CommandButton?

я пока не разбирался с этим кодом. Может SunKiSSka знает ?