AccessVBA SQLでの異なるレコード間での値の比較と抽出

Question

前提・実現したいこと

AccessVBAでサブクエリを使ったSQLで条件にあった値を取得したいです。

発生している問題・エラーメッセージ

行間比較して高値と前日高値の値を比較して
高値 > 前日高値
が成立するレコードを取得したいのですが、サブクエリを使ってその中で仮想テーブルのようなものを作っているのでうまく条件式が書けません。

該当のソースコード

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


End Sub

試したこと

サブクエリのWHERE文の後ろに
AND ドル円.高値 > 前日ドル円.前日高値

最後のFROMの後ろに
WHERE ドル円.高値 > 前日ドル円.前日高値　

など試したのですが、パラメーターが取得できません。
などと表記されてしまいます。

詳しい方いらっしゃいましたら、ご教示ください。
よろしくお願いいたします。

Comments

[sazi]

前日より高値になったものだけ追加したいという事ですか？
その場合、前日が無いものも含みますよね？

[ataru2222]

sazi様
本当にいつもありがとうございます(涙)

>前日より高値になったものだけ追加したいという事ですか？

まさにです。これから条件式を何個か追加して、trueになった値を追加していきたい。と考えているのですがサブクエリだと書き方が分からなくて困っております。

ひとつでもこのような条件式の書き方(書く場所)が分かれば、応用すればいけそうだな！と感じているのですが、調べてもピンポイントにハマる内容が出てこずに困っております。

>その場合、前日が無いものも含みますよね？

こちらに関しては、日付けだと空欄が出てしまうので後々連番を振ってそちらを基準にして空白が開かないようなものを想定しておりますが、今回はIS NULLで教えていただきたいです。

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

Answer 1

条件として、高値 > 前日高値としたい場合、前日高値はエイリアスで付けられた名前ですから、参照できるようにネストするか、エイリアスを付ける前と同じ内容を記述する必要があります。
ネストさせた方が可読性は高いので、ネストを採用した方が良いかと思います。

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

追記

一応、Access的には以下の方が高速かもしれません。

INSERT INTO ドル円累積(日付け,高値, 前日高値)
SELECT t1.日付け, t1.高値, t2.高値
FROM   ドル円 as t1 left join ドル円 as t2
       on  t1.日付け=(t2.日付け - 1)
WHRE t1.高値 > Nz(t2.高値)

Comments

[ataru2222]

sazi様
すごいです。
できました。(自分の力でこれをやれって言われてできる自信ないですが。。。)
ひとつ書き方がわかれば応用きくかな？と考えていたのですが、
サブクエリが増えて結構複雑になっていくのですね(涙)

ちなみに、WHERE 高値 > Nz(前日高値)はNULLを置き換えているのだな。
とわかったのですが、as step1とは何を意味しているのでしょうか？
名前を変更しても動いたので、直接プログラムに関係していないと思うのですが
調べている際にstep1 [value]のようなことを書いている方もいらっしゃいました。
step1とはなにかSQLで名前を付ける際の決まりごとのようなものでしょうか？

[sazi]

単なるエイリアスです。
サブクエリーを元にしたサブクエリーとかでネストが深くなったりする場合に、都度名前を考えるのが面倒なので、第一階層、第２階層（step1、step2）などとしている個人的な名付けです。

[sazi]

サブクエリーを使用しないパターンも追記しておきます

[ataru2222]

sazi様
ありがとうございます。
複雑なSQLを書くからこそ必要になってくる分かりやすくシンプルな名前なのですね。
勉強になりました。

それにレフトジョインでのやり方まで。
継続して勉強を続けていきます。
本当にありがとうございました。