Как правильно прервать цикл выполнения

[tae1980]

Ситуация: при работе с книгой на экране весит форма вызванная в vbModeless режиме. Одновременно с этим пользователь запускает цикл макросов по формированию документов. Внутри этого цикла есть самостоятельная процедура проверки полноты ввода исходных данных (это может быть 3-6 уровень вложенности). Если они не полны пользователю выводиться сообщение об этом с вопросом о продолжении формирования документа да/нет. Если пользователь отвечает "да", все хорошо, но если пользователь отвечает "нет" происходит выход по команде "End" для того что выйти из цепочки любого уровня вложенности (код привожу). При этом закрывается так же и форма открытая в vbModeless режиме.
Вопрос: как выйти из цепочки вызовов с сохранение рабочей формы в режиме vbModeless?

            rc = MsgBox(Сис_Ошибка, config, Title)
            If rc = vbNo Then End

[IgorGO]

Вопрос: как выйти из цепочки вызовов с сохранение рабочей формы в режиме vbModeless?

надо корректно написать код.

[EducatedFool]

End - это команда останова ВСЕХ макросов.
Выход из процедуры - Exit sub или exit function
Надо в коде предусматривать возврат с 6 уровня на первый.
Понимаю, что это много кода, - но так уж устроено структурное программирование.

Как сделал бы я:
1) код вывода msgbox в первом уровне вложенности (ни в коем случае не глубже второго!)
2) если так уж нужен msgbox на глубоких уровнях - то только END, и потом всё заново
3) переделал бы весь код, оставив максимум 3 уровня вложенности
(этого достаточно в абсолютном большинстве случаев)

PS: Ничуть не сомневаюсь, что вы отвергнете все 3 моих совета, и опять скажете, что VBA - плохой язык, ибо в REXX это можно было как-то сделать

[EducatedFool]

Ещё вариант навскидку:

...

rc = MsgBox(Сис_Ошибка, config, Title)
If rc = vbNo Then application.ontime now+timeserial(0,0,1),"ЗапускФормы": End

...

sub ЗапускФормы()
userform1.show
end sub

Не уверен, что получится, - но я бы попробовал.

[tae1980]

Сообщение от EducatedFool

End - это команда останова ВСЕХ макросов.
Выход из процедуры - Exit sub или exit function
Надо в коде предусматривать возврат с 6 уровня на первый.
Понимаю, что это много кода, - но так уж устроено структурное программирование.

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

Сообщение от EducatedFool

Как сделал бы я:
1) код вывода msgbox в первом уровне вложенности (ни в коем случае не глубже второго!)
2) если так уж нужен msgbox на глубоких уровнях - то только END, и потом всё заново
3) переделал бы весь код, оставив максимум 3 уровня вложенности
(этого достаточно в абсолютном большинстве случаев)

Я пошел по пути создания универсальных процедур. Вот свел ВСЕ проверки данных в одну процедуру (что было сделать не сложно). И получил побочный эффект: вызывать её можно откуда угодно, с любого уровня. Что оказалось не всегда хорошо. :)) С другой стороны, возникновение подобной проблемы, можно рассматривать как следствия ошибки проектирования.
Вложенность контролировать очень сложно, так как почти все системные функции в той или иной степени универсальны, а степень структурирования весьма велика. Их может вызвать сам пользователь (получаем 2-3 уровень), а могут вызвать и процедуру в "фоновом" режиме (а здесь возможны весьма забавные цепочки).

Сообщение от EducatedFool

PS: Ничуть не сомневаюсь, что вы отвергнете все 3 моих совета, и опять скажете, что VBA - плохой язык, ибо в REXX это можно было как-то сделать :)

Я мог сказать такое только в шутки или сгоряча. :) Хорошо понимаю, что нет ничего абсолютно хорошего или абсолютно плохого. Вот Си освоить мне так и не удалось (делал две попытки с разницей в 5 лет). Меня бросает в дрожь только от вида всего этого "кошмара".
У меня иная школа и иной опыт. Не скажу, что это хорошо или плохо. Так есть. Может быть со временем мои взгляды и изменятся или просто стану терпимее (читай старее). :))

[tae1980]

Сообщение от EducatedFool

Ещё вариант навскидку:

...
rc = MsgBox(Сис_Ошибка, config, Title)
If rc = vbNo Then application.ontime now+timeserial(0,0,1),"ЗапускФормы": End
...

sub ЗапускФормы()
userform1.show
end sub

Не уверен, что получится, - но я бы попробовал.

Я не сомневаюсь что получиться.
Только использования подобного, мне бы очень хотелось избежать. Это не решение проблемы, а обход её. Если рассматривать проблему как ошибку проектирования, то она все равно встанет боком (ещё большим) в другом месте. Лучше решить её сейчас.

[tae1980]

Сообщение от EducatedFool

End - это команда останова ВСЕХ макросов.
Выход из процедуры - Exit sub или exit function
Надо в коде предусматривать возврат с 6 уровня на первый.
Понимаю, что это много кода, - но так уж устроено структурное программирование.

Такой вопрос: может ли процедура (sub) возвращать значение или иной механизм? Может быть есть какой либо код/индекс/прочее правильного выполнения на которое можно повлиять изнутри процедуры.
Я прикидываю как создать систему возврата ошибки без преобразования процедур в функции.

[Hugo121]

Глобальная/публичная переменная?

[kuklp]

Кто мешает присвоить значение ошибки глобальной переменной?
Игорь опередил:-)

[tae1980]

Сообщение от kuklp

Кто мешает присвоить значение ошибки глобальной переменной?
Игорь опередил:-)

Ну что же, на этом варианте и остановимся. :)