Сброс номера страницы на уровне группы в отчете Access

  • Статья
  • Применяется к:
    Access 2007

Средний. Требуются базовые навыки макроса, программирования и взаимодействия.

Эта статья относится к базе данных Microsoft Access (.mdb или ACCDB) и к проекту Microsoft Access (ADP).

Сводка

При изменении свойств раздела отчета можно создать отчет, который разбивает страницу для каждой новой записи в группе, а затем сбрасывает номер страницы отчета. Например, отчет о продажах сотрудников по странам или регионам в образце базы данных Northwind.mdb разработан с помощью этой функции.

Дополнительная информация

Примечание.

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

Метод 1. Номер страницы отображается в нижнем колонтитуле страницы

  1. Запустите Access, а затем откройте пример Northwind.mdb базы данных или пример проекта NorthwindCS.adp.

  2. Откройте отчет Продажи сотрудников по странам или регионам в режиме конструктора.

  3. Щелкните раздел Заголовок страны или региона , щелкните правой кнопкой мыши свойство Формат и выберите команду Сборка.

    Изучите процедуру события.

  4. Щелкните раздел Страна или регион Нижний колонтитул , щелкните правой кнопкой мыши свойство On Format и задайте для свойства ForceNewPage значение After Section.

Способ 2. Номер страницы отображается в заголовке страницы

  1. Запустите Access, а затем откройте пример Northwind.mdb базы данных или пример проекта NorthwindCS.adp.

  2. Откройте отчет Продажи сотрудников по странам или регионам в режиме конструктора.

  3. Щелкните раздел Страна или регион нижний колонтитул , щелкните правой кнопкой мыши свойство Форматировать и выберите команду Построить.

  4. Щелкните Построитель кода и нажмите кнопку ОК.

  5. В окне Код введите: Page = 0

  6. Измените событие OnFormat заголовка Country/Region, чтобы свойство Page не было задано в этом событии. Для этого введите апостроф перед строкой с номером начальной страницы.

    Код будет выглядеть примерно так:

    Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
' Set page number to 1 when a new group starts.
    ' Page = 1
End Sub

  7. Щелкните раздел Заголовок страницы , задайте для свойства Height значение 0,25, а затем задайте для свойства Back Color значение 8421504.

  8. Переместите элемент управления с именем Номер страницы в заголовок страницы.

    В элементе управления Номер страницы отображается номер страницы.

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