アクセス時に出力エラーを処理する

Question

私はVBAを通じてクエリとレポートを生成しています。スナップショットとしてレポートを出力するかどうかをユーザーに尋ねるオプションがあります。私は最初にスナップショットをしたいかどうか尋ねます。彼らがいいえと言うなら、何も起こらない。彼らが「はい」と答えると、どこに保存するかを尋ねるプロンプトが表示されます。

「はい」と答えてから「キャンセル」をクリックすると、レポートアクションがキャンセルされたというランタイムエラー2501が発生します。ここにコードがあります。

これも私の手順の終わりなので、すべての重要なことが起こって以来、ここでエラーが起きたかどうかは気にしません。私はちょうど彼らがそれを見るならば、どこかで猿が跳ねるだろうと知っています。このエラーを処理する方法はありますか？ On Error Resume Nextはデバッグが将来悪夢になるため、オプションではありません。私はTry/Catchのようなものを探しているようだが、私はVBAがそれをサポートしているとは思わない。

Answer 1

これを処理するには少なくとも2つの方法があります。

1>レポートスナップショットを送信する前に、ファイル名を取得し、可能なキャンセルをステップで処理します。私はこれを最近行っていませんが、DoCmd.OutputToコマンド、またはファイルダイアログを使用するコマンド自体を必要としないバリエーションよりも、スナップショットレポートを生成する別の方法があります。私は古いアプリケーションでレポートスナップショットを生成し、ユーザーにファイル名を尋ねる必要はありませんでした。私はコードを見つけようとし、例を示します。

2>その後、バックオフ電源を入れ、エラーがありますかどうかを確認し、その後、唯一の右DoCmd.OutputToルーチンの前に、On Error Resume Nextを使用します。必要なのは、にある

If MsgBox("Do you wish to create a snapshot of this report?", _ 
    vbQuestion + vbYesNo) = vbYes Then 

    On Error Resume Next 
    DoCmd.OutputTo acReport, "CONCERNS", "SnapshotFormat(*.snp)", "" 
    if Err.Number = 2501 Then 
     '' log or ignore error 
    Else 
     '' log or warn other unexpected errors 
    End If 
    On Error Goto 0 

End If 

Answer 2

On Error GoTo errHandler 
    .... 
    Exit Sub 

errHandler: 
    If (Err.Number = 2501) Then 
    Resume Next 
    End If 

End Sub 

Answer 3

つまり、エラーを処理します。

On Error Goto HandleErr 
DoCmd.OpenReport "CONCERNS", acViewPreview, lstFee.Value & " DETAILS" 
If MsgBox("Do you wish to create a snapshot of this report?" _ 
    , vbQuestion + vbYesNo) = vbYes Then  
    DoCmd.OutputTo acReport, "CONCERNS", "SnapshotFormat(*.snp)", "" 
End If 

ExitHere: 
Exit Sub 'or Function 

HandleError: 
Select Case Err.Number 
Case 2501 'Report Was Cancelled 
    If MsgBox ("Did you really want to cancel saving the report?", _ 
     vbYesNo + vbDefaultButton2 ,"Please Confirm") = vbNo then 
     Resume 
    Else 
     Resume ExitHere 
    End if 
Case Else 
    Msgbox "An Unexpected error Occurred " & Err.Description, _ 
     vbExclamation,"Error" 
    Resume ExitHere 
End Select 

これにより、キャンセルを元に戻して、その操作をユーザーに知らせることができます。