Получить программно название процедуры

[Евгений Д.]

Коллеги, кто знает, как программно получить название процедуры в коде внутри нее? И возможно ли это?

Т.е., например, надо что-то вроде:

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

Function Test(...)
    ....
    if ... then
       msgbox "Ошибка в функции", vbExclamation + vbOKOnly,  ProcName
    end if
    ....
end Function

где ProcName = "Test"

Вопрос, а как "залить" значение "Test" в ProcName?

[GSerg]

В каждой процедуре первой строкой написать const ProcName as string = "ProcName".

[Евгений Д.]

Т.е. только ручками? Программно никак?

[lord0n]

а ты не знаешь какая процедура с какой кнопкой связана?

[Евгений Д.]

На самом деле кнопок никаких нет. Просто я хочу написать "универсальную" функцию сообщений об ошибках, например, при помощи обычного MsgBox, в заголовке окна которого была бы фраза вида "Ошибка в процедуре 'Название процедуры' ", где 'Название процедуры' и есть имя процедуры (Sub или Function), вызвавшей данную фукцию сообщения об ошибке.
Просто "ломает" каждый раз явно писать название процедуры или заводить константы, а хочется иметь что-то типа Me.Name.

Кстати аналогичный вопрос о названии модуля или названии проекта, в котором "лежит" вызывающая процедура.

[pshik]

Exit_ToExcel:
DoCmd.Hourglass False
Exit Sub

Err_ToExcel:

If Err.Number = 13 Then
Err.Clear
GoTo Exit_ToExcel
ElseIf Err.Number = 3734 Then

MsgBox "There is a system error. Close program and try again"
Err.Clear

Else
MsgBox Err.Number & " " & Err.Description & " [ExcelForceIn]"
GoTo Exit_ToExcel
End If
DoCmd.Hourglass False

[Mech]

Интересная статейка
определить не только процедуру, но и номер строки
http://access.boom.ru/Library/Algoritms ... cedure.htm

[smaharbA]

Sub proc()
On Error GoTo proc_err
a = 1 / 1
a = 1 / 0
Exit Sub
proc_err: MsgBox msg_err("proc_err:")
End Sub

Function msg_err(se)
s = Split(VBE.CodePanes(1).CodeModule.Lines(1, VBE.CodePanes(1).CodeModule.CountOfLines), vbCrLf)
pr = ""
err_proc = ""
i = 1
For Each c In s
If InStr(c, se) = 1 Then
err_proc = Err.Description & " in <" & pr & ">"
Exit For
End If
If InStr(LCase(c), "sub ") > 0 Or InStr(LCase(c), "function ") > 0 Then
pr = c
End If
i = i + 1
Next
If err_proc <> "" Then msg_err = err_proc
End Function
///
Но это тоже что и завести константы почти