0を除く平均値を求めるには（Sum関数とDCount関数）

Accessでアンケート集計を作成することになりました。

各質問に［0から5］の5段階の評価をつけもらうことにしました。

ただし、［0］は、分からないという評価内容です。

ですので、平均値は、［0］と回答した人は省いた数で除算することにしました。

参考ここでは［ドキュメントウィンドウオプション］で［ウィンドウを重ねて表示する］を選択しています。［ウィンドウを重ねて表示する］と［タブ付きドキュメント］の違いについては、以下の記事で解説しています。

アンケート集計のテーブル

テーブル［T_顧客］のデザインビューです。

［デザイン］フィールドと［価格］フィールドのデータ型は、［数値型］にしています。

［デザイン］と［価格］フィールドは、ルックアップウィザードでコンボボックスにしています。

これで、［デザイン］と［価格］はコンボボックスから数値を選択できるようになります。

参考テーブルのルックアップウィザードについては、以下の記事で解説しています。

フォームの作成

テーブル［T_顧客］を基にフォームを作成します。

テーブル［T_顧客］を選択したまま、［作成］タブの［フォーム］グループにある［フォーム］をクリックします。

これで単票フォームが作成できます。

作成したフォームをデザインビューで表示します。

［デザイン］タブの［コントロール］グループから［テキストボックス］をクリックして、フォームの詳細領域内に非連結のテキストボックスを挿入します。

［テキストボックスウィザード］が表示されたら、［キャンセル］ボタンをクリックして閉じます。

以下のように2個の非連結のテキストボックスを設置します。

非連結のテキストボックスの名前は、それぞれ［集計1］、［集計2］としています。

参考プロパティは、［F4］キーで表示/非表示を切り替えられます。

テキストボックスのコントロールソースに入力

非連結のテキストボックスのプロパティを表示します。

［データ］タブの［コントロールソース］に以下のように入力することで計算できます。

［デザイン］は、コンボボックスの名前です。

データ型が［テキスト型］の場合は、エラーになりますので気をつけてください。

Dcount関数とSum関数については、以下の記事を参考にしてください。

DCount 関数 - Access（Microsoft）

Sum 関数 - Access（Microsoft）

［書式］は、［標準］、［小数点以下表示桁数］は［1］にしています。

フォームビューに切り替えると、0を除いた平均値が表示されます。

評価を入力してフォームを保存した時点で平均値が更新されます。

Excelなら、AVERAGEIF("範囲","<>0")で求められるのですが、Accessの場合は、どうするのか考えてしまいました。

もしかしたら、もっと簡単な計算式があるのかもしれません。

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