Microsoft Access 掲示板

Microsoft Access 掲示板

レポートを閉じる時に終了確認を行い、「いいえ」が押されたらレポートの終了をキャンセルしたい

2 コメント
views
4 フォロー

お世話になっております。
レポートが正常にプリントアウト完了したか確認するため、以下のようなコードを書きました。

Private Sub Report_Close()

    Dim res As String
    
    res = MsgBox("正常に印刷が完了しましたか？", vbQuestion + vbYesNo, "完了確認")
    
    If res = vbNo Then
    
        Cancel = True
        
    Else
    
        MsgBox "さようなら"
        
    End If

End Sub

×ボタンを押すと、完了確認のメッセージボックスは表示されるのですが、いいえを押してもレポートが閉じてしまいます。なぜなのでしょうか？

Anko
作成: 2024/01/22 (月) 15:53:50
通報 ...
1
hatena 2024/01/22 (月) 16:21:49

Report_Closeイベントはキャンセルできません。
自動生成されたイベントプロシージャにCancel引数がないイベントはキャンセルできません。

読み込み解除時(Report_Unload)イベントならキャンセルできます。

Private Sub Report_Unload(Cancel As Integer)
   Dim res As String
    
    res = MsgBox("正常に印刷が完了しましたか？", vbQuestion + vbYesNo, "完了確認")
    
    If res = vbNo Then
    
        Cancel = True
        
    Else
    
        MsgBox "さようなら"
        
    End If
End Sub
2
Anko 2024/01/24 (水) 10:02:52 23e8e@44ebd

できました、ありがとうございます