Side antal på rapport

I menuen Indsæt->Sidenumre i rapportdesign, kan du selv vælge dette format.

Ellers indsætter du bare en tekstboks med denne tekst i:
="side " & [Page] & " af " & [Pages]

sorry, celal! Jeg var lidt for hurtig. Jeg forstod ikke helt det med, at det kun skulle være inden for gruppen....

Nu er jeg også så kedelig igen, men jeg tror, at jeg ville skrive en rapport ud pr. gruppe.

Sidetallet kan ordnes, men jeg kan ikke finde ud af totalsider.

Lav en ny makro, kald den eventuel ”Sideskift”

Ved handling vælg: angiv værdi
Ved Element skriv: [Page]
Ved udtryk skriv  : 1

Luk og gem

I din rapport vælg gruppehoved og fod
I gruppefoden vælger du  tvungen sideskift = Efter sektion
I gruppehovedet vælg hændelser ved formatering der vælger du din makro

Nu starter den med side 1 på alle grupper

JEg tror ikke, at det er muligt at beregne antallet af sider pr gruppe. Derfor vil jeg også foreslå at skrive hver gruppe ud for sig...

http://www.mvps.org/access/reports/rpt0013.htm

Kabbak: hvad så efter jeg har lavet dette? Hvordam får jeg så selve side talet på siden?

Lav en tekstboks  i sidefoden, skriv: ="Side " & [Page] i den.
Så skulle sidetallet virke

proaccess: Den der hedder Me!Salesperson, skal jeg have lavet om til min egen control (Me!Kundenr), men jeg får en fjle der siger "Microsoft Access  kan ikke finde feltet 'kundenr', der referes til i udtrykket."
Hvad gøre jeg galt? jeg kopiret koden over til min access

Okay, har fundet det felt som jeg skal bruge. men nu får jeg en anden fel, "Kørselsfejl 438, objektet understøtter ikke denne type egenskab eller metode"
og den stopper på denne linie: GrpNameCurrent = Me!Kundenr

Okay, nu kan jeg godt køre det. men der kommer ikke noget på min Tekstfelt i sidefoden...

Min kode ser således up nu....

Private Sub Sidefod_Format(Cancel As Integer, FormatCount As Integer)

Dim GrpArrayPage(), GrpArrayPages()
Dim GrpNameCurrent As Variant, GrpNamePrevious As Variant
Dim GrpPage As Integer, GrpPages As Integer
Dim i As Integer
  If Me.Pages = 0 Then
    ReDim Preserve GrpArrayPage(Me.Page + 1)
    ReDim Preserve GrpArrayPages(Me.Page + 1)
    GrpNameCurrent = Me!Kunde
    If GrpNameCurrent = GrpNamePrevious Then
        GrpArrayPage(Me.Page) = GrpArrayPage(Me.Page - 1) + 1
        GrpPages = GrpArrayPage(Me.Page)
            For i = Me.Page - ((GrpPages) - 1) To Me.Page
                GrpArrayPages(i) = GrpPages
            Next i
    Else
        GrpPage = 1
        GrpArrayPage(Me.Page) = GrpPage
        GrpArrayPages(Me.Page) = GrpPage
    End If
  Else
    Me!ctlGrpPages = "Group Page " & GrpArrayPage(Me.Page) & " of " & GrpArrayPages(Me.Page)
  End If
  GrpNamePrevious = GrpNameCurrent

End Sub

Du har vel husket at få de øverste linier kopieret med over også...

Dim GrpArrayPage() As Long, GrpArrayPages() As Long
Dim GrpNameCurrent As Variant, GrpNamePrevious As Variant
Dim GrpPage As Long, GrpPages As Long

Grunden til at der IKKE kommer noget ud nu er at din rapport ikke kommer gennem begge gange formattering, dette klares ved at sætte endnu et felt i sidefoden, som bare indeholder =[Pages] (feltet behøver ikke være synligt)

Dette tvinger koden igennem!

okay, nu får jeg en anden fejl:
"Kørselsfejl 9, Indekset er uden for området"

Me!ctlGrpPages = "Group Page " & GrpArrayPage(Me.Page) & " of " & GrpArrayPages(Me.Page)

Du skal have de 3 første linier med dimensionering af variabler uden for din Sidefod_Format-sub...

som i:

Dim GrpArrayPage(), GrpArrayPages()
Dim GrpNameCurrent As Variant, GrpNamePrevious As Variant
Dim GrpPage As Integer, GrpPages As Integer

Private Sub Sidefod_Format(Cancel As Integer, FormatCount As Integer)
Dim i As Integer
  If Me.Pages = 0 Then
    ReDim Preserve GrpArrayPage(Me.Page + 1)
...

Sub'en bliver kørt genne 2 gange, og Access skal kunne huske værdierne mellem disse...

jeg får en fejl i : Dim GrpArrayPage(), GrpArrayPages()
når jeg sætter dem uden for Sub som du anbefaler. Skal de ikke være ærklæret med en type?

Nogen som kan fortølle mig hvorfor jeg ikke kan bruge arrays?

Er lige vendt tilbage til opgaven. Jeg kan stadig ikke løse det ned den kode som du har givet mig

Lukketid.