ＡＣＣＥＳＳを活用して商品変動を捉えたい（２再）
- ＡＣＣＥＳＳを使って商品の変動を把握する方法についての質問です。
- 回答では、特定の会員の受注日と前回の受注日の差を計算する方法が紹介されています。
- ただし、回答の方法では、テーブルを見ていないため、会員番号を変えても正確な結果が得られない可能性があるそうです。
- ベストアンサー
ＡＣＣＥＳＳを活用して商品変動を捉えたい（２再）
http://okwave.jp/qa/q8776538.html について、以下回答（SELECT分）をいただいていますが、 これですと、テーブルを見ていないので会員番号を変えても動かないのではないでしょうか。 （困った！） ＜回答きたもの＞ SELECT DBLookup("SELECT 受注日 FROM 受注履歴 WHERE 氏名='" & [氏名] & "' AND 受注日 < #" & [受注日] & "# ORDER BY 受注日 DESC") AS 前回受注日, DateDiff("d",前回受注日,受注日) AS 切り替え, * FROM 受注履歴; ただし、「単一SELECT文で全てを済ます」を貫くには、DBLookup()などのSELECT文を自在に組み込めるユーザー関数が必要。
- mcdone
- お礼率31% (55/177)
- オフィス系ソフト
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
回答の不完全な部分は補足していますが、伝わっていないようですね。 会員番号の件は、すでに回答が付いているので割愛します。補足の２点目。 ・SELECT文全体に、会員番号昇順で並べるORDER BY 節が欠落しています。 ここんところは、必要であれば追加されてください。 ＜注文が一回だけの顧客は除くべきなのか？＞ こういう疑問を持ちながらの回答ですが・・・。 仮に、そうであれば WHERE節を追加されると目的は達成されます。
その他の回答 (1)
- papapa0427
- ベストアンサー率25% (371/1472)
再度同じ内容に似たご質問をされるのであれば前回の質問は閉じておきましょう。 WHERE 氏名='" & [氏名] & "のところを WHERE 会員番号='" & [会員番号] & "とすればいいと思いますよ。
関連するQ&A
- ＡＣＣＥＳＳを活用して商品変動を捉えたい(2再再）
続きです。 http://okwave.jp/qa/q8781159.html SELECT DBLookup("SELECT 受注日 FROM 受注履歴 WHERE 会員番号='" & [会員番号] & "' AND 受注日 < #" & [受注日] & "# ORDER BY 受注日 DESC") AS 前回受注日, DateDiff("d",前回受注日,受注日) AS 切り替え, * FROM 受注履歴; 上記に対して、 すみません、以下はどこに組み込まれるのでしょうか。 ＞・SELECT文全体に、会員番号昇順で並べるORDER BY 節が欠落しています。 ＞・WHERE節を追加されると目的は達成されます。 注文1回のお客は除きます。。
- ベストアンサー
- オフィス系ソフト
- ＡＣＣＥＳＳを活用して商品変動を捉えたい(6再再）
クエリー１４ http://okwave.jp/qa/q8781488.html を参考にSELECT構文を作っていますが、、、 上記URLの画面のようには出ず、以下のようになります。 ※商品名、商品コードが変わらない「大島太陽」も抽出される（数量、価格が変化しているだけ） ※ 前回受注日 切り替え 受注日 氏名 会員番号 商品コード 商品名 数量 価格 2014/04/01 山田花子 12345678 55555 魔法瓶 1 2980 2014/04/01 30 2014/05/01 山田花子 12345678 33333 御茶碗 1 1280 2014/05/01 75 2014/07/15 山田花子 12345678 22222 洗面器 1 980 2014/04/02 大島太陽 34567890 55555 魔法瓶 1 2980 2014/04/02 42 2014/05/14 大島太陽 34567890 55555 魔法瓶 2 5960 クエリー14のイメージで間違えないでしょうか。 SELECT DBLookup("SELECT 受注日 FROM 受注履歴 WHERE 会員番号=" & [会員番号] & " AND 受注日 < #" & [受注日] & "# ORDER BY 受注日 DESC") AS 前回受注日, DateDiff("d",前回受注日,受注日) AS 切り替え, * FROM 受注履歴 WHERE (((DBLookup("SELECT COUNT(受注日) FROM 受注履歴 WHERE 会員番号=" & [会員番号]))>1)) ORDER BY 受注履歴.会員番号, 受注履歴.受注日;
- ベストアンサー
- その他MS Office製品
- ＡＣＣＥＳＳを活用して商品変動を捉えたい(3再再）
こちらの件ですが、 http://okwave.jp/qa/q8781488.html 最終的に以下で行こうと思っています。 テーブル名：スイッチング SQL構文 SELECT; DBLookup("SELECT 受注日 FROM スイッチング WHERE 会員番号=" & [会員番号] & " AND 受注日 < #" & [受注日] & "# ORDER BY 受注日 DESC") AS 前回受注日, DateDiff("d",前回受注日,受注日) AS 切り替え, * FROM スイッチング WHERE (((DBLookup("SELECT COUNT(受注日) FROM スイッチング WHERE 会員番号=" & [会員番号]))>1)) ORDER BY スイッチング.会員番号, スイッチング.受注日; しかしながら、クエリ実行を押すと、以下メッセージが流れ動作しません。 何が不足しているのでしょうか。 ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓ ！SELECT ステートメントが間違っている予約語や引数を含んでいるか、 区切り記号が正しくありません。
- 締切済み
- その他MS Office製品
- ACCESSを活用して商品変動を追いたい（別２）
こちらのベストアンサーについて、 http://okwave.jp/qa/q8783133.html 以下は氏名、電話番号をKEY（該当者の一致条件）としていましたが、電話番号のみにした場合、いただいた構文がどこが変わるのでしょうか。 こちらは、氏名、電話番号がKEY（これを電話番号だけをKEYにしたい）。 ↓ SELECT T1.受付日, T1.受付日-T2.受付日 AS 切り替え, T1.氏名, T1.電話番号, T1.商品コード, T1.商品名, T1.数量, T1.価格 FROM (SELECT Q1.* FROM ★★ AS Q1 INNER JOIN (SELECT 氏名, 電話番号 FROM ★★ GROUP BY 氏名, 電話番号 HAVING Min(商品コード & 商品名)<>Max(商品コード & 商品名) ) AS Q2 ON Q1.氏名=Q2.氏名 AND Q1.電話番号=Q2.電話番号 ) AS T1 LEFT JOIN (SELECT DISTINCT Q1.受付日, Q1.氏名, Q1.電話番号 FROM ★★ AS Q1 INNER JOIN (SELECT 氏名, 電話番号 FROM ★★ GROUP BY 氏名, 電話番号 HAVING Min(商品コード & 商品名)<>Max(商品コード & 商品名) ) AS Q2 ON Q1.氏名=Q2.氏名 AND Q1.電話番号=Q2.電話番号 ) AS T2 ON T1.氏名=T2.氏名 AND T1.電話番号=T2.電話番号 AND T1.受付日>T2.受付日 WHERE T2.受付日 Is Null OR (T2.受付日= (SELECT Max(受付日) FROM ★★ WHERE 氏名=T1.氏名 AND 電話番号=T1.電話番号 AND 受付日<T1.受付日) AND Exists (SELECT 1 FROM ★★ WHERE 受付日=T2.受付日 AND 氏名=T1.氏名 AND 電話番号=T1.電話番号 AND 商品コード & 商品名<>T1.商品コード & T1.商品名)) ORDER BY T1.氏名, T1.電話番号, T1.受付日;
- ベストアンサー
- オフィス系ソフト
- ACCESSを活用して商品変動を追いたい（別３）
達人様 重ね重ね恐縮です。 以下構文について、 氏名、電話番号が同じお客様の場合で、 商品コード、商品名が前のリストから変わったリストのみ を、 ↓ 電話番号が同じお客様の場合で、 商品コード、商品名が前のリストから変わったリストのみ に条件をこちらも変えられますでしょうか。 http://okwave.jp/qa/q8783133.html SELECT T1.受付日, T1.受付日-T2.受付日 AS 切り替え, T1.氏名, T1.電話番号, T1.商品コード, T1.商品名, T1.数量, T1.価格 FROM (SELECT Q1.*, Q3.CT FROM (★★ AS Q1 INNER JOIN (SELECT 氏名, 電話番号 FROM ★★ GROUP BY 氏名, 電話番号 HAVING Min(商品コード & 商品名)<>Max(商品コード & 商品名) ) AS Q2 ON Q1.氏名=Q2.氏名 AND Q1.電話番号=Q2.電話番号) INNER JOIN (SELECT 受付日, 氏名, 電話番号, Count(*) AS CT FROM ★★ GROUP BY 受付日, 氏名, 電話番号) AS Q3 ON Q1.受付日=Q3.受付日 AND Q1.氏名=Q3.氏名 AND Q1.電話番号=Q3.電話番号 ) AS T1 LEFT JOIN (SELECT 受付日, 氏名, 電話番号, Count(*) AS CT FROM ★★ GROUP BY 受付日, 氏名, 電話番号) AS T2 ON T1.氏名=T2.氏名 AND T1.電話番号=T2.電話番号 AND T1.受付日>T2.受付日 WHERE T2.受付日 Is Null OR (T2.受付日= (SELECT Max(受付日) FROM ★★ WHERE 氏名=T1.氏名 AND 電話番号=T1.電話番号 AND 受付日<T1.受付日) AND IIF(T1.CT<T2.CT,True, T1.商品コード & T1.商品名 Not In (SELECT 商品コード & 商品名 FROM ★★ WHERE 受付日=T2.受付日 AND 氏名=T1.氏名 AND 電話番号=T1.電話番号) )) ORDER BY T1.氏名, T1.電話番号, T1.受付日;
- ベストアンサー
- オフィス系ソフト
- ＡＣＣＥＳＳを活用して商品変動を捉えたい(5再再）
http://okwave.jp/qa/q8782706.html 上記について標準モジュールも作成して、先のクエリーを実行しましたが、 その際に ！コンパイル エラー： ユーザー定義型は定義されていません。 と出ます。 5行目の rst As ADODB.Recordset 箇所が反転されています。 一回でできるのは魅力なのですが、本当に実装できるのでしょうか。 （クエリーはたしかに保存できました） 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 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
- ベストアンサー
- オフィス系ソフト
- ACCESS SQLクエリーの活用について
以下データ群（テーブル名:table1）があります（会員番号はユニークをあらわします）。 注文日 会員番号 商品名 価格 2014/04/11 123456 パンツ 1000 ←一番古い注文日の行（4/11開始）が先頭 2014/04/20 123456 靴下 3000 2014/05/23 456789 半袖 2000 2014/05/23 456789 靴下 3000 2014/05/29 456789 パンツ 1000 2014/05/30 987654 靴下 3000 2014/06/09 987654 寝巻き 5000 2014/06/15 987654 下駄 4000 そして、 SELECT Q4.注文日, Q4.会員番号, Q4.商品名, Q3.購入回数, Q3.LTV FROM (SELECT Q1.注文日, Q1.会員番号, Count(Q2.会員番号)+1 AS 購入回数, DateDiff('d', Nz(Min(Q2.注文日),Q1.注文日), Q1.注文日) AS LTV FROM (SELECT 会員番号, 注文日 FROM ★★ GROUP BY 会員番号, 注文日) AS Q1 LEFT JOIN (SELECT 会員番号, 注文日 FROM ★★ GROUP BY 会員番号, 注文日) AS Q2 ON Q1.会員番号=Q2.会員番号 AND Q1.注文日>Q2.注文日 GROUP BY Q1.会員番号, Q1.注文日) AS Q3 LEFT JOIN ★★ AS Q4 ON Q3.会員番号=Q4.会員番号 AND Q3.注文日=Q4.注文日 ORDER BY Q4.会員番号, Q4.注文日 ; 達人からアドバイスいただいていた 上記SQLクエリーからの表示は 注文日 会員番号 商品名 購入回数 LTV 2014/04/11 123456 パンツ 1 0 2014/04/20 123456 靴下 2 9 2014/05/23 456789 半袖 1 0 2014/05/23 456789 靴下 1 0 2014/05/29 456789 パンツ 2 6 2014/05/30 987654 靴下 1 0 2014/06/09 987654 寝巻き 2 10 2014/06/15 987654 下駄 3 16 と出ます（GOOD!!!）。 上記に付随して、 このクエリーが参照しているテーブルの他の列（例：氏名、都道府県）もある（集計対象ではない）場合でそれも追加で（列名：氏名、都道府県を）表現するためには、 SELECT Q4.注文日, Q4.会員番号, Q4.商品名, Q3.購入回数, Q3.LTV の構文箇所に２つの列名も手打ちで追加する必要がありますでしょうか。 （テーブル列名すべてを表示する・・といった個別に列名を指定しないで表示する方法はあるのでしょうか＜列名が多いときに手間が若干かかる）
- ベストアンサー
- その他MS Office製品
- ＡＣＣＥＳＳを活用して商品変動を捉えたい（２）
以下受注情報（テーブル）があります。 受付日 氏名 会員番号 商品コード 商品名 数量 価格 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 切り替え：前に注文した日付からの経過（日）を反映したい。 またテーブルの列は追加（集計ロジックに関係しないただの列）されていくこともあり、テーブルについては列全部をクエリーでは自動反映するとしたい。 （わざわざその都度、追加列を指定したくない） お手数ですがご教授いただければ幸いです（願）。
- ベストアンサー
- オフィス系ソフト
- 秀丸でSQLを書く際に ＳＱＬの予約語だけ大文字
秀丸でSQLを書く際に ＳＱＬの予約語だけを、大文字に変換するよい方法は？ たとえば select * from table_1 where id=1 order by id desc; と書いて、マクロを起動すると SELECT * FROM talbe_1 WHERE id=1 ORDER BY id DESC; となるようにするよい方法はありませんか？ また、予約語が「強調」されると尚良いです。
- 締切済み
- PostgreSQL
- SQLコマンドのorder by句
受注金額の大きい順にリストするために select 受注番号,受注金額 from 受注テーブル order by 受注金額 desc; を発行すると、受注金額(数値型)が未定義(null)のものが上位になってしまします。 受注金額がnullのものを零より小さい扱いでリストする方法を教えて下さい。 尚、・・・ where 受注金額 is not null は不可です。 宜しくお願いします。
- ベストアンサー
- その他(データベース)
お礼
注文が一回だけの顧客は除くべきなのか？ >除きます。