Chapter 9

trechriron · June 16th, 2009, 06:49 PM

On page 289. The code doesn't compile. The MsgBox with just quotes is not working. The database I am working on is a .mdb file. I have tried putting parans around it, but the VBA editor is still showing it as red.

Quote:

Originally Posted by Book

Code:

Public Sub DisplayUnexpectedError (ErrorNumber as String, ErrorDescription as String)
â Note: since this is a universal error handling procedure, it does not have error handling
MsgBox âAn error has occurred in this application. â _ 
& âPlease contact your technical support and â _ 
& âtell them this information:â _ 
& vbCrLf & vbCrLf & âError Number â & ErrorNumber & â, â & 
ErrorDescription, _Buttons:=vbCritical, title:=âMy Applicationâ

End Sub

This is copied right from the book.

Any ideas?

DaveTho · June 25th, 2009, 12:16 PM

Try using upright single and double quotes.

<code>
Public Sub DisplayUnexpectedError(ErrorNumber As String, ErrorDescription As String)
' Note: since this is a universal error handling procedure, it does not have error handling
MsgBox "An error has occurred in this application. " _
& "Please contact your technical support and " _
& "tell them this information:" _
& vbCrLf & vbCrLf & "Error Number " & ErrorNumber & ", " _
& ErrorDescription, vbCritical, "My Application"
End Sub
</code>

trechriron · June 25th, 2009, 12:25 PM

I will give that a shot. Thanks!