Access – как сделать универсальную Группировку?

[jiura]

Доброе время суток!
Пишем программу на Access-е: два файла – оболочка и БД.
В оболочку загружается некоторая таблица – например с данными по персоналу из БД. Но персонала много и хочется чтобы пользователь мог группировать данных по 1-му или двум столбцам. Т.е. он вызывает менюшку: и в ней выбирает первый столбец группировки (любой столбец из таблицы персонал, например: по возрасту, полу, подразделению и.т.д.), а затем при необходимости второй. Вопрос: как это можно реализовать это на Access?

ВАЖНО! Многие путают группировку и фильтрацию…..а это не одно и тоже. Разницу покажу на примере:
Например группируем по столбцу «Пол» – тогда организуется иерархия с одним уровнем вложенности. На первом уровне: «Мужчины», «Женщины», На втором конкретные люди. Причем в итоговой строке (которая образуется после группировки), которая называется «Мужчины», например по столбцу «Численность», стоит суммарная численность мужчин, по столбцу «дата приема на работу», минимальная дата приема, по столбцу возраст – минимальный (или максимальный в зависимости от настройки) возраст и.т.д…..тоже самое в итоговой строке женщин.
При фильтрации же мы:
А. Получаем либо только мужчины, либо женщины либо все вместе (не структурировано)
Б. Фильтрация не дает итоги по каждому из столбцов!!!

[Stilet]

Насколько я помню группировка происходит именно в том порядке в каком перечисленны в Group BY поля.
Попробуй менять местами поля в этом разделе

[VVlad69]

Dim mdb As ADODB.Connection, rst As ADODB.Recordset
Set mdb = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "SELECT Sum(b.Scost) as Scost,Sum(b.Sdox) as Sdox " _
& "From tbDisCBuy inner join " _
& "(select Mov_ID,[Ammount price]-[Ammount cost] as Sdox,[Ammount price] as Scost from Movies " _
& "union all " _
& "select Mov_ID,[Ammount price]-[Ammount cost] as Sdox,[Ammount price] as Scost from arx_Movies)b " _
& "on tbDisCBuy.MovDet_ID=b.Mov_ID where DisC_ID=" & TMP_DISCONT_ID, mdb

With rst
    Me.SumCost = .Fields("Scost")
    Me.SumDox = .Fields("Sdox")
End With
rst.Close

привел образец использования recordset в процедуре своей базы
главная прелесть в том что recordset обычная переменная типа string, с которой мона делать обычные текстовые операции
примеч. Me.SumCost - поле на форме, TMP_DISCONT_ID - переменная.

[Sparxy]

зачем использовать ADODB если DAO включает в себя ADODB и проще в использовании.