こんにちは、ランニングの記録を集計したいのですが
・記録テーブル(秒)
回数 1km走タイム 3km走タイム 5km走タイム
------------------------------------------------------
1 345 855 1411
2 355 844 1378
3 350 881 1380
・タイム差クエリ
回数 1km 3km 5km
-------------------------------------------------------
2 +10 -11 -33
3 -5 +37 +2
上記のように1つ上のレコードに対して数字の増減を
表示したいのですがこのようにするには
どうしたらよいのでしょうか?
No.3
- 回答日時:
No2です。
変数の誤りがありました。誤
Lastdata1 = Rst!1km走タイム
Lastdata2 = Rst!3km走タイム
Lastdata3 = Rst!5km走タイム
正(loop前とloop内に2箇所あります。)
Lastdata1 = Rst!1km走タイム
Lastdata3 = Rst!3km走タイム
Lastdata5 = Rst!5km走タイム
VBAですので、宣言をしなくても動きますが、とりあえずこのようなつもりでした。 すみませんでした。
VBAだとこのようになるのですね。
クエリしか作ったことないので
このような文ははじめて見ます。
複数回に渡って回答していただき
ありがとうございました。
No.2
- 回答日時:
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
のように書いておいて実行させればデータが入ってくると思います。 (実際にテストはしていませんので、動かなかったらごめんなさい。)
No.1ベストアンサー
- 回答日時:
VBAを使用してよいならば、ADOなどで接続してデータを1件ずつ読み込み、前回のデータと比べそれを該当フィールドに書き込めばよいわけですけれど。
クエリだけで考えると
まずクエリを一つ作ります。
項目は
[回数]のかわりに [前回回数]:[回数]-1 とでもしておいてください。
このクエリを実行させると、
前回回数 1km走タイム 3km走タイム 5km走タイム
---------------------------------------------------
0 345 855 1411
1 355 844 1378
2 350 881 1380
となるはずです。
あとは、もう一つクエリを作成し、
最初のテーブルとこのクエリの[回数]と[前回回数]をリレーションシップで結び、
1km:[クエリ名]![1km走タイム]-[テーブル名]![1km走タイム]
3km:[クエリ名]![3km走タイム]-[テーブル名]![3km走タイム]
・・・・・・・・・
としていけば、できると思います。
教えていただいたクエリを2つ作って
集計したら希望通りの結果が出ました。
ありがとうございます。
もしよろしければ後学のため
VBAを使って作成する場合の方法を
教えていただけないでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(悩み相談・人生相談) トレーニングジムのスタッフ(正社員)に就職を考えてます。 自分は体育界の大学卒です。 学生時代は陸上 7 2023/08/15 09:42
- 統計学 算数の問題で 1 2022/05/19 20:33
- 統計学 統計分析とExcelに詳しい方、何卒よろしくお願いいたします。 6 2022/05/27 10:30
- Excel(エクセル) If関数に関する質問です。(再掲) 3 2022/10/01 20:51
- 陸上 陸上経験者の方に質問です。 自分は走るのが好きだけど遅い中一の文化部です。この前1キロのタイムを計っ 3 2022/03/26 02:51
- 陸上 陸上経験者の方に質問です。 自分は走るのが好きだけど遅い中一の文化部です。この前1キロのタイムを計っ 1 2022/03/24 00:17
- パチンコ・スロット パチンコ店での詐欺と思われる事案 5 2023/07/07 09:15
- 陸上 1ヶ月で50メートル走のタイムを0.3秒ほど上げる方法はありますか? 3 2022/09/07 21:48
- Excel(エクセル) エクセルの関数に関しての質問です。 5 2022/10/07 11:17
- 陸上 ランニングを始めて半年ぐらい経ち一月前に10キロマラソンに初めて出て平均キロペース4.43がベストな 1 2023/04/06 18:24
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
最近海外の女子陸上選手を中心...
-
平均タイム
-
3キロを30代が走った時の平...
-
長距離 女子中学2年生です。 2...
-
女子中学生 1000m走、3分42秒.0...
-
50メートル走のタイムですが 中...
-
中3女子です。 さっき600mぐら...
-
高校生女子。 1500m 6分19秒どう?
-
体育で明日2500mが始まるのです...
-
高校生女子100m走の平均タイム...
-
2.4キロを走りますが、平均のタ...
-
scarborough fairに読みカナを...
-
小学6年生で4kmのマラソンを...
-
中2女子です。 50m走7.9は早い...
-
中学校3年間の部活(実質2年半)...
-
約2週間本気で練習したら1500メ...
-
トリニクってなんの肉?(番組)
-
高校1年の男子です。コンクリー...
-
800m走を半年で、25〜30秒タイ...
-
ルービックキューブを買いまし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
中3女子です。 さっき600mぐら...
-
3キロを30代が走った時の平...
-
50メートル走のタイムですが 中...
-
長距離 女子中学2年生です。 2...
-
中2女子です。 50m走7.9は早い...
-
2.4キロを走りますが、平均のタ...
-
小学6年生で4kmのマラソンを...
-
中学校3年間の部活(実質2年半)...
-
女子中学生 1000m走、3分42秒.0...
-
持久走についてです 今学校の体...
-
走ることがトラウマ 中3女子で...
-
平均
-
scarborough fairに読みカナを...
-
タイム短縮
-
出場資格
-
体育で明日2500mが始まるのです...
-
800mのタイムを1ヶ月で20秒縮め...
-
EXCELで、ランニングのタイムの...
-
1ヶ月で50メートル走のタイムを...
-
50mクロールの高校一年生女子...
おすすめ情報