アクセスのテーブル作成・追加クエリについて

質問

アクセス2000を使用しています。

今このようなテーブルあったとします。
テーブル：社員(主キーはなし)
ID SEQ NAME
--------------
1 1 abc
1 2 abd
1 3 afe
2 1 bfd
2 2 bcc
3 1 aad

このテーブルの内容を別のテーブルに
移したいと思います。（テーブル名：社員複写)
但し、各IDの件数がすべて10件ずつになるよう
にします。(各IDにおけるSEQが、1～10が存在
するようにしたい）。
社員テーブルに存在しないSEQを社員複写テーブル
ではNAMEフィールドを空白で追加したいのですが
どのようにすればよろしいでしょうか？
おそらくVBAの記述が必要と思われますがよろしく
お願いいたします。

回答No.1

noname#4564 · ベストアンサー

インチキくさいニオイが漂います(笑)が、下記2つのクエリー ( qry1、qry2 ) を使用すればOKです。

[qry1]
SELECT DISTINCT 社員.ID, qry.SEQ
FROM 社員,
[SELECT 1 AS SEQ
FROM 社員
union
SELECT 2 AS SEQ
FROM 社員
union
SELECT 3 AS SEQ
FROM 社員
union
SELECT 4 AS SEQ
FROM 社員
union
SELECT 5 AS SEQ
FROM 社員
union
SELECT 6 AS SEQ
FROM 社員
union
SELECT 7 AS SEQ
FROM 社員
union
SELECT 8 AS SEQ
FROM 社員
union
SELECT 9 AS SEQ
FROM 社員
UNION SELECT 10 AS SEQ
FROM 社員;
]. AS qry;

[qry2]
INSERT INTO 社員複写 (ID, SEQ, NAME)
SELECT qry1.ID, qry1.SEQ, 社員.NAME
FROM qry1 LEFT JOIN 社員 ON (qry1.ID = 社員.ID) AND (qry1.SEQ = 社員.SubID);

お礼

ありがとうございます。
本来の目的はデータがなくとも罫線を常に１０行
出力するレポートを作成したいがためです。
改ページコントロールとNextRecordプロパティを
駆使してやってみようと思いましたが、動きが不安
定なために仮テーブルを作成する手法に切り替えたの
です。
何はともあれどうもありがとうございました。