エラーハンドラがキャッチしないエラー

Question

この問題は、エラーハンドラが2回以上発生した場合にエラーをキャッチしていないことが原因です。これは私が使っているものです。

Private Sub DBBackUp() 
On Error GoTo ErrHandler: 
If FSO.FolderExists(DBBackupFolderDir) = True And FSO.FileExists(DBDir) = True Then 

AskAgianLoop: 

    Application.CompactRepair DBDir, CARDBBackupFileDir, True 
End if 


ErrHandler: 
If Err.Number = 58 Or Err.Number = 31523 Then 
    GoTo AskAgianLoop 
Else 
    errMsg = "Error number: " & Str(Err.Number) & vbNewLine & _ 
      "Source: " & Err.Source & vbNewLine & _ 
      "Description: " & Err.Description 
Debug.Print errMsg 
Err.Clear 
End If 
Exit Sub 
End Sub 

上記の説明では、セキュリティ警告が表示され、その実行のたびに2回ユーザーが表示されます。ユーザーが開いている代わりにそれらのいずれかでキャンセルをクリックすると、値31523のエラーコードがスローされます。その後、ErrHandlerに移動されます。同じセキュリティプロンプトが表示された後、ユーザーに再度尋ねられます。ユーザがキャンセルを2回以上押すと、31523の値を持つエラーメッセージが表示され、エラーハンドラで捕捉されません。

Answer 1

変更するGoTo AskAgianLoop〜Resume AskAgianLoop:問題を修正しました。