Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9668 / 9994

←次へ　｜　前へ→


	【3462】Re:追伸

hatena - 04/9/9(木) 11:18 -


	引用なし

	パスワード

まず部品毎に連番を付けるクエリを作成します。テーブル名は、テーブル1 と仮定してます。 SELECT 部品コード, 装置コード, DCount("*", "テーブル1", "部品コード='" & 部品コード & "' AND ID <=" & ID) AS 使用装置No FROM テーブル1; 出力結果部品コード　　　　装置コード　　　　使用装置No 　００１　　　　Ａ１－００　　　　1 　００２　　　　Ａ１－００　　　　1 　００３　　　　Ａ１－００　　　　1 　００１　　　　Ａ１－０１　　　　2 　００１　　　　Ｂ１－００　　　　3 　００２　　　　Ｂ１－００　　　　2 このクエリの名前を、クエリ1 とします。このクエリを元にクロス集計クエリを作成します。 TRANSFORM First(装置コード) AS 装置コードの先頭 SELECT 部品コード FROM クエリ1 GROUP BY 部品コード PIVOT 使用装置No; 出力結果部品コード　　　　1 　　　　　　　　2 　　　　　　　　3 　００１　　　　Ａ１－００　　　　Ａ１－０１　　　　Ｂ１－００　００２　　　　Ａ１－００　　　　Ｂ１－００　　　　　００３　　　　Ａ１－００