Trouble with Err.Source (Excel 2003)

Topic

New Reply

Loungers

Can anyone test this for me on Excel < 2003?!

MsgBox "An Error Occured." & Chr(13) & Chr(13) & _
"Please call the Developer of this application and give him the following" & _
" Information:" & Chr(13) & Chr(13) & _
"Error Number: " & Str(Err.Number) & Chr(13) & _
"Error Message: " & Err.Description & Chr(13) & Chr(13) & _
"Error Source: " & Err.Source & Chr(3) & Chr(3) & _
"This application will terminate now.", vbCritical + vbOKOnly, "Error Encountered"

No matter what I did I could not get the line “This application will terminate now.” to go on a line by itself.

Thanks for trying

Reply | Quote

Replies

Did you try changing the line:

“Error Source: ” & Err.Source & Chr(3) & Chr(3) & _

to

“Error Source: ” & Err.Source & Chr(13) & Chr(13) & _

– that works for me on the code you posted.

Reply | Quote

Brooke

It was my mistake, I should have looked closer to my typing, and then deleted the message.

Thanks for being my “spare” eyes

Wassim

Reply | Quote

Anything wrong with using vbNewLine in stead of chr(13) ?

Reply | Quote

Jan Karel

I guess the force of habit has so much inertia that it sustains all attempts to change. I have stuck with CHR(13) since my early days with VBA, and its too late to change.

But you do have a point, because it does make the code more readable.

Wassim

Reply | Quote

Jan Karel

I guess the force of habit has so much inertia that it sustains all attempts to change. I have stuck with CHR(13) since my early days with VBA, and its too late to change.

But you do have a point, because it does make the code more readable.

Wassim

Reply | Quote

Anything wrong with using vbNewLine in stead of chr(13) ?

Reply | Quote

Brooke

It was my mistake, I should have looked closer to my typing, and then deleted the message.

Thanks for being my “spare” eyes

Wassim

Reply | Quote