[AccessD] Count pages in a report

Joe,

Here's an example of how to put no page display on page 1
(contained in control Text28 which has it's control source :
="Page " & [Page] & " of  " & [Pages]
)
and page display on rest of report pages

Regards
Borge

<code>
Private Sub PageFooter_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo ErrorHere

    If Me.Page = 1 Then
        Me.Text28.Visible = False
    Else
        Me.Text28.Visible = True
    End If


ErrorExit:
    Exit Sub
ErrorHere:
  Select Case Err.Number
    Case Is = 0
    Resume Next
   'case is = ??
   'msgbox "Enter some error text message here"
    Case Else
    MsgBox "Error in PageFooter_Format " & ": " & Err.Number & " " &
Err.Description
  End Select
Resume ErrorExit
<code>




----- Original Message ----- 
From: "Joe Hecht" <jmhla at earthlink.net>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Tuesday, November 30, 2004 1:51 PM
Subject: [AccessD] Count pages in a report


> Anyone know how to do it?
>
> Working on Purchase orders. If page count > 1 then I want to put page
count
> on all pages. If page count = 1 then no page count needs to be displayed.
>
> JOE HECHT
>
> LOS ANGELES CA
>
> jmhla at earthlink.net
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com


---
Outgoing mail is certified Virus Free by AVG Anti Virus System.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004