回答編集履歴

2

推敲

2020/05/10 03:10

投稿

sazi
sazi

スコア25195

test CHANGED
@@ -6,11 +6,11 @@
6
6
 
7
7
 
8
8
 
9
- 日付けが日付型なら、以下のようになります。
9
+ [日付け]が日付型なら、以下のようになります。
10
10
 
11
11
  ※フィールド名に`-`などは使用しない方が良いのと目的を表わす名称でないことから、
12
12
 
13
- [高値-1] → 前日高値
13
+ [高値-1] → [前日高値]
14
14
 
15
15
  で表現します
16
16
 

1

訂正

2020/05/10 03:10

投稿

sazi
sazi

スコア25195

test CHANGED
@@ -16,26 +16,18 @@
16
16
 
17
17
 
18
18
 
19
- ```VBA
19
+ ```SQL
20
20
 
21
- Private Sub データ取込_Click()
21
+ INSERT INTO ドル円累積(日付け,高値, 前日高値)
22
22
 
23
- Dim strSQL As String
23
+ SELECT 日付け, 高値
24
24
 
25
- strSQL = "INSERT INTO ドル円累積(日付け,高値, 前日高値) " & _
25
+ ,(SELECT 高値 from ドル円 as 前日ドル円
26
26
 
27
- "SELECT 日付け, 高値, " & _
27
+ where ドル円.日付け=(ドル円.日付 - 1)
28
28
 
29
- "(SELECT 高値 from ドル円 as 前日ドル円" & _
29
+ ) AS 前日高値
30
30
 
31
- " where 前日ドル円.日付け=(ドル円.日付 - 1) " & _
32
-
33
- ") AS 前日高値 " & _
34
-
35
- "FROM ドル円"
31
+ FROM ドル円
36
-
37
- CurrentDb.Execute (strSQL)
38
-
39
- End Sub
40
32
 
41
33
  ```