Get the name of the function or sub from within code?

[Lauren Quantrell]

Maybe this is just a bit too strange...
Is there a way to get the name of the Function or Sub from within that
Function or Sub?
For example, I have the following code:

Function myFunctionName(myStr as string)

'run some code here...

myExit:
Exit Function
myErr:
MsgBox Err.Number & " " & Err.Description
Resume myExit
End Function

What I want to do is this:

Function myFunctionName(myStr as string)

'run some code here...

myExit:
Exit Function
myErr:
Dim myFN as string
myFN = (code to determine myFunctionName)
Call AppendErrors(Err.Number, Err.Description, myFN, Now())
Resume myExit
End Function
sub AppendErrors(myErrNumber as long, myErrDescription as string,
_
myFunctionName as string, myDateTime as date)

'run code to insert the error into a table...

end sub

Any help is appreciated,
lq

[Allen Browne]

No. VBA does not expose this to you, so you have to include a literal string
value for each routine.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Lauren Quantrell" <la*************@hotmail.com> wrote in message
news:47*************************@posting.google.co m...

Maybe this is just a bit too strange...
Is there a way to get the name of the Function or Sub from within that
Function or Sub?
For example, I have the following code:

Function myFunctionName(myStr as string)

'run some code here...

myExit:
Exit Function
myErr:
MsgBox Err.Number & " " & Err.Description
Resume myExit
End Function

What I want to do is this:

Function myFunctionName(myStr as string)

'run some code here...

myExit:
Exit Function
myErr:
Dim myFN as string
myFN = (code to determine myFunctionName)
Call AppendErrors(Err.Number, Err.Description, myFN, Now())
Resume myExit
End Function
sub AppendErrors(myErrNumber as long, myErrDescription as string,
_
myFunctionName as string, myDateTime as date)

'run code to insert the error into a table...

end sub

Any help is appreciated,
lq

[Terry Kreft]

Get hold of mz-tools ( http://www.mztools.com ) with this you can edit the
error handler code it inserts for you. One of the tags it automatically
converts is for the procedure name.

Terry

"Lauren Quantrell" <la*************@hotmail.com> wrote in message
news:47*************************@posting.google.co m...

Maybe this is just a bit too strange...
Is there a way to get the name of the Function or Sub from within that
Function or Sub?
For example, I have the following code:

Function myFunctionName(myStr as string)

'run some code here...

myExit:
Exit Function
myErr:
MsgBox Err.Number & " " & Err.Description
Resume myExit
End Function

What I want to do is this:

Function myFunctionName(myStr as string)

'run some code here...

myExit:
Exit Function
myErr:
Dim myFN as string
myFN = (code to determine myFunctionName)
Call AppendErrors(Err.Number, Err.Description, myFN, Now())
Resume myExit
End Function
sub AppendErrors(myErrNumber as long, myErrDescription as string,
_
myFunctionName as string, myDateTime as date)

'run code to insert the error into a table...

end sub

Any help is appreciated,
lq