перевести строку 1 строку с множеством значений в столбцец

добрый день...подскажите как перевести строку в столбец без условий.
есть результат select

надо получить..извиняюсь..не совсем умею пользоваться формумом

Увы, MS Access не знает про UNPIVOT.

Akina,
может быть както в vba?

В VBA - запросто. Открываешь рекордсет, читаешь, создаёшь вторую таблицу, заполняешь.

Akina,
не силен в vba. изучаю только 2ой день...может быть есть пример кода?заранее благодарен

Двумя запросами.

Запрос 1. Query1.

SELECT Cod,1 AS M,[1] AS K FROM Table1
UNION ALL
SELECT Cod,2,[2] FROM Table1
UNION ALL
SELECT Cod,3,[3] FROM Table1
UNION ALL
SELECT Cod,4,[4] FROM Table1
UNION ALL
SELECT Cod,5,[5] FROM Table1
UNION ALL
SELECT Cod,6,[6] FROM Table1
UNION ALL
SELECT Cod,7,[7] FROM Table1
UNION ALL
SELECT Cod,8,[8] FROM Table1
UNION ALL
SELECT Cod,9,[9] FROM Table1;

Запрос 2.

TRANSFORM First([K])
SELECT [M]
FROM Query1
GROUP BY [M]
PIVOT [Cod];

__Michelle

Двумя запросами. Запрос 1. Query1. SELECT Cod,1 AS M,[1] AS K FROM Table1 UNION ALL SELECT Cod,2,[2] FROM Table1 UNION ALL SELECT Cod,3,[3] FROM Table1 UNION ALL SELECT Cod,4,[4] FROM Table1 UNION ALL SELECT Cod,5,[5] FROM Table1 UNION ALL SELECT Cod,6,[6] FROM Table1 UNION ALL SELECT Cod,7,[7] FROM Table1 UNION ALL SELECT Cod,8,[8] FROM Table1 UNION ALL SELECT Cod,9,[9] FROM Table1; Запрос 2. TRANSFORM First([K]) SELECT [M] FROM Query1 GROUP BY [M] PIVOT [Cod];

а есби столбцов 240...все перечислить ???или как то без этого можно?

Женя1987,
обзывать поле кодом товара есть неправильно (а если товаров 500 наименований-сколько должно быть полей )
попробуйте так:

Sub my()
Dim rs As DAO.Recordset, rs1 As DAO.Recordset, i
DoCmd.RunSQL "create table tbl (id  counter primary key ,idTovar long, ctl1 text)" ' если таблица уже существует будет ошибка
'может лучше создать её разово вручную и удалить это строку (или обработать ошибку)
Set rs = CurrentDb.OpenRecordset("ИсходнаяТабл")
Set rs1 = CurrentDb.OpenRecordset("КонечнаяТабл")
Do Until rs.EOF
    For i = 1 To rs.Fields.Count - 1
        rs1.AddNew
         rs1!товар = rs!код
         rs1!ctl1 = rs.Fields(i)
        rs1.Update
    Next
rs.MoveNext
Loop
Set rs = Nothing
Set rs1 = Nothing
End Sub