Private Sub CommandButton1_Click()
Set dbs = DAO.OpenDatabase("c:\database.mdb")
'Выполняем запрос к базе данных
Set rs = dbs.OpenRecordset("SELECT назв_тов FROM тбл_тов")

'Если ничего не найдено - выдаем сообщение и выходим
If rs.RecordCount = 0 Then
MsgBox ("По вашему запросу ничего не найдено")
Exit Sub
End If
i = 1
Do While Not rs.EOF ' цикл выполняется пока не достигнута последняя строка в таблице ответа
'Присваиваем ячейкам таблицы значения из базы
Cells(i + 1, 2).Value = rs.Fields("назв_тов")
'Cells(i, 1).Value = rs.Fields("ID_тов")
i = i + 1
'переходим к следующей строке во временной таблице ответа
rs.MoveNext
Loop
'Закрываем временную таблицу
rs.Close
'Очищаем память. Если этого не сделать, то таблица так и останется висеть в оперативке.
Set rs = Nothing
'Закрываем базу
dbs.Close
'Очищаем память
Set dbs = Nothing
End Sub

Отчет в excel на данный момент формирует список товара.
Вопрос как проще реализовать чтобы формировал список товара по группам, тоесть в таблице есть поле class.
Необходимо, чтобы формировалось вида:
процессоры
.
.
.
видеокарты
.
.
.
и так далее

Имеется ввиду не группировка а конкретно писался класс а далеее перечень

тоесть такого вида:

процессоры
amd
intel
видеокарты
nvidia
ati

Насколько я понимаю это надо как то занести в рекордсет все классы а далее как то по циклу весь перечень по классам. Или это как то проще делается?

Схему бд можно конечно. Просто я использовал тривиальный пример в вопросе. Что бы понять как работает оно на простом примере и уже внедрить в свой конкретный случай.

Таблица ZfromUch
интересующие поля поля
Naimen
Таблица TMC
интересующие поля поля
Name
Class
Name объеденено c Name один ко многим
Поля которые участвуют для where пока не учел

тоесть Naimen c Name

Таблица ZfromUch это таблица содержащая данные о заявках
А таблица TMC это таблица содержащая номенклатуру(тоесть наименование класс(метизы,тюбинги...), среднерыночная цена )

select class from
(select class, class as c, 0 as subgroup FROM тбл_тов
union all
SELECT назв_тов, class, 1 FROM тбл_тов) q
order by c, subgroup

То что надо только вот DISTINCT Бы как то там уместить а то выдает орбер бай конфликтует с дистинк

Спасибо помогло

В ацессе у меня получалось только "горизонтальное представление" данных
А необходимо для наглядности "вертикальное"...Если вы меня поняли

Private Sub Кнопка75_Click()
Dim xlApp As Excel.Application
Dim wkbNewBook As Excel.Workbook
Dim wksSheet As Excel.Worksheet
Dim strBookName As String

'Создается скрытая инстанция к Excell
Set xlApp = New Excel.Application
' Добавляется новый workbook в Workbooks collection.
Set wkbNewBook = xlApp.Workbooks.Add
' Путь и имя книги для сохранения
strBookName = "C:\ex1.xls"

With wkbNewBook
For Each wksSheet In .Worksheets
wksSheet.Name = wksSheet.Name
Next wksSheet
.Close SaveChanges:=True, FileName:=strBookName
End With

Set dbs = DAO.OpenDatabase("c:\Шаблон доступа 2003.mdb")
'Выполняем запрос к базе данных
Set rs = dbs.OpenRecordset("SELECT ZfromUch.Naimen, TMC.Class FROM TMC INNER JOIN ZfromUch ON TMC.Name = ZfromUch.Naimen GROUP BY ZfromUch.Naimen, TMC.Class;")
rCount = rs.RecordCount
If rCount > 0 Then
aData = rs.GetRows(rs.RecordCount)
Set rs = dbs.OpenRecordset("SELECT DISTINCT class FROM TMC ORDER BY class")
aClass = rs.GetRows(rs.RecordCount)
Else
MsgBox ("По вашему запросу ничего не найдено")
End If

rs.Close
Set rs = Nothing
dbs.Close
Set dbs = Nothing

If rCount > 0 Then
'Cells.Clear
k = 2
For i = 0 To UBound(aClass, 2)
Cells(k, 2) = aClass(0, i)
wksSheet.Cells(k, 2).Font.Bold = True
k = k + 1
For j = 0 To UBound(aData, 2)
If aData(1, j) = aClass(0, i) Then
Cells(k, 2) = aData(0, j)
k = k + 1
End If
Next
Next
End If






Set wkbNewBook = Nothing
'Выход из Excell
xlApp.Quit

Set xlApp = Nothing
Exit Sub
End Sub


Не определяет Cells(k, 2) я так понимаю надо где то что то объявить или правильно путь к ячейке указать...Если вообще конструкция правильная

я же давал ссылку на тему чем не подходит отчет акцесса. Если присмотреться я не могу вывести данные в определенном виде...

Мне самому не в кайф сидеть разбирать примеры взаимод акц и экселя и пытаться стряпоть свой...

Там действительно дальнейшая обработка...

http://www.sql.ru/forum/actualthread.aspx?tid=857677

Как мне замутить количество по участкам в вертикальном виде...Я не знаю как это в акцессе сделать

Если исходить из данного скрина там количество указано 200 это 100 от первого участка и 100 от второго. И как это впихнуть чтоб выглядело как в акцессе я не знаю

тоесть да конструкция доступна
метизы
участок1
болт1 100
участок2
болт1 100

а как сделать

метизы участок1 участок2
болт1 100 100 я не знаю

там форма2

Да действительно перекрестный запрос помог

Можно ли как то форматировать очередность (или как лучше это сделать) формирования столбцов перекрестного запроса с динамическим количеством. На данный момент формируются сперва столбцы строк, далее идет динамическое кол-во столбцов и столбец с их суммой. А хотелось бы столбцы строк---динамические с их суммой---столбы строк.
В отчете динамика cnjk,tw sum-coast стол после столбца общее кол-во.

Чтобы в отчете "динамика" столбец sum-coast стоял после столбца общее кол-во

Или проблема как то решается еще одним запросом который содержит нужные поля.

Разобрался...

Как лучше заполнить столбец partsh(Предпологаемый поставщик) в отчете динамика. Для формирования отчета следует заполнить в форма2 2011год и месяц май

Разобрался...