VBA Access. Obtener más datos de ayuda para depurar errores en una aplicación Access en producción.

'VBA Access no ofrece de forma nativa una manera de obtener datos como el nombre del procedimiento que ha causado el error y la línea.
'Si tenemos problemas para depurar los errores de nuestra aplicación Access, podemos añadir un poco de código para ayudar a esta tarea, sobretodo en un entorno de producción.
'NOTA: Numerar las líneas, nos permitirá con la función ERL obtener la línea que ha causado el error

Function ProcName(Arg1 As String, Arg2 As String)
On Error GoTo error

Const METHODNAME = "ProcName"

10  línea de código
30  línea de código
40  línea de código
...

Exit Function
error:
    MsgBox "ModName: " & Application.VBE.ActiveCodePane.CodeModule.Name & vbCrLf & _
            "ProcCall: " & METHODNAME & vbCrLf & _
            "ErrorLine: " & Erl & vbCrLf & _
            "ErrorNum: " & Err.Number & vbCrLf & _
            "ErrorDesc: " & Err.Description & vbCrLf & _
            "SourceCode: " & Err.Source, , "AppName"
End Function