Как сделать сортировку по фильтру в отчете?

[monrus]

есть база с ежемесячными выплатами в долларах и рублях. Как сделать отчет, где в итоге будет сумма вылаченных денег отдельно в рублях и долларах. Типа:
Sum(Выплаты) Filter Valuta='рубли'

[RomCom]

Если базы в Excel, самое простое "Данные->Фильтр-Автофильтр" и установить фильтрацию по колонке Валюта.

[RomCom]

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

[monrus]

Акцесс

[monrus]

Пример типа:
март:
Иванов    1000 руб.
Петров     200 долл.
Сидоров   700 руб.
Мамонтов 300 долл.
_________________
Итого, долл.: 500
Итого, руб.: 1700

Каким образом сделать, чтобы в отчете выводился итог отдельно в долл. и в руб.?
Типа: Итого, долл.: Sum(Сумма) filter Валюта='долл.'
         Итого, руб.: Sum(Сумма) filter Валюта='руб.'

[RomCom]

Используй функцию "БДСУММ":

[monrus]

Вы правильно поняли что я хотел. Но мне это надо на accessе. Типа такой функции.

[Dusk]

Делаешь запрос к базе и записываешь результат в переменные, которые потом и вставляешь в отчет. Например:

Select sum(MySumma) dsumm from tblSumma where valute='dollar'
union all
Select sum(MySumma) rsumm from tblSumma where valute='rub'

(Я не помню будел ли работать union all, если нет, то сделай два запроса)

[HandKot]

(Я не помню будел ли работать union all, если нет, то сделай два запроса)

лучше использовать GROUP BY

Код:

Select valute, sum(MySumma) dsumm from tblSumma GROUP BY valute

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

[Dusk]

HandKot, можно и так... Хотя так как я написал он четко будет знать в какую ячейку какое значение ставить, а если сделать как ты написал, то там надо будет потом фильтры использовать... Короче из двух вариантов выбирать вопрошающему...

[monrus]

Вот пример, как там в отчете это представить, помогите, please!!!

[RomCom]

Код:

 Private Sub ПримечаниеГруппы0_Format(Cancel As Integer, FormatCount As Integer)
 Dim rs As Recordset
 Set rs = CurrentDb.OpenRecordset("select Клиенты.Валюта,sum(Клиенты.Сумма) from Клиенты group by Валюта")
 Надпись16.Caption = "Итого, " & rs.Fields(0).Value
 Поле15.Value = rs.Fields(1).Value
 rs.MoveNext
 Надпись18.Caption = "Итого, " & rs.Fields(0).Value
 Поле17.Value = rs.Fields(1).Value
 rs.Close
End Sub

Это решение "в лоб". Нужно еще добавить проверку EOF (конец таблицы)

[Dusk]

В моем варианте получаешь значения в переменные, а потом полям присваиваешь переменные... (кстати можно и сразу в запросе подставлять поля вместо переменных)...

[monrus]

Вы можете мне это сделать в файле, который я вам выслал?

Finch Не надо посылать один и тот же пост несколько раз.

[RomCom]

собственно в аттаче 

[monrus]

Посмотрите, пожалуйста вот эту базу - здесь конткретные даты - но выдается ошибка:
"несоответствие данных в условии выбора".

[RomCom]

проблема в том, что ты изменил тип данных поля "месяц". Раньше это была строка, а теперь дата. Теперь появилась проблема представления даты. В SQL дата предствляется в виде 01/01/2006 а поле "Месяц" содержит значение выдаваемое в формате 01.01.2006
т.е. надо изменять точки на слеши

[monrus]

RomCom, у меня нифига не выходит, помоги

[RomCom]

Задал ты задачку 
Данный запрос спосет функция DatePart()

А вообще покопайся в базе Борей (идущей как пример). Там подобное делается встроенными механизмами без VBA.

[monrus]

тема закрыта

[monrus]

Снова открываю тему.
Оказывается DatePArt с параметром m (месяц) - фильтрует по месяцам не зависимо какой год. Т.е. если месяц один а годы разные, то все помещается в этот месяц. как сделать чтобы фильтровалось и по месяцам и по годам в отдельности? Спасибо

[HandKot]

если правильно понял вопрос, то используй ф-ции YEAR() и MONTH()

[monrus]

посмотрим. А так - выше есть ссылка на файл.

[HandKot]

вот посмотрите

ИМХО не совсем правильно задумано, но может по другому и не надо 

[HandKot]

вот кстати посмотрите
Сделал отчет по другому

[monrus]

Спасибо. А где можно найти лит-ру про SQL запросы в Access?

[monrus]

И еще один вопрос. Почему в запросе не отображаются поля с пустыми значениями, хотя выборка идет всех полей не равных "руб"лю?

[HandKot]

Спасибо. А где можно найти лит-ру про SQL запросы в Access?

Access поддерживет стандарт ANSI SQL + свои встроенные ф-ции
Смотрите справку Справка по языку Microsoft Jet SQL

И еще один вопрос. Почему в запросе не отображаются поля с пустыми значениями, хотя выборка идет всех полей не равных "руб"лю?

я так думаю потому, что поле Клиенты.Валюта имеет значение NULL и чтобы получить в выборке и эти значение надо условие дополнить следующим кодом

Код:

(Клиенты.Валюта IS NULL)

и должно получиться

Код:

(Клиенты.Валюта<>"руб")OR (Клиенты.Валюта IS NULL)

[monrus]

Огромное Спасибо!!!