Как продолжить выполнение кода со следующей строки?

[kminas]

Каким оператором, при отсутствии ошибки, можно продолжить выполнение кода со следующей строки?

[Денис]

при отсутствии ошибки код выполняется строка за строкой автоматически.
Ну а при возникновении ошибки в строке, она игнорируется, если в начале функции есть инструкция On Error Resume Next

Если же у тебя в функции есть обработка ошибок, то
Resume - возвращает на строку, где возникла ошибка,
Resume Next - возвращает на строку, следующую за строкой, где возникла ошибка.

Под обработкой ощибок подразумевается такая примерно конструкция:

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

sub RoutineName

On Error Goto RoutineName_Err_Handler

... код

On Error Goto0
exit sub

RoutineName_Err_Handler:

... обработка ошибок
if что-то then Resume
if что-то еще then Resume Next

end sub

[kminas]

Это не совсем то. ОШИБКИ НЕТ!
Я хочу выяснить, например, правильное ли число ввел пользователь в TextBox и спрашиваю его об этом. Если ошибка, то он нажимает НЕТ и возвращается в TextBox, а если все правильно и пользователь нажал ДА, программа должна идти дальше. Кроме GoTo ничего не знаю. А это, говорят, не лучший оператор.

[Денис]

Гспди! Ну и постановка вопроса...

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

dim Reslt as integer

Reslt = msgbox("Ага?", vbYesNo, "Угу")

if reslt = vbYes then
   'Делаем что-то
else
   'Делаем нечто
end if

[kminas]

Гспди! Ну и постановка вопроса...

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

dim Reslt as integer

Reslt = msgbox("Ага?", vbYesNo, "Угу")

if reslt = vbYes then
   'Делаем что-то
else
   'Делаем нечто
end if

У меня это все ЕСТЬ!

else
'Делаем нечто

Что это нечто.
Как перейти к следующей строке без GoTo?

[mshak]

покажи кусок кода который ты пишешь...

[Денис]

Вот необходимый и достаточный минимум, чтобы мессагой возвращать фокус обратно в текстбокс

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

sub Text1_lostfocus

dim Reslt as integer

Reslt = msgbox("Ага?", vbYesNo, "Угу")

if reslt = vbNo then
   Text1.SetFocus
end if

End sub

[kminas]

Извините друзья, бес попутал. Код-то у меня похожий, но я не знал, как выйти из него при положительном ответе. Не надо ни-чеее-го делать. Например, как написал Денис

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

if reslt = vbNo then
   Text1.SetFocus
end if

. Спасибо всем.