ACCESS 2007の計算式設定について

質問

こんにちは。

以下、ご連絡させていただきますのでご教授下さい。

1.使用ソフト:ACCESS2007
2.作成しているDB(損益計算書のようなものです)
1)クエリでテーブルから以下のデータを抽出。

科目 金額
A. 100
B 200
C. 300
D. 500
E. 600

2)希望内容
上記の内、A, B, Cの金額について以下のような計算式の設定をしたい次第です。

A. 100
B. +200
C. -300
結果 0

3)質問
上記のような計算式の設定方法を教えてください。
また、このような計算はエクセルを使ったほうが効率的なのでしょうか?
よろしくお願いします。

回答No.1

psgrade · ベストアンサー

ABCのみについて集計するというイメージで、Cのみ引き算ということで宜しいでしょうか？
そうであれば、ABCのみ選択した一時テーブルを作成し、Cのみについて-1を掛けてから集計する事になります。
ABCのみの抽出したテーブル作成クエリー(DBtemp作成)は、下記のとおりです。

SELECT DB.科目, DB.金額 INTO DBtemp
FROM DB
WHERE (((DB.科目)="A" Or (DB.科目)="B" Or (DB.科目)="C"));

次に、一時テーブルDBtempについて、Cのみについて-1を掛ける更新クエリーを実行します。
更新クエリー(DBtemp更新)は次のとおりです。

UPDATE DBtemp SET DBtemp.金額 = DBtemp!金額*-1
WHERE (((DBtemp.科目)="C"));

集計は、DBteｍpをデータソースとする表形式のレポートを作成し、レポートフッターに=Sum(DBtemp!金額)をデータソースとするテキストボックスを配置します。ラベルに"計"と表示させます。
集計用のフォームを作って、コマンドボタン(集計)を作成し、このクリック時イベントに

Private Sub 集計_Click()
DoCmd.SetWarnings False '警告表示を一時的にOFFにする。
DoCmd.OpenQuery "DBtemp作成"
DoCmd.OpenQuery "DBtemp更新"
DoCmd.SetWarnings True '警告表示ONに戻す。
DoCmd.OpenReport "DBtemp"
End Sub

のプロシージャーを設定します。レポートプレビュー画像を添付しました。
こういう考え方でよろしければ参考にして下さい。

回答No.3

imogasi

判りにくい表現の質問だ。
クエリのデザインで、新しいクエリのフィールドで、演算式を入れれば仕舞いではないのか。
A,B,Cは選択（抽出）されたレコードの順番の例なのか？結果抽出数は５つと決っているのか？
その順番を頼りに計算するのか？
アクセスはSQLを使う関係で、レコード間の演算は不得意だ。直後のレコード１つとの比較も、自己結合など使う例があるぐらいで、単純ではない。
VBAが出来る人はレコード処理（ADOなど）を使ってやると簡単。
エクセルはどの行のどの列のセルを用いてやるのも算術計算などなら簡単なのはご存知のとおり。

お礼

質問が稚拙にもご回答いただきありがとうございました。
参考になりました。

回答No.2

30246kiku

+ - だけですよね

結果のみを求めるものになりますが、
クエリ名を「Q1」と仮定して、クエリのSQLビューに以下を記述してみます。

SELECT SUM(IIF(科目="A" OR 科目="B", 金額, IIF(科目="C", -金額, 0))) AS 結果
FROM Q1;

もしくは、自己結合をして

SELECT Q1.金額 + Q2.金額 - Q3.金額 AS 結果
FROM Q1, Q1 AS Q2, Q1 AS Q3
WHERE Q1.科目="A" AND Q2.科目="B" AND Q3.科目="C";

後者の方は + - 以外も使えると思います。
または、クエリをもう一段経由させて

TRANSFORM First(金額) AS 値
SELECT S
FROM (SELECT 1 AS S, * FROM Q1)
GROUP BY S
PIVOT 科目;

上記をクエリ「Q2」とした場合、以下で

SELECT [A]+[B]-[C] AS 結果 FROM Q2;

クロス集計「Q2」で、科目をフィールド名に横展開して、その後で計算します。
必要なら科目のフィールドも表示できます。

SELECT [A], [B], [C], [A]+[B]-[C] AS 結果, [D], [E] FROM Q2;

のような感じで、

その他として、VBAで、
クエリ「Q1」の Recordset を得て、計算するものを記述すればできると思います。

※　効率的なのかは、わかりません。

お礼

アドバイスありがとうございました。