Windows7 & Office2010 Access2010

Print Friendly

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

投稿日:

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

お勧め記事と広告

関連記事

コンテンツコントロールとフォームコントロール

Word2010で[開発]タブの[コントロール]グループにある[コンテンツコントロール]を使って、作成した文書を[Word97-2003]の ...

ビデオのスタイルの種類

ビデオのスタイルの種類が増えました。 [書式]タブの[ビデオスタイル]グループにある▼ボタンをクリックします。 41個のスタイルから選択する ...

グラフ系列のパターン復活

Excel2007では、使用できなくなっていたグラフ系列のパターンが復活です。 書式設定のパターンタブがなくなった 下は、Excel2007 ...

写真の幅を揃えて挿入するには

自分で撮った写真をWordの文書に貼り付けて、メールの添付で送りたいという方は多いですね。 大きなサイズの写真を数多く送るより、Wordに貼 ...

起動時に予定表を開くには

Outlook2010では、起動時に表示されるのは[受信トレイ]になっています。 この起動時に開くフォルダは変更することができます。 [ファ ...

-Windows7 & Office2010 Access2010

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

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