ACCESSで前後の記録の増減を表示したいのですが・・・

こんにちは、ランニングの記録を集計したいのですが

・記録テーブル（秒）

回数　　１ｋｍ走タイム　３ｋｍ走タイム　５ｋｍ走タイム
------------------------------------------------------
１ 　　　 ３４５　　　　　８５５　　　　　１４１１　
２　　　　３５５　　　　　８４４　　　　　１３７８
３　　　　３５０　　　　　８８１　　　　　１３８０


・タイム差クエリ

回数　　　 １ｋｍ　　 　３ｋｍ　 　５ｋｍ　　　
-------------------------------------------------------
２　　　　　+10　　　　　　-11　　　　　　　-33
３　　　　　-５　　　　　　+37　　　　　　　+２


上記のように１つ上のレコードに対して数字の増減を
表示したいのですがこのようにするには
どうしたらよいのでしょうか？

No.1 ベストアンサー 回答者： 16August 回答日時： 2006/01/24 17:24

VBAを使用してよいならば、ＡＤＯなどで接続してデータを1件ずつ読み込み、前回のデータと比べそれを該当フィールドに書き込めばよいわけですけれど。

クエリだけで考えると
まずクエリを一つ作ります。
項目は
[回数]のかわりに　[前回回数]：[回数]-1　とでもしておいてください。
このクエリを実行させると、

前回回数　１ｋｍ走タイム　３ｋｍ走タイム　５ｋｍ走タイム
---------------------------------------------------
０ 　　　 ３４５　　　　　８５５　　　　　１４１１　
１　　　　 ３５５　　　　　８４４　　　　　１３７８
２　　　　 ３５０　　　　　８８１　　　　　１３８０

となるはずです。

あとは、もう一つクエリを作成し、
最初のテーブルとこのクエリの[回数]と[前回回数]をリレーションシップで結び、
1km:[クエリ名]！[１ｋｍ走タイム]-[テーブル名]！[１ｋｍ走タイム]　
3km:[クエリ名]！[３ｋｍ走タイム]-[テーブル名]！[３ｋｍ走タイム]
・・・・・・・・・
としていけば、できると思います。　

この回答へのお礼

教えていただいたクエリを２つ作って
集計したら希望通りの結果が出ました。
ありがとうございます。
もしよろしければ後学のため
VBAを使って作成する場合の方法を
教えていただけないでしょうか？

お礼日時：2006/01/24 19:28

No.3 回答者： 16August 回答日時： 2006/01/25 08:02

No2です。

　変数の誤りがありました。
誤
Lastdata1 = Rst!1km走タイム
Lastdata2 = Rst!3km走タイム
Lastdata3 = Rst!5km走タイム
正（loop前とloop内に２箇所あります。）
Lastdata1 = Rst!1km走タイム
Lastdata3 = Rst!3km走タイム
Lastdata5 = Rst!5km走タイム

VBAですので、宣言をしなくても動きますが、とりあえずこのようなつもりでした。　すみませんでした。

この回答へのお礼

VBAだとこのようになるのですね。
クエリしか作ったことないので
このような文ははじめて見ます。
複数回に渡って回答していただき
ありがとうございました。

お礼日時：2006/01/25 23:02

No.2 回答者： 16August 回答日時： 2006/01/24 19:52

VBAを使った際は、テーブルは一つだけでよいですが、フィールドに　[1km],[3km],[5km] （前回比を入れる場所を用意しておいてください。

）

あとはどこでも良いですが、フォーム上にボタンでも作ってそのクリックイベントに

Dim Conn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim Lastdata1 as Integer
Dim Lastdata3 as Integer
Dim Lastdata5 as Integer

Set Conn = CurrentProject.Connection
Set Rst = New ADODB.Recordset
Rst.Open "テーブル名", Conn, adOpenkeyset, adLockOptimistic
Rst.movefirst
Lastdata1 = Rst!1km走タイム
Lastdata2 = Rst!3km走タイム
Lastdata3 = Rst!5km走タイム
Rst.movenext
do while not Rst.eof
Rst!1km = Rst!1km走タイム-Lastdata1
Rst!1km = Rst!3km走タイム-Lastdata3
Rst!1km = Rst!5km走タイム-Lastdata5
Lastdata1 = Rst!1km走タイム
Lastdata2 = Rst!3km走タイム
Lastdata3 = Rst!5km走タイム
Rst.update
Rst.movenext
Loop
Rst.Close: Set Rst = Nothing
Conn.Close: Set Conn = Nothing

のように書いておいて実行させればデータが入ってくると思います。　（実際にテストはしていませんので、動かなかったらごめんなさい。）