SQL 繰り返し分の作り方

Question

ACCESSでSQLを使って横持ちのデータを縦持ちに変換したいです。
その際に下記のようなSQL文を書けばよいのはわかりますが、列が200近くあるため、200回分のUNION ALLを書くのではなく、プログラミング言語のLOOPやWHILEのような形で少数レコードで対応したいと考えております。

横持ちデータ t-name

ID key a1 a2 a3 a4 ・・・・・・・・・・・・・・ a200
AA A 1 2 4 6 32
BB B 1 4 3 2 90

縦持ちデータ
ID key
AA 1
AA 2
AA 4
AA 6
・
・
・
AA 32
BB 1
BB 4
BB 3
・
・
・

クエリ文

SELECT ID, Key, a1 from t-name
UNION ALL
SELECT ID, Key, a2 from t-name
UNION ALL
・
・
・
SELECT ID,Key, a200 from t-name
;

上記のクエリ文を繰り返し記述（200列あるので200回）するのが大変なので、何かいい方法はないかご教授いただけないでしょうか。
よろしくお願いいたします。

Answer 1

文字列としてSQLを組み立てれば良いだけです。
SQLが長すぎて実行できない時は、分割したクエリーにして、そのクエリーをunionする事になると思います。

Dim wSQL As String, i As Integer

For i = 1 To 200
    wSQL = wSQL & vbLf & "union all select id, key, " & i & " as no, a" & i & " as a from t_name"
Next

wSQL = Mid(wSQL, 12)

CurrentDb.CreateQueryDef "Q_クエリ", wSQL

Answer 2

SQLでするなら、下記のようなテーブルを作成して、

テーブル名 T_Num
フィールド　Num （数値型）

これに1から200までの連番を入力します。

これで下記のようなSQLで縦に展開されます。

SELECT
 ID, Key,
 Choose(Num,a1,a2,a3 ・・・ a199, a200) As Data
FROM [t-name], T_Num;

ただし、Choose関数が200も引数を取れない可能性はあります。（試したことない試してみたら大丈夫そうです）
Unionもテーブル数に制限があるので200は無理です。

Access の仕様 - Access

クエリ
属性 最大値
クエリ内のテーブル数 32

もし、ダメな場合は、VBAで縦持ちテーブルに追加していくことになるでしょう。

Dim rs1 DAO.Recordset
Dim rs2 DAO.Recordset
Set rs1 = CurrentDB.OpenRecordset("[t-name]")
Set rs2 = CurrentDB.OpenRecordset("t_Data")

Do until rs1.EOF
    Dim i As Long
    For i = 2 to 199
        rs2.AddNew
        rs2!ID = rs1!ID
        rs2!Key = rs1!Key
        rs2!Data = rs1(i)
        rs2.Update
    Next
    rs.MoveNext
Loop

Answer 3

「レコード」と「フィールド」を回して全ての値を取得できますのでよしなに。
SQLでt-nameを加工するよりテーブルに追加する方がこの場合楽だと思います。

多分こんな感じで取れると思います。

Dim rst as DAO.Recordset,fld as DAO.Field
Set rst = CurrentDB.OpenRecordset("[t-name]")

if not (rst.EOF) then
  Do until (rst.EOF)
    for each fld in rst.fields
      debug.print fld.name,fld.value
    next
    rst.MoveNext
  Loop
end if