Windows7 & Office2010 Access2010

Print Friendly, PDF & Email

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

投稿日:

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の目次フォームの[生産停止商品]ボタンをクリックすると、[データがありません]と表示されます。
データ(レコード)がある場合は、F_生産停止商品フォームが開きます。

参考Officeのバージョンによって操作が異なる場合があります。以下の記事で、お使いのOfficeのバージョンを確認する方法を解説しています。

Office(Word、Excel、PowerPointなど)のバージョンを確認する方法

Microsoft Officeも時を得て、大きく様変わりしてきました。トラブルを解決しようとするとき、あるいは、何かの操作を探すときなど、 ...

続きを見る

あなたへのおすすめ

関連記事

タブの複製

同じWebページを下のように複数のタブに表示する方法です。 1.タブで右クリックして、ショートカットメニューから[タブを複製]をクリックしま ...

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

PowerPoint2007から、オブジェクトの選択と表示作業ウィンドウを表示することができます。 [ホーム]タブの[編集]グループから[選 ...

スライドの余白を調整

PowerPoint2010でスライドの余白を調整する方法です。 PowerPointでは、従来から余白の設定はできません。WordやExc ...

ファイル制限機能の設定

ある日、新しいパソコンでプレゼンテーションを開こうとしたら、開かない。 ほかのパソコンでは開くのに???いろいろトライするけど開けない。 ネ ...

色付きセルの合計

Excelの表でセルに色を付ける方は多いと思います。この色付きのセルのみを合計したいという場合、Excel2007以降のバージョンであれば簡 ...

-Windows7 & Office2010 Access2010

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

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