Add Continue to Top of Page 1

[JasGun]

I have a report that has a grouped header.
If all the data doesn't fit on one page on the next page I would like a label to show "(Continued)" at the top of the page, until, the next grouped header and so on. Can anyone help?

 

[ghubbell]

Hi JasGun,
Check out this Thread703-58935 for some ideas on how to solve your problem. Although not exactly identical, the situation and requirements are similar enough to warrant a look. I think with a little tweaking you'd be on your way! Gord
ghubbell@total.net

 

[jjlw]

I've just had the same problem and solved it for the second time (I couldn't remember how I did it a couple of years ago). I thought it might involve onRetreat and setting flags and suchlike, but it's much easier than that. If the Access Help gave an example with the WillContinue topic you might almost say this is how they intended it to be done...

To make 'continued' appear on pages where the detail records continue from the previous page, and not on a page where a new group of details starts the page:

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
If Me.Section("detail&quot.WillContinue = True Then
Me.txtContd.Visible = True
Else
Me.txtContd.Visible = False
End If
End Sub

where txtContd is a textbox saying 'continued...' . In this case it's a textbox rather than a label because I also want it to say which group is being continued: the control source of the textbox is

=[TyreMake] & " contd..."

which gives 'Michelin contd...', for example.

Hope this helps someone one day


Joe

 

[danvlas]

So there is a reason for HasContinued not to work...WillContinue...wow, Englih Tenses

Have a nice star from me on this one...



Daniel Vlas
Systems Consultant
danvlas@yahoo.com

 

[TheRealDeal]

I am trying to follow your emails and utilize them in my report. It just will not work for me. I believe I have tried every combination, to no avail.

 

[Gazonice]

Hi,

Try this snippet of code in an unbound text box on your report:

=IIf([Pages]>1,IIf([Page]=[Pages],"","continued on next page..."),"")

Regards,

Garry