Try again in case an error : Error « Language Basics « VBA / Excel / Access / Word






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

Try again in case an error

 
Sub TryAgain()
  Dim Value As Double
  On Error GoTo Except
  
    Value = CInt(InputBox("Enter a number:", "Number"))
    Value = 10 / Value
    MsgBox "10 / " & 10 * Value & "=" & Value
  
  Exit Sub
  
Except:
  If (MsgBox(Err.Description & ". Try again", vbYesNo, _
    "Try Again") = vbYes) Then TryAgain

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.Check the error number
6.Get the Error source
7.Creating a User-Defined Error
8.Viewing the Errors Stored in the Errors Collection
9.Using the LogError Routine
10.Writing Information to a Textual Error Log File
11.The Mail your Error Routine
12.Move through the Errors collection and display properties of each Error object
13.Trap the error with On Error GoTo
14.Show Error discription in MsgBox
15.Show Error Number
16.Runtime Error 9: Subscript Out of Range
17.RunTime Error 1004: Method Range of Object Global Failed