ACCESS２００３

質問

ACCESS２００３
OS:winXPです。

アクセスのテーブルのデータが以下のようになっています。

ID　　｜名称｜番号１｜番号２｜番号３｜・・・・・｜番号30｜
１００｜太郎｜０００１｜１２３１｜４３２３｜・・・・
１０１｜次郎｜２３３３｜３２１３｜４２２５｜・・・・
・・・

番号１～番号３０にはIDに紐づくランダムな値が入っています。
IDによって紐づく番号が存在するだけ、３０まで列に入っています。
番号30まであるものもあれば、番号1しかないものもあります。

これを以下のように変えたいと思っています。

ID　　｜名称｜番号　｜
１００｜太郎｜０００１｜
１００｜太郎｜１２３１｜
１００｜太郎｜４３２３｜
　・
　・
１０１｜次郎｜２３３３｜
１０１｜次郎｜３２１３｜

なにかクエリ、VBAなどでいい方法はないでしょうか？

回答No.5

nda23

以下のようなSQLを持つクエリを作成する。

SELECT ID,名前,番号１ FROM テーブル
UNION ALL SELECT ID,名前,番号２ FROM テーブル
UNION ALL SELECT ID,名前,番号３ FROM テーブル
中略
UNION ALL SELECT ID,名前,番号３０ FROM テーブル

回答No.4

piroin654

For n = 1 To 7 Step 1
ではなく、
For n = 1 To 30 Step 1
にしてください。番号が30まであるという
ことなので。

回答No.3

piroin654

失礼しました。駄作はわすれてください。
以下で十分です。設定は同じです。

Function funcDATA1()

Dim db As Database
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim x As String
Dim n As Integer

Set db = CurrentDb
Set rs1 = db.OpenRecordset("tblT")
Set rs2 = db.OpenRecordset("tblDATA")

With rs1
rs1.MoveFirst
Do Until rs1.EOF
For n = 1 To 7 Step 1
x = "番号" & n
rs2.AddNew
rs2!ID = rs1!ID
rs2!名称 = rs1!名称
rs2!番号 = rs1.Fields(x)
rs2.Update
Next n

rs1.MoveNext
Loop
End With
End Function

回答No.2

piroin654

何も考えずにただデータの移し変えという
ことであれば、以下の方法もあります。
当初は配列変数でと思ったのですが
めんどうくさいのでコピペのエイヤで
どうぞ。
一応tblTがデータが入っているほうで、
tblDATAが移動先です。処理が終わったら
テーブルを昇順で並び替えれば終了です。
なお、移動先のIDには主キーを設定しないように。

Function funcDATA()
Dim db As Database
Dim rs1 As Recordset
Dim rs2 As Recordset
' Dim x(1 To 30) As String

Set db = CurrentDb
Set rs1 = db.OpenRecordset("tblT")
Set rs2 = db.OpenRecordset("tblDATA")

With rs1
rs1.MoveFirst
Do Until rs1.EOF
rs2.AddNew
rs2!ID = rs1!ID
rs2!名称 = rs1!名称
rs2!番号 = rs1!番号1
rs2.Update
rs2.AddNew
rs2!ID = rs1!ID
rs2!名称 = rs1!名称
rs2!番号 = rs1!番号2
rs2.Update
rs2.AddNew
rs2!ID = rs1!ID
rs2!名称 = rs1!名称
rs2!番号 = rs1!番号3
rs2.Update
rs2.AddNew
rs2!ID = rs1!ID
rs2!名称 = rs1!名称
rs2!番号 = rs1!番号4
rs2.Update
rs2.AddNew
rs2!ID = rs1!ID
rs2!名称 = rs1!名称
rs2!番号 = rs1!番号5
rs2.Update
rs2.AddNew
rs2!ID = rs1!ID
rs2!名称 = rs1!名称
rs2!番号 = rs1!番号6
rs2.Update
rs2.AddNew
rs2!ID = rs1!ID
rs2!名称 = rs1!名称
rs2!番号 = rs1!番号7
rs2.Update
rs1.MoveNext
Loop
End With

End Function

途中までしか書いていません。
rs2.AddNew
rs2!ID = rs1!ID
rs2!名称 = rs1!名称
rs2!番号 = rs1!番号7
rs2.Update
以下におなじものをあと17個コピペして
rs1!番号7のところを順次番号を変更して
ください。というより1から７までコピペ
して番号を変えていったら2、3回のコピペ
ですみます。あとは番号を変更。
では。

回答No.1

nza49739

以下の手順で作成します。

１　番号１、番号２・・・番号３０のみそれぞれのみ選択するクエリーを用意します。番号がないものは、もちろん番号が設定されているものに限定するようにします。
２　１で作成したクエリーをまとめます。まとめるにはクエリーを新規作成し、右クリックのメニューの中の"SQL"の中の"ユニオン"を選択することで作成できるようになります。そして、"Select * from クエリー名1 Union Select * from クエリー名2 "でまとめます。

しかし、データが多いとこの方法では遅くなりますので、作業用のテーブルに１で作成したクエリーデータを挿入するほうが賢明です。

参考URL：

http://makotowatana.ld.infoseek.co.jp/access/achowCombineDataInFieldsTwoMoreTablesUnionQueryS.htm