how to unvisible textbox in pagefooter in last page? 1

[Fekri]

Hi,

I should not show a textbox in pagefooter when the report is in last page.

how is it possible?

thanks
Ali

 

[Remou]

You can check the page count.

[tt]Me.txtText.Visible=(Page<Pages)[/tt]

 

[Fekri]

Thanks, That's ver well.

another request:
How to unvisible the textbox in pagefooter when the groupfooter printed and groupheader want to start in new page again?

Ali

 

[Remou]

Which page? The one with the groupfooter or the one with the groupheader?

 

[Fekri]

the one which is in groupfooter.

because the group is finished and no need any information in the pagefooter.

thanks
Ali

 

[Remou]

Here is some code:

'This is the top of the report module.
Option Compare Database
Dim blnPrint

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
'This turns the textbox on.
    blnPrint = True
End Sub

Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)
'This is the footer that you want to turn the textbox off.
     blnPrint = False
End Sub

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
     Me.txtText.Visible = Page < Pages And blnPrint
End Sub

 

[Fekri]

Thanks a lot,

But I'm surprise how this code is working!!
I used this code and it's perfect.
It is the exactly what I need.

But can you explain more about this code how it's workig?

thanks
ali

 

[Remou]

It works because blnPrint is false when the page footer prints, unless a line of detail prints after the group footer.