Automatically generating handling of issues

by

What about using “Erl”, it will display the last label before the error (e.g., 10, 20, or 30)?

Private Sub mySUB()
On Error GoTo Err_mySUB
10:
    Dim stDocName As String
    Dim stLinkCriteria As String
20:
    stDocName = "MyDoc"
30:
    DoCmd.openform stDocName, acFormDS, , stLinkCriteria    
Exit_mySUB:
    Exit Sub
Err_mySUB:
    MsgBox Err.Number & ": " & Err.Description & " (" & Erl & ")"
    Resume Exit_mySUB
End Sub

More Related Contents:

  1. ms access vba code for update records through form
  2. How to add default signature in Outlook
  3. Combine rows / concatenate rows
  4. What’s the difference between DoCmd.SetWarnings and CurrentDB.Execute
  5. Is it possible to pass parameters programmatically in a Microsoft Access update query?
  6. Getting Error 3340 Query ‘ ‘ is corrupt while executing queries DoCmd.RunSQL
  7. Too few parameters Expected 1, recordset issue
  8. Show “Open File” Dialog
  9. How do I display a messagebox with unicode characters in VBA?
  10. Determining whether an object is a member of a collection in VBA
  11. Distinction between using .text and .value in VBA Access
  12. MS Access VBA Error: Run time error ’70’ Permission Denied
  13. Is it better to use ADO or DAO in Access 2007?
  14. VBA – Folder Picker – set where to start [duplicate]
  15. MS Access: how to compact current database in VBA
  16. How to loop through all controls in a form, including controls in a subform – Access 2007
  17. Procedure Too Large
  18. FileDialog doesn’t work
  19. Working with Unicode file names in VBA (using Dir, FileSystemObject, etc.)
  20. Determine real cause of ODBC failure (error 3146) with ms-access?
  21. Is there an equivalent to Thread.Sleep() in VBA
  22. Exporting MS Access Forms and Class / Modules Recursively to text files?
  23. How to get logged-in user’s name in Access vba? [duplicate]
  24. Pass a parameter into an access report programmatically
  25. finding latest file in a folder and opening it (vba access)
  26. Insert multiple records with a date range in MS Access
  27. MS Access VBA: Sending an email through Outlook [closed]
  28. How to get the procedure or function name at runtime?
  29. SendKeys is messing with my NumLock key via VBA code in Access form
  30. Runtime error 287. Sending Emails through Outlook using VBA in Access

Leave a Comment