Вопрос : VBA - Перерыв после SetFocus

Я имею следующий ошибку переход PROC_ERR

On code

Private Sub ExitCheck () если Me.txt box1.Value = «вписывает здесь» конец If

, то Then
Me.txt box1.SetFocus
если Me.txt box2.Value = «вписывает здесь» резюме PROC_EXIT

End Sub

When Me.txt box1.SetFocus Sub

PROC_ERR
MsgBox Err.Description
выхода If

PROC_EXIT
конца Then
Me.txt box2.SetFocus
вызвано, там будет никаким перерывом для потребителя для того чтобы input новый текст в textbox. Единственная дорога, котор я могу сделать должен вызвать переход PROC_EXIT. В случае щелчка кнопки командование запрограммированном для того чтобы закрыть форму.  она работает отлично с переход PROC_EXIT после SetFocus. Я пытаюсь сопрягать такое же Кодего к случаю Form_Close и он не будет работать в том случае когда вышеуказанная подводная лодка будет вызвана. Он закроет форму без препятствовать тексту input потребителем новому в тексте boxes. class=

Ответ : VBA - Перерыв после SetFocus

Используйте случай Form_Unload вместо. После этого вы можете отменить разгружать.

Ли

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:

Приватное Sub Form_Unload (Cancel как интежер) Если txtbox1 = «входят здесь» после этого MsgBox «пожалуйста вписывает данные в первый textbox» txtbox1.SetFocus Cancel = True ElseIf txtbox2 = «входит здесь» после этого MsgBox «пожалуйста вписывает данные в второй textbox» txtbox2.SetFocus Cancel = True Закончитесь если Закончите подводную лодку