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

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

Java

Java Tutorial

Java Source Code / Java Documentation

Illustrator Tutorials

GIMP Tutorials

C# / C Sharp

C# / CSharp Tutorial

C# / CSharp Open Source

SQL Server / T-SQL Tutorial

Oracle PL / SQL

Oracle PL/SQL Tutorial

Flash / Flex / ActionScript

XML

XML Tutorial

Microsoft Office PowerPoint 2007 Tutorial

Microsoft Office Excel 2007 Tutorial

Microsoft Office Word 2007 Tutorial

VBA / Excel / Access / Word » Language Basics » 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

www.java2java.com | Contact Us

All other trademarks are property of their respective owners.