リンクユニット

Windows7 & Office2010 Access2010

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

投稿日:2017年1月7日 更新日:

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_生産停止商品]フォームが開きます。

おすすめ記事と広告

記事を更新しました

帳票フォームから単票フォームを起動するには

Accessで、帳票フォームから同じIDの単票フォームをボタンで起動する方法を解説します。画像は、Acess2010ですが、他のバージョンで ...

オブジェクトをすべて非表示

PowerPoint2007から、オブジェクトの選択と表示作業ウィンドウを表示することができます。[オブジェクトの選択と表示]作業ウィンドウ ...

空のZIPファイルを作成

Windows7で新規に空のZIPファイルを作成する方法です。 デスクトップでショートカットメニューを表示 デスクトップ上で右クリックします ...

no image
Backstageビューとは

Office2010では、よく[バックステージビュー]という言葉を耳にされると思います。 [バックステージビューを開いて・・]と言われても、 ...

タブの切り替えができない

Excel2010で、タブを切り替えるためにタブをクリックしても無反応となる現象があります。 セルの選択はできるのに、タブの切り替えができま ...

-Windows7 & Office2010 Access2010

Copyright © 2001-2018 初心者のためのOffice講座 All Rights Reserved.

Copyright© 初心者のためのOffice講座 , 2018 AllRights Reserved Powered by AFFINGER4.