フォームを参照するには
Forms コレクションにフォーム名を指定する方法
Application.Forms("フォーム1")
Access クラス オブジェクトを直接使用する方法
Form_フォーム1
自フォームを参照する方法
Me
連結レポートのレコード件数が0件の時、フォーム側でメッセージを表示するには
レポートの空データ時/NoData イベントで引数 Cancel に True を設定すると、レポートが「実行時エラー '2501':」を返すようになります。
Private Sub Report_NoData(Cancel As Integer)
Cancel = True
End Subフォーム側でこのエラーをトラップして、メッセージを表示します。
Private Sub コマンド1_Click()
On Error GoTo ErrHandler
DoCmd.OpenReport ("レポート1")
Exit Sub
ErrHandler:
If Err = 2501 Then
MsgBox ("レポートの内容は０件だったので、出力を中止しました。")
End If
End Sub