VBAで合計表示(DSum関数)


━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
vol286

これならわかるマイクロソフトアクセス活用法
            -->VBAで合計表示(DSum関数)
              
発行者:高内 章治 2017年6月 7日
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
┏ 今日の内容 ━━━━━━━━━━━━━━━━━━━━━━━━┓

┃【01 - ご挨拶    】
┃【02 - トピックス  】VBAで合計表示(DSum関数)

┃【03 - 編集後記    】

┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

─────────────────────────────────
【01 - ご挨拶    】          
─────────────────────────────────

こんにちは、高内(こうない)です。

今回は、

「VBAで合計表示(DSum関数)」

についてお話したいと思います。




─────────────────────────────────

【02 - トピックス】: VBAで合計表示(DSum関数)

─────────────────────────────────

お客様から、時々質問があります。

フォームの非連結のテキストボックスに、別のデータの合計を表示したい場合です。

例えば、
注文を受けるフォーム中で、その商品の在庫情報などを表示したい場合です。
在庫情報があれば、注文を受けるときに便利ですね。

これは、以前も、説明しましたが、「DSum関数」が便利です。

例えば、

受注データのフォームなどで、商品コードを入力したときの「更新後処理」などにVBAを書きます。

在庫量などを表示したい場合は、非連結の「テキストボックス」を作成した方がよいです。

以下のようなVBAです。

*********************

If IsNull(DSum("[Q_在庫データ1B]![在庫数]", "Q_在庫データ1B")) Then Me!在庫数合計 = 0
Else
Me!在庫数合計 = DSum("[Q_在庫データ1B]![在庫数]", "Q_在庫データ1B")
End If

***********************

これは、Q_在庫データ1Bのクエリから、[在庫数]を集計して、ゼロの場合は、ゼロを入れて、データがある場合は、数字を「Me!在庫数合計」というテキストボックスに入れています。


上のケースは、全部の在庫の合計数を表示していますが、特定の商品コードであれば、

DSum("[Q_在庫データ1B]![在庫数]", "Q_在庫データ1B","[製品コード]='xxxxxxx'")

「xxxx」に、表示したい、商品コードを入れます。

注意点としては、
DSum関数は、データがないときは、「Null」になりますので、その時は、「0」を表示します。


参考にしてください。



─────────────────────────────────
【03 - 編集後記    】       
─────────────────────────────────

今日から、九州から、関東甲信まで梅雨に入ったそうです。

早速、雨が降っています。
時々、激しい雨になっています。

ゲリラ豪雨など局地的に激しい雨になることもあるそうです。

注意が必要ですね。


◆私がアクセスをマスターできたのは!!
http://www.sk-access.com/kyozai/zaiko1.html  

テーブル作成からVBAまでマスターできます。 
「在庫管理システムをアクセスで作ってみよう」教材です。
http://www.sk-access.com/kyozai/zaiko2.html  


━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
●ご意見・ご感想・ご質問
 
『メルマガでもっとお役にたてる情報を配信したいと思いますので、日ごろから疑問に思っていることを教えてください。
宛先はこちらへです』

  •  kohnai★vega.ocn.ne.jp
      (高内:こうない:)
    (メールするときは、★を@に変えてください)

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━


◎「これならわかるマイクロソフトアクセス活用法」 のバックナンバー・配信停止はこちら

archive.mag2.com/0000222659/index.html

◎以下のホームページからでもバックナンバーを見ることができます。

http://www.sk-access.com/mailmaga/index.html

登録・解除につきましてはご自身でお願いいたします。

※このメールマガジンの転送はOKですが、掲載された記事の内容を許可無く転載することをを禁止させて頂きます。
必ず事前にご相談ください。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━


1週間でアクセス(Access)のシステム開発ができる〜
「在庫管理システムをアクセスで作ってみよう」教材

「アクセスのプログラム/システムを短期間で開発したい方」、
「アクセスのフォーム/VBAを完全にマスターしたい方」のための
アクセス(Access)を使って1週間でシステム開発する究極の方法とは?

「アクセス(Access)のシステムを無料のSQL Server 2016 Expressへ
移行してみよう」教材

あなたの会社のアクセス(Access)のデータベースやシステムに不安を感じていませんか?
アクセスのデータ量が多くなり処理スピードが遅くなった。
アクセスのデータを共有したい。
セキュリティに不安がある。などと、感じている方は!!
(SQL Server 2016 Expressバージョンです。)


「アクセス(Access)プログラムの仕様書の作り方」教材
マイクロソフトアクセスを使用して、プログラムの作成/システム開発をおこないたい方の為に、
アクセス(Access)のプログラム開発に成功するために絶対に必要な「仕様書」とは?



[↑一番上へ]
[マイクロソフトアクセス活用法(メールマガジン)(ホームへ)]
12:492003

アクセス全体

VBA

SQL Server