Ａｃｃｅｓｓ 該当データなしの場合レポートにメッセージ印字

Question

こんにちは。

Private Sub Report_NoData(Cancel As Integer)

MsgBox "表示するデータがありません。"

Cancel = True

End Sub

↑↑上記を記載すれば、メッセージが出る所までは調べられたのですが・・・・

キャンセルではなく、そのレポートに「注文データがありません。」のようなことを印字したいのですが・・・・

その場合、どうしたらいいのでしょうか。

よろしくお願いします。

Answer 1

Private Sub Report_NoData(Cancel As Integer)

 MsgBox "表示するデータがありません。"

 DoCmd.OpenReport "レポート1", acPreview

 Me.メッセージ = "該当データなし。"

End Sub

↑↑できるようになりました。。。

Answer 2

こんにちは。

娘箱入り さん、マイクロソフト コミュニティ への投稿と試した結果の書き込み、ありがとうございます。

同じような情報を探している他の方々にもこのスレッドを参考にしてもらいたいと思い、コメントに 「回答としてマーク」 を付けさせていただきました。

このマークは質問者の方にも設定・解除が可能で、「回答としてマーク」 を付けた後も返信することができます。

当フォーラムには VBA に関連したカテゴリーがないため、情報が集まりにくいケースもあるようです。

そのような場合には、「MSDN の VBA フォーラム」 の利用も検討してくださいね。

また何かありましたら、ぜひ当フォーラムをご利用ください。