求助,各位大侠!

Question

当运行代码发生错误时,我想把当前的FORM NAME 及 Porcedure Name 写到一个LOG中, FORM NAME 可以用ME.NAME 获取, 不知如何获取SUB或FUNCTION的名称? 是不是只能用硬代码?
如:
Private Sub cmdClose_Click()
    On Error GoTo ErrHandler
    Unload Me
    Exit Sub
ErrHandler:
   Call gpWriteErrorLog(App.EXEName, Me.Name, "cmdClose_Click(): " & Err.Description)
End Sub上面的"cmdClose_Click(): "用硬代码写了!能不能有更好的方法?

Answer 1

errinfo:
    str = "发生错误在保存" & titlelab & "档案时" & Chr(13) & "错误号："
    str = str & Err.Number & Chr(13) & "错误原因：" & Err.Description & Chr(13) & "程序中止!"
    MsgBox (str)
    If MsgBox("是否忽略错误，继续运行？", 4 + 32) = 6 Then
        Err = 0
        Resume Next
    Else
        End
    End If

Answer 2

楼上的: titlelab 是什么? 是一个变量吗? 如何赋值?