テーブルにレコードがない時にメッセージウィンドウを表示する

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

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

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

ボタンの［クリック時］イベント

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

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

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

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

［クリック時］イベントに下のように入力します。これで、［生産停止商品］ボタンをクリックすると、フォーム［F_生産停止商品］が開くようになります。

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

フォームの［読み込み時］イベント

フォーム［F_生産停止商品］をデザインビューで開いて、［読み込み時］イベントに入力して、［T_生産停止商品］のレコードがなければ［データがありません］というメッセージを開くようにします。

読み込み時は、フォームを開きレコードが読み込まれた時（［開くとき］イベントの後）に発生します。

フォームのプロパティの［イベント］タブにある［読み込み時］の［...］ボタンをクリックします。

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

［読み込み時］イベントに以下のように入力します。

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

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

関連以下は、Dcount関数に関する記事です。