group header "continued on next page"

[Noel2]

I would like to get my group header to produce a message stating continued on next page whenever the group continues onto the next page. I know how to get continued to show up in the group header when it repeats on the next page, but not how to put in "continued on next page". What I have already setup is an unbound text box in the group header section and it is being populated based on the following in the OnFormat Event of the section header:

If ? Then
Me.Text42 = Me.Aisle & " (continued on next page)"
Else
Me.Text42 = Me.Aisle
End If

Please let me know if you have any suggestions.

Thank you,
Noel

 

[Remou]

An advanced search on 'continued' will get a few answers.

 

[Noel2]

Thanks Remou, but the issue is not addressed in any of those posts. It appears that the issue that I already know how to fix is addressed where you can set it up to look like the following:

group header1
'
'
group header2
'
-----end of page-----
group header2 (continued)
'
'
'

But, what I am trying to do is much more like this and I can't get it figured out:

group header1
'
'
group header2 (continued on next page)
'
'
-----end of page-----
group header2
'
'
'

Please let me know if you can help me with this.

Thank you so much!
Noel

 

[Remou]

Ok. This is a somewhat twisted solution. I set it up with some scrap data. The table is Members, Code is the key field and Username is the group. Here is the code, you will need to adjust:

Option Compare Database
Dim rs As DAO.Recordset
Dim strPageVars

Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
If InStr(strPageVars, Str(Page)) > 0 Then
    Me.txtCont.Visible = True
Else
    Me.txtCont.Visible = False
End If
End Sub

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
rs.FindFirst "Code='" & Me.Code & "'"
rs.MoveNext
If rs.EOF Then
    Exit Sub
End If
If rs!Username = Me.Username Then
    strPageVars = strPageVars & Str(Page) & ","
End If
End Sub

Private Sub Report_Open(Cancel As Integer)
Set rs = CurrentDb.OpenRecordset("Select * From Members Order By Username, Code")
End Sub