Отчет о доступе: заголовок страницы на второй странице на каждую деталь - PullRequest
Новая
       30

Отчет о доступе: заголовок страницы на второй странице на каждую деталь

3 голосов
/ 03 мая 2011

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

Первоначально у меня был следующий код 

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    Me.PageHeaderSection.Visible = Not (Me.Page = 1)
End Sub

Отображает заголовок на каждой другой странице, кроме первой.

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

Ответы [ 3 ]

5 голосов
/ 15 ноября 2012

Слишком сложно.

Первый был лучше! 

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

    Me.PageHeaderSection.Visible = Not (Me.Page = 1)
    Debug.Print "Page " & Me.Page & " Visible = " & Not (Me.Page = 1)

End Sub
0 голосов
/ 06 мая 2011

Я создал этот простой саб, который, кажется, делает свое дело.По сути, для каждой страницы проверяется, является ли группа такой же, как прежде.Если он отличается, предполагается, что это первая страница группы и заголовок не отображается. 

'At the top of the module window I created a "Module-Level Variables".
Dim current_group As Integer
Dim temp_group As Integer

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

    current_group = Int(Me.MyGroupID)

    If current_group = temp_inst Then
        Me.PageHeaderSection.Visible = True
    Else
        Me.PageHeaderSection.Visible = False
    End If

    temp_group = current_group    
End Sub
0 голосов
/ 03 мая 2011

В Сортировка и группировка для отчета добавьте поле, которое идентифицирует запись и которую вы хотите сгруппировать. В событии OnFormat этого заголовка раздела выполните то же самое, что вы делали выше: RecordHeader.Visible = (Me.Page <> 1)

...