アクセスでのエクセルでいう行間の計算について

解決済

質問者：hikari_tai
質問日時：2004/04/10 00:02
回答数：4件

エクセルでは[=A2-A1]といった上下の計算はすぐに出来ますが、アクセスでも出来るでしょうか？
フィールド名で指定をすると、同じフィールド名同士で引き算をする形になってしまうのですが！

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： imogasi
回答日時：2004/04/10 09:36

エクセルとアクセスの設計面からのニーズや仕組みの違いを鋭く突いた質問と思います。

エクセルでは、全セルに番地が振られ、クリックで１つの番地を指定できてそこにデータをセットできて、セルデータをA2のような表現指定を使った演算が出来て演算結果を望みのセルにセットできます。
しかしアクセスではテーブルの行単位に当たるレコード単位のデータ保持になっており、それに番号（フィールドとしての番号とは別）やアドレスを振られた仕組みではありません。そのレコードの中を構成する、フィールド（項目）も簡単に番号で指定して掴まえられません。例えば第３レコードの左より４番目のフィールドを思い描いても、F(3,4)のような、指定は（ソフトを組めば別ですが）させてくれません。
そもそもアクセスのテーブルは、他のレコードや自分のレコードの他のフィールド間の演算で計算されるフィールドは、テーブルに保持しない思想です。（出来るだけ「素の」データだけを保持する考え。）
同一レコードのフィールド間の計算で出るフィールド（項目）はまだアクセスでやや簡単にできて良いですが、前後のレコードとなるとアクセスでは苦労します。
１方法としてModuleに下記を張りつけ、実行すると、「
前日比」が出ます。（SQLのUPDATEでもできるかも知れない）
「前日比」のフィールドは、前もって追加しておきます。
下記では、mに現在のレコードのフィールド「数量」の値を保持して、次レコードを読んだ時に使うと言う風に、「１レコードづらして」使用するという、工夫（常套手段）をしています。
Sub test05()
Dim dbs As Database
Dim rs As DAO.Recordset
Set dbs = CurrentDb
Set tdf = dbs.CreateTableDef("会員名簿T")
Set rs = dbs.OpenRecordset("会員名簿T", dbOpenTable)
m = 0
rs.MoveFirst
'----
While Not rs.EOF
n = rs.Fields("数量")
' MsgBox n
rs.Edit
rs.Fields("前日比") = n - m
rs.Update
m = n
rs.MoveNext
Wend
'-----
MsgBox "終り"
rs.Close
dbs.Close
End Sub
番号姓名名前カナ名住所数量前日比
00001山田三郎ヤマダ　サブロウ京都市2323
00002上田ニ郎ウエダ　ジロウ大津市3411
00003川田太郎カワタ　タロウ膳所市5420
00004村田幸雄ムラタ　ユキオ彦根市8228
00005町田初男マチダ　ハツオ長浜市9311
１レコードづつ掴まえて、処理して、フィールドの内容を
変えるプログラムですが、各行で何をやっているかを知り、自分の問題の場合の、変え方（少しの変更です）を知れば、応用が広いと思います。

- 0
- 件

通報する

この回答へのお礼

御礼が遅れてしまいすみません。色々な方法があるものだと感心しています。今後も色々とアドバイスお願いします。

通報する

お礼日時：2004/04/28 13:41

No.4

回答者： Chirdren
回答日時：2004/04/10 09:43

アクセスでエクセルのようにデータシートビューが表示されますが、これはレコードの一覧に過ぎず、各レコードは独立していると考えて良いとお思います。

よって、データシートビューで上のレコードの値を合計して入力するとことはできません。

集計を行うには、選択クエリを使用します。
ここで、集計の項目で、各フィールドに　”合計”や”グループ”、”選択”等の条件を設定します。

使い方の詳細については、アクセスにサンプルデータベースが付属していますのでインストールして確認してください。