Using Resume Conditionally Based on User Feedback : Error Handler « Language Basics « VBA / Excel / Access / Word






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

Using Resume Conditionally Based on User Feedback

 
Function GoodResume()
    On Error GoTo GoodResume_Err
    Dim strFile As String
    strFile = Dir(strFileName)

    If strFile = "" Then
      GoodResume = False
    Else
      GoodResume = True
    End If

    Exit Function
GoodResume_Err:
    Dim intAnswer As Integer
    intAnswer = MsgBox(Error & ", Would You Like to Try Again?", vbYesNo)
    If intAnswer = vbYes Then
        Resume
    Else
        Exit Function
    End If
End Function








Related examples in the same category

1.An Example of Code Without Error Handling
2.A Simple Error-Handling Routine
3.An Example of Error Handling Using the On Error GoTo Statement
4.Ignoring an Error and Continuing Execution
5.Placing a Resume Next Statement in Your Error Handler
6.Using the Resume Statement to Specify Where Execution Continues After an Error Occurs
7.Looking Up the Call Stack for a Previous Error Handler
8.Read user choice when dealing with error
9.error handling by checking the Error code
10.EBEngine.Errors