訪問報告：每頁詳細信息的第二頁上的頁眉

我想僅在第二頁上顯示標題，但只顯示PER記錄。新細節的第一頁不應該顯示頁面標題。訪問報告：每頁詳細信息的第二頁上的頁眉

本來我有下面的代碼

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

它顯示everyother頁面上的標題除了第一。

我希望標題在每個組的第一頁（但不包括第一頁）之後可見。

來源

2011-05-03 Rick

我創建了這個簡單的子程序，似乎可以做到這一點。基本上，每個頁面都會檢查組是否與以前一樣。如果不同，它假定它是組的第一頁，並且不顯示標題。

'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

來源

2011-05-06 14:17:33 Rick

在報告的排序和分組中，添加標識記錄的字段以及要分組的記錄。在該節標題的OnFormat事件中，執行與上面所做的相同的事情：RecordHeader.Visible =（Me.Page <> 1）

來源

2011-05-03 18:33:25 TheOtherTimDuncan

似乎沒有工作正確。 – Rick 2011-05-05 18:12:03

當你說「PER記錄」時，什麼標識每個記錄？仔細閱讀一下，如果記錄10從第15頁開始，你是不是試圖在第15頁顯示該記錄的標題，而是在第16頁顯示標題？ – TheOtherTimDuncan 2011-05-06 11:13:19

好吧，我添加了一個組。這正是我想要做的。 – Rick 2011-05-06 14:10:50

太複雜了。

第一個比較好！

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

來源

2012-11-15 15:17:30

訪問報告：每頁詳細信息的第二頁上的頁眉

回答

相關問題