Line number

[TheRealDeal]

Is it possible to check for a line number within a report and know if a section is repeating to another page? In my dBase days, I would be able to check the line number before printing a section's details to determine if I would need a "Continue..." statement before concluding the section another page.

 

[THWatson]

TheRealDeal
Would this work for you?

1. Put a Label "Continued..." in the Page Footer.
2. In the OnFormat event for the detail section put

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.FormatCount > 1 Then
Me.YourLabelName.Visible = True
Else: YourLabelName.Visible = False
End If
End Sub

Tom

 

[TheRealDeal]

I did what you said and it is still not displaying. The Formatcount - what causes this variable to increment?

 

[THWatson]

Okay, I'll go back to the drawing boards. It appears that Access increments a section's FormatCount property each time it executes the Format event for that section, and then it resets the FormatCount property to 0.

I have something somewhere that does exactly what you want. I'll find it.

Tom

 

[THWatson]

Here's a link that shows one method to do what you want.

http://support.microsoft.com/?kbid=207624

I'm convinced there's an easier way, without using a module. I have fooled around with the WillContinue property but I can't get it to work out the way it should.

If I come up with something more, I'll post it.

Tom

 

[THWatson]

For example, the following, according to my logic, should work...

1. Place a "Continued..." label in the page footer
2. In the Detail section OnFormat event, put
If Me.Section(acDetail).WillContinue = True Then
Me.Labelxx.Visible = True
Else: Me.Labelxx.Visible = False
End If

What happens is that it prints "Continued..." on the second page of the report, not the first.

Arghhh!

Tom

 

[THWatson]

Actually, this works, using the HasContinued property, but it might not be exactly what you want...

1. Put label "Continued" in page footer section
2. In the Detail section's OnFormat event, put
If Me.Section(acDetail).HasContinued = True Then
Me.YourLabelName.Visible = True
Else: Me.YourLabelName.Visible = False
End If

Tom