Microsoft Access ClubAccess超初心者対象ForumAccess初級者対象ForumAccess初・中級者対象ForumAccess VBA Tips ForumDAO、ADO、SQL Forum

     

No82935.変更前と変更後の単価を横に並べたい

タイトル変更前と変更後の単価を横に並べたい
記事No: 82935
投稿日: 2006/07/10(Mon) 15:15
投稿者: そのこ
OS:XP
Access Version:2000

いつも参考にさせてもらっています。
商品の単価履歴を元に、単価履歴の一覧表を作成したいのです。

商品の単価が変わるごとに、単価履歴テーブルに入力します。
フォームで、商品コードと日付の範囲を入力し、該当分をレポートで出力。

単価履歴テーブル
 商品コード  テキスト型   主キー
 日付     日付時刻型   主キー
 単価     通貨

 (例)
 商品コード     日付    単価
  0001 A商品  2006/01/01  \500
  0001 A商品  2006/04/01  \450
  0001 A商品  2006/07/01  \430
  0005 C商品  2006/07/01  \350  
  0005 C商品  2006/08/01  \340

単価履歴一覧表

 商品コード     変更前単価      変更後単価   
  0001 A商品  2006/01/01  \500  2006/04/01  \450
  0001 A商品  2006/04/01  \450  2006/07/01  \430
  0005 C商品  2006/07/01  \350  2006/08/01  \340

変更が2回以上だと、前と後の両方にありますが、どうすればいいのでしょうか。
過去ログも見ましたが、うまくヒットできませんでした。

タイトルRe: 変更前と変更後の単価を横に並べたい
記事No: 82936
投稿日: 2006/07/10(Mon) 15:24
投稿者: みるく
> 過去ログも見ましたが、うまくヒットできませんでした。
>
クロス集計 DCount

かな?

タイトルRe^2: 変更前と変更後の単価を横に並べたい
記事No: 82986
投稿日: 2006/07/11(Tue) 09:38
投稿者: そのこ
おはようございます。

> クロス集計 DCount
>
> かな?

過去ログを見る時、思いつきませんでした。
もう一度、検索してみます。
ありがとうございました。

タイトルRe: 変更前と変更後の単価を横に並べたい
記事No: 82939
投稿日: 2006/07/10(Mon) 15:44
投稿者: 門戸厄神
SELECT T.商品コード
, T.日付 AS 前回変更日付
, T.単価 AS 変更前単価
, Q.日付 AS 変更日付
, Q.単価 AS 変更後単価
FROM 単価履歴 AS T1 LEFT JOIN
(SELECT 商品コード
, 日付
, 単価
, DCOUNT("*"
, "単価履歴"
, "商品コード ='" & 商品コード & "' AND 日付<#" & 日付 & "#") AS 履歴
) AS Q
ON Q.商品コード = T.商品コード
AND
DCOUNT("*"
, "単価履歴"
, "商品コード ='" & T.商品コード & "' AND 日付<#" & T.日付 & "#") = Q.履歴 - 1;

かな?
'この前に一度投稿しましたが、間違っていたので削除しました。

タイトルRe^2: 変更前と変更後の単価を横に並べたい
記事No: 82987
投稿日: 2006/07/11(Tue) 09:46
投稿者: そのこ
おはようございます。

書いていただいたSQLですが、今まで簡単なクエリしか作ったことがないので、
少し複雑に思えますが、考えながら見ていきます。
ありがとうございました。

タイトル別案
記事No: 83004
投稿日: 2006/07/11(Tue) 12:43
投稿者: hatena
クエリのデザインビューの設定

フィールド                                                   抽出条件
商品コード
更新前日付: 日付
更新前単価: 単価
更新後日付: DMin("日付","単価履歴","商品コード='" & [商品コード] & "' AND 日付 > #" & [日付] & "#") Is Not Null
更新後単価: DLookUp("単価","単価履歴","商品コード='" & [商品コード] & "' AND 日付 = #" & [更新後日付] & "#")

タイトルできました!
記事No: 83011
投稿日: 2006/07/11(Tue) 14:38
投稿者: そのこ
こんにちは。

hatena様の方法を実行したところ、思ったとおりに出来ました。
金曜日から悩んでいたのが、嘘のようです。
ありがとうございました。


このAccessフォーラム過去ログ集は、Microsoft Access Club が運営しています


 

ページの先頭へ 前ページへ戻る