AccessVBAサブクエリを扱うSQL

Question

AccessVBAのSQLを使って前日の高値と比較しようとしています。
複雑な構文の前に簡単なサブクエリを使った抽出をして[高値-1]に高値の値を入れようとしています。

本当は(高値 - 1 )などで前日の値を取得したいのですが、そもそも前日を計算する以前に同じ値を表記することができませんでした。以下のコードです。

Private Sub データ取込_Click()
    Dim strSQL As String
    strSQL = "INSERT INTO ドル円累積(日付け,高値,[高値-1]) " & _
             "SELECT 日付け, 高値, " & _
             "(SELECT 高値 " & _
             "FROM ドル円) AS [高値-1] " & _
             "FROM ドル円 "
             
    
    CurrentDb.Execute (strSQL)
End Sub

この構文に[高値-1]にサブクエリを使って同じ値(高値)を入力するにはどのように修正したらよいでしょうか？

また、前日のデータを取得するには、(高値-1)でいけるのか？(日付け-1)のような書き方をするのか？教えていただきたいです。

よろしくお願いいたします。

Answer 1

サブクエリーが複数の件数になるので、エラーですね。
前日の高値を求めるのですから、日付け=[前日の日付]となるような条件を加える必要があります。
また、その日付は処理しようとしているレコードの値の前日である必要がありますので、相関サブクエリーでなければなりません。

[日付け]が日付型なら、以下のようになります。
※フィールド名に-などは使用しない方が良いのと目的を表わす名称でないことから、
[高値-1]　→ [前日高値]
で表現します

INSERT INTO ドル円累積(日付け,高値, 前日高値)
SELECT 日付け, 高値
     ,(SELECT 高値 from ドル円 as 前日ドル円
       where 前日ドル円.日付け=(ドル円.日付 - 1)
      ) AS 前日高値 
FROM ドル円

Comments

[ataru2222]

sazi様
いつもありがとうございます。
できました。
まさかたった１行の比較がこんなにも大変だとは思ってもおりませんでした。
前回もWHERE の使い方に問題があり拾えてなかったのでもう少し勉強していきます。

早急に回答していただきまして本当にありがとうございました。