Error messages

[Mike N.]

Hi -
re:Access2003 - Is there a way to change the text in an Access generated
Error Message? I would like to be able to take error 424, for example, and
have additional text appear. Also, is there a way to eliminate warning
messages such as "Warning, you are about to delete xxx records"?
Thanks for your help!
Mike

[Rick Wannall]

I doubt you can change Access's error message (or that the way you would do
it would make it appealing). H

However, you can create your own table of additional text. At minimum put
an error number field and an additional text field. Create a function such
as MyErrorText(). It would receive the error number and Access' error text,
and return the adjusted text. A simple version:

public function MyErrorText(ErrNum as long, ErrText as string) as string

dim dim vMyText as variant
vMyText = dlookup("Additionaltext", "MyErrorTextTable", "[ErrNum]=" &
ErrNum)
if isnull(vMyText) = true then
MyErrorText = ErrText 'just return the original text if you don't have
anything to add
else
MyErrorText = ErrText & vbcrlf & vbcrlf & vMyText
endif

end function

Add your text before or after the standard text as you see fit.

You can even salt your text with "tokens", such as putting "[username]"
somewhere in the text and then processing that in your function to replace
the token with the user name.

[cjb_kjb]

To eliminate the warning messages that say "you are about to update xxx
records" etc:

docmd.setwarnings false
run your sql
docmd.setwarnings true

To append your own error message to the normal one:

In the error routine

msgbox mytext & err.description

how you get mytext is up to you - it can be held in a table as
suggested by Rick or hard coded if there is only a few places you want
to append text - eg

if err.number = 424 then
msgbox mytext & err.description
else
msgbox err.description
endif
resume xxx