データがない時にメッセージを表示する

Accessで、データがないときに［データがありません］というメッセージウィンドウを表示する方法です。

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

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

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

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

Private Sub 生産停止商品_Click()

DoCmd.OpenForm "F_生産停止商品"    

End Sub

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

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

フォーム［F_生産停止商品］をデザインビューで開いて、［読み込み時］イベントに下のように入力します。

Private Sub Form_Load()

     Dim RCount As Long
     RCount = DCount("*", "T_生産停止商品")
     If RCount = 0 Then
     MsgBox "データがありません"
     Cancel = True
     DoCmd.Close acForm, "F_生産停止商品", acSaveNo
     End if

 End Sub

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

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

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