From 7eafaa12b248d0edf9224055a863ce0fc1b2319e Mon Sep 17 00:00:00 2001 From: Matthew Palermo Date: Fri, 27 Jan 2017 17:32:02 +1000 Subject: [PATCH 1/2] Fix syntax error from commit 36a5be57 I am not sure how, but I introduced a syntax error. This is the fix. --- modImportExport.bas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/modImportExport.bas b/modImportExport.bas index 5378ed5..ecc6a10 100644 --- a/modImportExport.bas +++ b/modImportExport.bas @@ -404,9 +404,9 @@ Private Function HandleCrash(ByVal ErrNumber As Long, ByVal ErrDesc As String, B Dim UserAction As Integer UserAction = MsgBox( _ - Prompt = "An unexpected problem occured, would you like to debug?", _ - Buttons = vbYesNo, _ - Title = "Unexpected problem") + Prompt:="An unexpected problem occured, would you like to debug?", _ + Buttons:=vbYesNo, _ + Title:="Unexpected problem") HandleCrash = UserAction = vbYes From d94e5d755574859c5abdb00e46d9fae9bc1fa462 Mon Sep 17 00:00:00 2001 From: Matthew Palermo Date: Fri, 27 Jan 2017 19:25:20 +1000 Subject: [PATCH 2/2] Improve crash dialog Add error information and make sure the user knows that the problem is not normal and should be reported to the issue tracker. --- modImportExport.bas | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/modImportExport.bas b/modImportExport.bas index ecc6a10..4308581 100644 --- a/modImportExport.bas +++ b/modImportExport.bas @@ -404,8 +404,14 @@ Private Function HandleCrash(ByVal ErrNumber As Long, ByVal ErrDesc As String, B Dim UserAction As Integer UserAction = MsgBox( _ - Prompt:="An unexpected problem occured, would you like to debug?", _ - Buttons:=vbYesNo, _ + Prompt:= _ + "An unexpected problem occured. Please report this to " & _ + "https://github.com/spences10/VBA-IDE-Code-Export/issues" & vbNewLine & vbNewLine & _ + "Error Number: " & ErrNumber & vbNewLine & _ + "Error Description: " & ErrDesc & vbNewLine & _ + "Error Source: " & ErrSource & vbNewLine & vbNewLine & _ + "Would you like to debug?", _ + Buttons:=vbYesNo + vbDefaultButton2, _ Title:="Unexpected problem") HandleCrash = UserAction = vbYes