Check the error number : Error « Language Basics « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Language Basics » Error 
Check the error number
 
Sub errorTest1()
    Dim intNumerator As Integer
    Dim intDenominator As Integer
    Dim intResult As Double
    On Error GoTo mytrap

    intNumerator = InputBox("Please enter a numerator""Numerator")

enterDenominator:
    intDenominator = InputBox("Please enter a denominator""Denominator")

    intResult = intNumerator / intDenominator
    msgBox "The result is " & intResult
    Exit Sub
mytrap:
    If Err.number = 11 Then
       msgBox ("The description of the error is " & Err.Description)
    Else
       msgBox ("Something else is going wrong")
    End If
    Resume enterDenominator
End Sub

 
Related examples in the same category
1.Properties of the Err Object
2.Raising an Error
3.Deal with the error
4.Create an error, and then query the object for the error number and description
5.Get the Error source
6.Creating a User-Defined Error
7.Viewing the Errors Stored in the Errors Collection
8.Using the LogError Routine
9.Writing Information to a Textual Error Log File
10.The Mail your Error Routine
11.Move through the Errors collection and display properties of each Error object
12.Trap the error with On Error GoTo
13.Show Error discription in MsgBox
14.Show Error Number
15.Runtime Error 9: Subscript Out of Range
16.RunTime Error 1004: Method Range of Object Global Failed
17.Try again in case an error
java2s.com  |  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.