Глобальный ON Erorr

[Taras2]

Можно ли, и как сделать сабж. Т.е. не писать в каждой процедуре

ON Erorr GoTo ErrorLabel
...
ErrorLabel:
...
Resume Next

а сделать её общей на весь проект (или хотябы модуль).

[Lobo]

Увы, увы... Такое не предусмотрено, поскольку нет глобальных решений всех проблем сразу. С каждой ошибкой надо разбираться по отдельности. Но ошибку можно и не ловить, а обрабатывать её в вызывающем модуле.

[XPraptor]

Почему же нельзя, можно все, главное желание. Пишешь в модуле Public функцию которая будет получать параметрами коды ошибок и идентификатор процедур и функций из которых происходит вызов. А потом из любой процедуры вызываешь в случае ошибки эту функцию и передаешь ей нужные параметры.

[Lobo]

Пардон, XPraptor, но ведь всё равно в каждой процедуре придётся писать

ON Erorr GoTo ErrorLabel
...
ErrorLabel:
...
Resume Next

А ведь об этом-то и был вопрос!

[XPraptor]

GoTo Label не нужно писать нужно функцию вызывать:
On Error Call PublicErrFuncs("CurrentProcedureName", Err.Number,...):Resume Next

[Taras2]

On Error Call PublicErrFuncs("CurrentProcedureName", Err.Number,...):Resume Next

MsgBox:

Compile error:

On Error Expected: GoTo or Resume

[XPraptor]

Сорри! Конечно же не просто On Error, а через RiseEvent.

[Taras2]

Сорри! Конечно же не просто On Error, а через RiseEvent.

Поясни подробнее плз.