Отчет ACCESS. Новая группа с нового листа.
Релиб
Форумы       Участники    Календарь    Кто он-лайн?
Добро пожаловать, гость ( Вход | Регистрация )
        



Отчет ACCESS. Новая группа с нового листа. Expand / Collapse
Автор
Сообщение
02.01.2007 19:43
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 06.07.2008 10:37
Сообщ.: 236, Visits: 1 734
Добрый вечер, друзья! Наступил новый 2007, с чем всех Вас и поздравляю! И как и в предыдущем году, снова нужна Ваша помощь.

Есть отчет, с группировкой по нескольким полям. Что нужно сделать, чтобы каждая группа начиналась с нового листа?

Спасибо и успехов Вам в Ваших добрых делах!

Сообщ. #909399
03.01.2007 10:57
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 07.03.2008 19:04
Сообщ.: 328, Visits: 1 857
Для свойства "Конец страницы" примечания группы установить значение, например, "После раздела"
Сообщ. #909402
03.01.2007 15:18
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 06.07.2008 10:37
Сообщ.: 236, Visits: 1 734
В  точку, спасибо BoNiM!

А как сделать, что-бы нумерация листов в каждой группе начиналась с 1?

Сейчас использую TextBox в заголовке группы в котором свойство данные ="Лист      " & [Page]. И [Page] соответсвенно не обращает внимания на группы и нумерует каждую страницу по порядку.

Если нет простого способа, как в предыдущем вопросе, то может есть идеи как это можно реализовать?

Буду очень благодарен.

Best regards!

Сообщ. #909409
03.01.2007 17:41
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 07.03.2008 19:04
Сообщ.: 328, Visits: 1 857
Попробуйте так:

1) В модуле отчета поместите
Option Compare Database
Option Explicit
Dim VPag As Integer
Function FPag()
FPag = Me.Page - VPag + 1
End Function

2) B обработчик события Format заголовка группы
VPag = Page()

3) В нижнем колонтитуле поле с данными
="Страница " & FPag()
Сообщ. #909411
03.01.2007 17:51
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 07.03.2008 19:04
Сообщ.: 328, Visits: 1 857
Извиняюсь, не VPag = Page(), а VPag = Me.Page
Хотя, может быть, и так пойдет
Сообщ. #909412
03.01.2007 18:23
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 06.07.2008 10:37
Сообщ.: 236, Visits: 1 734
Спасибо, более чем исчерпывающий ответ!

После нескольких экспериментов и небольшого редактирования все отлично заработало!

А именно - в моей ситуации я сделал обработку события Format примечания группы и убрал + 1 в функции. Иначе получалось, что страницы начинали прибавлятся только с первого листа следующей группы. :)) ( Наверно потому, что мне пришлось перенести отображение нумерации страниц из заголовка группы в верхний колонтитул отчета. )

Но сейчас все отлично!! Спасибо за подмогу!!

Сообщ. #909413
« пред. тема | след. тема »


Эту тему читают Expand / Collapse
Посетители: 0 (0 гостей, 0 участников, 0 скрыт.участников)
Сейчас нет участников, просматривающих тему.
Модераторы: Alexey, boombastik, bazile, pl

Время GMT +3:00, Сейчас 5:07