Обработка ошибок

используй erl()
только если в строке с ошибкой нету номера строки erl() возвращает 0

0

А Вы про какую версию говорите? и что это за функция erl()? Насколько я знаю единственный способ это нумеровать строчки (сегменты) спомощью стрингов.

0

VB6.0

sub test
dim a as long
on error goto err_handler
a=1000/0
exit sub
err_handler:
debug.print erl()'напишет 0
end sub

sub test
dim a as long
on error goto err_handler
333: a=1000/0
exit sub
err_handler:
debug.print erl()'напишет 333
end sub

0

Тоже кстати вариант с erl()
Но эта функция недокументированная и ничего такого сверхполезного она не делает.
К тому же у нее недостаток если метка у строчки не поставлена метка она вернет 0
Ведь часто нужно знать просто функцию в которой происходит ошибка (это можно автоматически практически). Вот попробовал привести пример реального кода, извените если перегружен лишними указателями

Private Function Save_test() As Boolean
Dim str_test As String
On Error GoTo hell
Save_test = False
str_test = 2
If Len(Me.begindate.Value) <= 0 Or Not IsMydate(Me.begindate.Value) Then
MsgBox 'Неверная дата начала', vbCritical
Save_test = False

begindate.SetFocus
Exit Function
End If
str_test = 3
If Len(Me.enddate.Value) <= 0 Or Not IsMydate(Me.enddate.Value) Then
MsgBox 'Неверная дата окончания', vbCritical
Save_test = False
End if
Save_test = True
Exit Function
hell:
Call Errate('dms.save_test' & str_test)
End Function

'Обработка ошибок

Public Function Errate(MODULE As String) As String
Dim str As String
str = 'Номер ошибки: ' & Err.Number & Chr(13) & 'Описание: ' & Err.Description & Chr(13) & 'Источник: ' & Err.Source _
& Chr(13) & 'Модуль: ' & MODULE & Chr(13)

MsgBox str
Debug.Print str

On Error Resume Next
Err.Clear
End Function

0

ormed: Ведь часто нужно знать просто функцию в которой происходит ошибка

... а потом её тиранить и разбираться что почём.

согласен

но раз уж человек спросил ... трудно было отказать

0

Совершенно с Вами согласен!
Нужно знать какие, где, как часто ошибки происходят.
Все же строчки не пронумеруешь, но если какой баг глубоко затаился, то в той функции нужно и строчки ВСЕ пронумеровать, я в этом плане, больше всего не люблю ошибку 13 Object required вот здесь нужно знать номер строчки.

0