Generically reference the current control

[RLN]

I have this error message format I use for my error handling in all
modules, both in vba code inside of a form and vba code that is outside
of forms:

MsgBox Err.Number & "-" & Err.Description, vbOKOnly, cstPgmName & "-" &
cstError
(where the "cst*" fields are constants referencing the program name and
Error title)

When I use the above line, I would like to also include in the titlebar
of the message the current vba module name where the message came from
and/or the current control being used.

Is there a way to do this?

Thanks.

[Rick Brandt]

RLN wrote:

I have this error message format I use for my error handling in all
modules, both in vba code inside of a form and vba code that is
outside of forms:

MsgBox Err.Number & "-" & Err.Description, vbOKOnly, cstPgmName & "-"
& cstError
(where the "cst*" fields are constants referencing the program name
and Error title)

When I use the above line, I would like to also include in the
titlebar of the message the current vba module name where the message
came from and/or the current control being used.

Is there a way to do this?

The current control perhaps with screen.activecontrol, but there will be
times when popups will cause that to be incorrect. The module and routine
are not retrievable. You'll need to supply those manually.

--
Rick Brandt, Microsoft Access MVP
Email (as appropriate) to...
RBrandt at Hunter dot com

[John Welch]

I would recommend you get an add-in called MZ-Tools. It does lots of cool
things in the vba editor, and one of the coolest is that it lets you write
error handler templates that include the procedure name and module name, and
it inserts these easily into your procedures. I think it's even free or
shareware.
-John

"RLN" <rl***************@yahoo.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...

>I have this error message format I use for my error handling in all
modules, both in vba code inside of a form and vba code that is outside
of forms:

MsgBox Err.Number & "-" & Err.Description, vbOKOnly, cstPgmName & "-" &
cstError
(where the "cst*" fields are constants referencing the program name and
Error title)

When I use the above line, I would like to also include in the titlebar
of the message the current vba module name where the message came from
and/or the current control being used.

Is there a way to do this?

Thanks.