テーブル/クエリにレコードが1件もない時にメッセージを表示する

Accessのテーブル/クエリでレコードが１件もない時、そのテーブルを基にして作成したフォームを開こうとする場合は、［データがありません］というメッセージウィンドウを表示する方法です。

以下の例では、［生産停止商品］ボタンをクリックしたときに、メッセージウィンドウを表示しています。

［T_生産停止商品］というテーブルがあり、そのテーブルを基にフォーム［F_生産停止商品］を作成しています。

参考ここでのウィンドウの表示は、［ウィンドウを重ねて表示する］を選択しています。

［コードビルダー］と［マクロビルダー］を使用する方法を記していますが、どちらも動作は同じです。その相違については、以下の記事で解説しています。

レポートの場合は、プロパティの［空データ時］イベントで設定することができます。

クリック時イベントの［コードビルダー］で設定

フォーム［F_menu］の［生産停止商品］ボタンをクリックして［F_生産停止商品］フォームが開くようにします。

コマンドボタンのプロパティを開いて［イベント］タブの［クリック時］のビルドボタン［...］をクリックします。

参考［F4］キーを押すと、プロパティシートを開くことができます。

以下の［ビルダーの選択］ダイアログボックスが表示されます。［コードビルダー］を選択して、［OK］ボタンをクリックします。

［クリック時］イベントに下のように入力します。

設定後のプロパティには、［イベントプロシージャ］と表示されます。

参考ウィザードを使ったコマンドボタンの作成は、以下の記事で解説しています。

クリック時イベントの［マクロビルダー］で設定

マクロビルダーでも同じように設定できます。

コマンドボタンのプロパティを開いて［イベント］タブの［クリック時］のビルドボタン［...］をクリックします。

以下の［ビルダーの選択］ダイアログボックスが表示されます。［マクロビルダー］を選択して、［OK］ボタンをクリックします。

［新しいアクションの追加］の▼ボタンをクリックして、メニューから［If］を選択します。

［アクションカタログ］から選択してマクロウィンドウへ追加する方法もあります。

テキストボックスに以下を入力します。

［新しいアクションの追加］で今度は、［メッセージボックス］を選択します。下方へスクロールすると見つけられます。

メッセージのテキストボックスに、表示したいテキストを入力します。ここでは、以下のように入力します。

メッセージの種類やタイトルについては、以下の記事を参考にしてください。

MsgBox関数について

メッセージの種類の選択肢は、以下の4つになります。ここでは［なし］を選択しています。

［メッセージタイトル］が空白の場合は、［Microsoft Access］と表示されます。

［Elseの追加］をクリックします。

［新しいアクションの追加］でマクロアクション［フォームを開く］を選択します。

［フォーム名］の▼ボタンをクリックして、フォーム名を指定します。

以下のようになればOKです。上書き保存してマクロウィンドウを閉じます。

設定後のプロパティには、［埋め込みマクロ］と表示されます。

これで、［F_menu］フォームの［生産停止商品］ボタンをクリックすると、テーブル［T_生産停止商品］のレコードが0件の場合は［データがありません］と表示されます。

以下は、コードビルダーで設定した時のメッセージウィンドウです。

マクロビルダーで設定したメッセージウィンドウは、以下のようになります。

データ（レコード）がある場合は、［F_生産停止商品］フォームが開きます。

DCount関数については、Microsoftの記事を参照してください。

DCount 関数 - Access（Microsoft）

レポートの場合は、プロパティの［空データ時］イベントで設定することができます。

関連レコード検索時に該当するレコードがない場合にメッセージを表示する方法は、以下の記事で解説しています。

以下も、DCount関数に関する記事です。