Уфф, все-таки получилось своими силами - через рекордсет. Вы были правы, оказалось возможно запрячь в одну упряжку For... Next с циклом по полям и Do While... Loop.
Еще раз большое спасибо!

пока не за что

Большое спасибо. :)

Очень жаль.
предложение в силе, но со сроками ничего конкретного сказать не могу, точно не сегодня...
пишите в почту.

Только сейчас снова вышла в сеть и увидела Ваше сообщение.

если пришлете исходный запрос с куском данных на мыло, то к понедельнику постараюсь написать скрипт

я бы сделал так.
Выгнал в excel плоскую таблицу вида
ФИО ГОД ТЕСТ БАЛЛЫ

потом программно в EXCEL построил бы сводную таблицу по этим данным...
или использовал бы
http://hiprog.com/index.php?option=com_content&task=view&id=685

Да, конечно, пожалуйста - нечто вроде этого (см. аттачмент) в грубом приближении. Цифры "с потолка", т.е. могут быть любые целые, в том числе отрицательные, но дело, конечно, не в них... Полей (видов/пунктов теста) тоже будет не 4, а несколько десятков, для конкретного отчета будут выбираться конкретные виды теста пользователем на форме.

"дальше - пункт тестирования (ну пусть будет IQ) и в нем баллы по годам (2003,2004,2005,2006)"
вот это не совсем понятно.
не могли бы Вы сюда пристигнуть пример Excel таблицы которая должна быть на выходе с кусочком данных (не более 50 кбт)

Снова прошу прощения. Дано: есть результаты тестирования по годам. Собственно, тестирование идет по многим пунктам => есть таблица с ключевыми полями КодТестируемого, Год и n полями - пунктами тестирования (баллами по ним). Задача - вывести отчет с динамикой результатов по годам. Ну, в грубом приближении - таблица в Excel'e, первый столбец - ID тестируемого, дальше - пункт тестирования (ну пусть будет IQ) и в нем баллы по годам (2003,2004,2005,2006), следщ. пункт (вид теста) - то же самое...
Не знаю, получилось ли объяснить понятно?

не кормите нас с чайной ложечки, пожалейте свое и чужое время, опишите задачу подробнее

Да вот с For each... in что-то не выходит то, что мне нужно.
Я пытаюсь новый рекордсет построить для вывода в Excel, и вот... на этом месте затыка получается.

опять не понял...
чем вас не устраивает
for each .... in .... ?
это как раз перебор всех названий полей....

вы и так можете делать цикл по свойству Fields (таблицы или запроса)

Спасибо, но, боюсь, это не совсем то, что нужно. Мне надо не просто вытащить названия полей, но получить рекорсет, содержащий эти названия (потом по нему нужно делать цикл типа Do until... Loop). Такое возможно?

для 2000 и выше

Public Function listFields(strNameTbl As String) ' выводит имена полей в указанной таблице или запросе ' запрос должет быть без параметров Dim rst As ADODB.Recordset Dim fld As ADODB.Field Set rst = New ADODB.Recordset rst.Open "select * from " & strNameTbl, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly For Each fld In rst.Fields Debug.Print fld.Name Next rst.Close Set rst = Nothing End Function

Для 97 для таблицы можно использовать
TableDef.fields
а для запросов:
QueryDef.Fields

2003, но хорошо бы оно сработало бы и на ХР

ACCESS какой?

Прошу прощения. Названия полей. А не данные.

вопрос непонятен.
запрос и так "вытаскивает" поля таблицы...

Если это возможно. Но уж очень бы надо!