时间戳

首页 > 解决方案 > 访问：隐藏部分第一页上的标题最初可以工作......然后失败。有什么想法吗？

vba - 访问：隐藏部分第一页上的标题最初可以工作......然后失败。有什么想法吗？

问题描述

我正在使用基于此处和其他地方描述的广泛使用方法的代码来抑制 Access 2016 中报告部分的第一页上的页眉。该代码适用于前三个部分，但随后删除了第二页上的页眉而不是第一个并获取部分页数错误，包括总页数中以下部分的第一页。如果我消除 .visible=False 语句，则部分页码很好，所以感觉删除标题部分会以 Access 未调整的方式弄乱分页？有没有其他人遇到过这个问题，如果有，有解决方案吗？

提前谢谢了

西蒙

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    Dim i As Integer
    If Me.Pages = 0 Then
        ReDim Preserve GrpArrayPage(Me.Page + 1)
        ReDim Preserve GrpArrayPages(Me.Page + 1)
        GrpNameCurrent = Me!txtCompany_name2
        If GrpNameCurrent = GrpNamePrevious Then
            GrpArrayPage(Me.Page) = GrpArrayPage(Me.Page - 1) + 1
            GrpPages = GrpArrayPage(Me.Page)
            For i = Me.Page - ((GrpPages) - 1) To Me.Page
                GrpArrayPages(i) = GrpPages
            Next i
        Else
            GrpPage = 1
            GrpArrayPage(Me.Page) = GrpPage
            GrpArrayPages(Me.Page) = GrpPage
        End If
    Else

        Me!txtCheck = "Group Page " & GrpArrayPage(Me.Page) & " of " & GrpArrayPages(Me.Page)
        If GrpArrayPage(Me.Page) = 1 Then
                    Me.PageHeaderSection.Visible = False
            'Me.PageFooterSection.Visible = True

        Else
            Me.PageHeaderSection.Visible = True
            'Me.PageFooterSection.Visible = False
        End If
    End If
    GrpNamePrevious = GrpNameCurrent
End Sub

标签： vbams-accessreport

解决方案

推荐阅读