глобальные ошибки

[xfolder]

vot interesno mojno li kak nit perehvativat ERRORS golobalno?

naprimer proga v paru tisyach strok koda s 100 SUBS kajdaya rabotaet s dinamicheskimi dannimi.

pisat error handler v kajduy neudobno

mojet kakto mojno sozdat globalnii obrabotchik oshibok po error code?

[v-adix]

не думаю что в бейсике так можно.

ты лучше напиши программу, которая будет добавлять error handler'ы за тебя. например там указываешь процедуры в которые надо добавить Errror handler. Допустим выбрал модуль Form1 (форма), и выбираешь "Добавить хэндлеры во все процедуры". Прога добавляет во все Sub'ы и Function'ы код такого типа:

Имя Процедуры Или Функции()
On Error Goto ErrorHandler
Тут код процедуры
Exit Sub[или Function]
ErrorHandler:
HandleError Err.Number, ИмяПроцедуры, ИмяМодуля
End Sub[или Function]

В хэндлерах программа ссылается на процедуру HandleError(ErrorNumber as integer, SubName as String, ModuleName as string) с параметрами: номер ошибки, имя процедуры, имя модуля. А эту процедуру ты пишешь сам. В ней пишешь например:

Select Case ModuleName
Case Is = "Form1"
Select Case SubName
Case Is = "Command1_Click()"
If ErrorNumber = xx Then
Msgbox "Ошибка! Вы сделали что то не то при клике на кнопку Command1 в модуле Form1! Возникла ошибка " & ErrorNumber & " !"
End If
End Select
End Select

только прогу долго писать... но это помоему единственный выход!

[Tarik]

Так зачем самому писать, когда всё уже давно придуманно! И называется оно Numega FailSafe. Щас поищу, может линк найду...

[v-adix]

может и есть. но в принципе написать свою не трудно, хотябы самую простую.