teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

2

推敲

2020/05/10 03:10

投稿

sazi
sazi

スコア25430

answer CHANGED
@@ -2,9 +2,9 @@
2
2
  前日の高値を求めるのですから、`日付け=[前日の日付]`となるような条件を加える必要があります。
3
3
  また、その日付は処理しようとしているレコードの値の前日である必要がありますので、**相関サブクエリー**でなければなりません。
4
4
 
5
- 日付けが日付型なら、以下のようになります。
5
+ [日付け]が日付型なら、以下のようになります。
6
6
  ※フィールド名に`-`などは使用しない方が良いのと目的を表わす名称でないことから、
7
- [高値-1] → 前日高値
7
+ [高値-1] → [前日高値]
8
8
  で表現します
9
9
 
10
10
  ```SQL

1

訂正

2020/05/10 03:10

投稿

sazi
sazi

スコア25430

answer CHANGED
@@ -7,15 +7,11 @@
7
7
  [高値-1] → 前日高値
8
8
  で表現します
9
9
 
10
- ```VBA
10
+ ```SQL
11
- Private Sub データ取込_Click()
12
- Dim strSQL As String
13
- strSQL = "INSERT INTO ドル円累積(日付け,高値, 前日高値) " & _
11
+ INSERT INTO ドル円累積(日付け,高値, 前日高値)
14
- "SELECT 日付け, 高値, " & _
12
+ SELECT 日付け, 高値
15
- "(SELECT 高値 from ドル円 as 前日ドル円" & _
13
+ ,(SELECT 高値 from ドル円 as 前日ドル円
16
- " where 前日ドル円.日付け=(ドル円.日付 - 1) " & _
14
+ where 前日ドル円.日付け=(ドル円.日付 - 1)
17
- ") AS 前日高値 " & _
15
+ ) AS 前日高値
18
- "FROM ドル円"
16
+ FROM ドル円
19
- CurrentDb.Execute (strSQL)
20
- End Sub
21
17
  ```