Create an error, and then query the object for the error number and description : Error « Language Basics « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Language Basics
  3. Error

Create an error, and then query the object for the error number and description

 
Sub errorTest0()
    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:
    msgBox "The number of this error is " & Err.number
    msgBox "The description of the error is " & Err.Description
    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.Check the error number
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