ＡＣＣＥＳＳを活用して商品変動を捉えたい（２）

質問

以下受注情報（テーブル）があります。

受付日 　　氏名 　　　　会員番号 　　商品コード 　商品名 　数量 　価格
2014/4/1 　　山田花子 　　12345678 　55555 　魔法瓶 　　1 　　　　2980
2014/4/2 　　大島太陽 　　34567890 　55555 　魔法瓶 　　1 　　　　2980
2014/5/1 　　山田花子 　　12345678 　33333 　御茶碗 　　1 　　　　1280
2014/5/14 　　大島太陽 　　34567890 　55555 　魔法瓶 　　2 　　　　5960
2014/7/15 　　山田花子 　　12345678 　22222 　洗面器 　　1 　　　　　980
2014/8/19 　　佐藤一郎 　　56789870 　11111 　お箸 　　1 　　　　　580

上記について、会員番号が同じお客様の場合で、
商品コード、商品名が前のリストから変わったリストのみ

クエリー（ＳＱＬ？）で、以下のように抽出することは難しいでしょうか。
（変わったという判断は直前を見る）

受付日 　切り替え　 氏名 　会員番号　　　商品コード 　商品名 　数量　　価格
2014/4/1 　　　　山田花子 　12345678 　　　55555 　　　　魔法瓶 　1 　　2980
2014/5/1 　　30 　　　　山田花子 　12345678 　　　33333 　　　　御茶碗 　1 　　1280
2014/7/15 　　75 　　　　山田花子 　12345678 　　　22222 　　　　洗面器 　1 　　　980

切り替え：前に注文した日付からの経過（日）を反映したい。

またテーブルの列は追加（集計ロジックに関係しないただの列）されていくこともあり、テーブルについては列全部をクエリーでは自動反映するとしたい。
（わざわざその都度、追加列を指定したくない）

お手数ですがご教授いただければ幸いです（願）。

回答No.1

山田 太郎（@f_a_007） · ベストアンサー

私は、「そんなやり方だったら誰でもできる！」って方式に拘っています。ですから、原則、単一SELECT文で全てを済ましてきました。そういうやり方でよければ・・・。

SELECT
DBLookup("SELECT 受注日 FROM 受注履歴 WHERE 氏名='" & [氏名] & "' AND 受注日 < #" & [受注日] & "# ORDER BY 受注日 DESC") AS 前回受注日,
DateDiff("d",前回受注日,受注日) AS 切り替え,
*
FROM 受注履歴;

ただし、「単一SELECT文で全てを済ます」を貫くには、DBLookup()などのSELECT文を自在に組み込めるユーザー関数が必要。

まあ、賛否両論でしょうが「誰でも書ける！」ことには間違いありません。

Public Function DBLookup(ByVal strQuerySQL As String, _
　　　　　　　　　　　　　Optional ByVal ReturnValue = Null) As Variant
On Error GoTo Err_DBLookup
　　Dim DataValue
　　Dim rst　　　　 As ADODB.Recordset

　　Set rst = New ADODB.Recordset
　　With rst
　　　　.Open strQuerySQL, _
　　　　　　　CurrentProject.Connection, _
　　　　　　　adOpenStatic, _
　　　　　　　adLockReadOnly
　　　　If Not .BOF Then
　　　　　　.MoveFirst
　　　　　　DataValue = .Fields(0)
　　　　End If
　　End With
Exit_DBLookup:
On Error Resume Next
　　rst.Close
　　Set rst = Nothing
　　DBLookup = IIf(Len(DataValue & ""), DataValue, ReturnValue)
　　Exit Function
Err_DBLookup:
　　MsgBox "SELECT 文の実行時にエラーが発生しました。(DBLookup)" & Chr$(13) & Chr$(13) & _
　　　　　 "・Err.Description=" & Err.Description & Chr$(13) & _
　　　　　 "・SQL Text=" & strQuerySQL, _
　　　　　 vbExclamation, " 関数エラーメッセージ"
　　Resume Exit_DBLookup
End Function

回答No.3

山田 太郎（@f_a_007）

注意：先のSQL文は、Order By 節の最適化はしていません。

回答No.2

山田 太郎（@f_a_007）

訂正：会員番号で比較すべきでした！

補足

うーーん、駄目です。ｍｍ