Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Pagina nummering  (gelezen 23492 keer)

0 leden en 1 gast bekijken dit topic.

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Pagina nummering
« Gepost op: 21 januari 2013, 19:07:09 »
Hallo, Heb een rapport met 100 pagina's. In dit rapport staan de gegevens van tigtal personen. Een persoon krijgt 1 pagina uit het rapport en een ander persoon krijgt 2 tot 4 pagina uit dit rapport.
Nu wil ik op het rapport een paginanummering hebben. Voor iedere persoon moet de paginanummering met 1 beginnen en het vervolgblad van deze persoon moet dan nr. 2 krijgen. Bij de volgende persoon moet het paginanummer weer met 1 beginnen.
De ingebouwde nummering bij Acces telt alle pagina in het rapport van 1 tot laatste blad.
Gr. Math.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Pagina nummering
« Reactie #1 Gepost op: 21 januari 2013, 20:42:22 »
Wat je kan doen is een recordset aanmaken en het rapport in stukken afdrukken in een lus

zoiets als
'maak een database
dim db as Database
set db = currentdb
'Maak een recordset
dim rs as DAO.Recordset
set rs = db.OpenRecordset("select persoonID from tblPersonen")


'ga naar het eerste record
rs.MoveFirst

'Zolang er records zijn
while not rs.EOF
     'druk het rapport af voor deze persoon
     docmd.Openreport(naamvanrapport,...,where persoonID= rs(0))
     
     'ga naar de volgende persoon
     rs.movenext

wend


Dit is het principe en allicht zijn de commando's niet allemaal juist gespeld. Daarvoor zou het handiger zijn een echte database te hebben
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Pagina nummering
« Reactie #2 Gepost op: 21 januari 2013, 20:52:41 »
Hallo Dizzl,
bedankt voor de oplossing. Maar ik zou niet weten waar ik dit alles moet neerzetten in het prog. Ben echt een leek op dit gebied.

Gr. Math

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Pagina nummering
« Reactie #3 Gepost op: 21 januari 2013, 21:30:14 »
Zet je dan eens een database hier waar je dat in wilt doen? Als waren het maar een 3 tal personen.
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Pagina nummering
« Reactie #4 Gepost op: 22 januari 2013, 13:09:47 »
Hallo Dizzl,

heb 2 bestanden bijgevoegd
1 database
2 rapport
Gr. Math

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Pagina nummering
« Reactie #5 Gepost op: 22 januari 2013, 19:38:23 »
Bekijk dit even?
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Pagina nummering
« Reactie #6 Gepost op: 22 januari 2013, 20:11:03 »
Hallo Dizzl,
Wederom bedankt,

Waar moet ik nu de teller plaatsen, zodat iedere pagina genummerd wordt.
In het voorbeeld heeft klant 1, 2 pagina dus blad 1 krijgt dan "bladnr. 1" en pagina 2 krijgt dan "bladnr. 2".

Gr. Math

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Pagina nummering
« Reactie #7 Gepost op: 23 januari 2013, 19:34:29 »
Je rapport is wat slordig en daardoor komen er wat lege pagina's tussen. Maar de pagina nummering is er al.
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Pagina nummering
« Reactie #8 Gepost op: 24 januari 2013, 17:43:32 »
Dizzl,

Je bent geweldig. Kun je me ook uitleggen hoe je dit voor elkaar hebt gekregen.

Heel hartelijk bedankt.

Gr. Math

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Pagina nummering
« Reactie #9 Gepost op: 24 januari 2013, 17:51:57 »
In de rapportvoettekst heb ik een veld toegevoegd (Tekst130).
Bij de besturingselementbron heb ik ="Pagina " & [Page] & " van " & [Pages] staan

btw
De factuurkop met klantgegevens en zo zou ik in de rapport-koptekst zetten.

Datum/Aantal /opschrijving/prijs enz zou ik ik zoals nu het geval is in de paginakoptekst laten staan (dit voor het geval dat je factuur meerdere pagina's in beslag zou nemen)
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Pagina nummering
« Reactie #10 Gepost op: 24 januari 2013, 21:00:48 »
Dizzl,

Is het ook mogelijk om vanuit "frmafdrukken" het rapport automatisch per klant op te slaan in PDF, met als naam faktuurnummer en gekoppeld het klantnr. Voorbeeld 2012001-0001.
Dit is makkelijk als je de klant de faktuur per  e-mail wilt sturen.

2012001 = faktuurnr.
0001 = klantnummer.

Gr. Math


Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.181
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Pagina nummering
« Reactie #11 Gepost op: 24 januari 2013, 21:10:05 »
Hallo Math Reinders,

Citaat
s het ook mogelijk om vanuit "frmafdrukken" het rapport automatisch per klant op te slaan in PDF, met als naam faktuurnummer en gekoppeld het klantnr. Voorbeeld 2012001-0001.

ik ga me wel niet moeien in dit topic, want ik ben totaal leek in Access. Maar in Excel doe ik dit toch dagelijks met een eenvoudige macro, waarvan je de code mogelijk gemakkelijk kan integreren is in jou code: zie dit topic

Groeten,

:) SoftAid :)             


Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Pagina nummering
« Reactie #12 Gepost op: 25 januari 2013, 18:06:40 »
Wijzig de gebeurtenis Knop0 Klikken in
Private Sub Knop0_Click()
    Dim db As Database
    Dim rs As DAO.Recordset
   
    Set db = CurrentDb
    'stop alle klantnummers die een factuur hebben in rs
    Set rs = db.OpenRecordset("SELECT DISTINCT [Klant nr], FAKTUURNR FROM [T_PRINT FAKTUUR]")
   
    'ga naar het eerste recordset
    rs.MoveFirst
   
    'zolang er records zijn
    While Not rs.EOF
        'druk af voor deze klant
        Dim Bestandsnaam As String
        'Bestandsnaam = FActuurnummer + streepje + klantnummer + ".pdf"
        Bestandsnaam = rs(1) & "-" & rs(0) & ".pdf"
        DoCmd.OpenReport "AFDRUK FAKTUUR", acViewPreview, , "[Klant nr]=" & rs(0)
       
        'Om in het zelfde mapje als de database af te drukken zet je er CurrentProject.Path & "\" voor
        DoCmd.OutputTo acOutputReport, , acFormatPDF, CurrentProject.Path & "\" & Bestandsnaam & ".pdf", True
       
       
        'ga naar het volgende record
        rs.MoveNext
    Wend
   
End Sub
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Pagina nummering
« Reactie #13 Gepost op: 25 januari 2013, 20:46:55 »
Dizzl,

Geweldig hoe je het allemaal doet.

In het prog. slaat hij drie personen op en slaat ze op met faktuurnr en klantnr. (2013001-1.pdf)

Maar de inhoud van de PDF zijn allemaal de gegevens van klant een.

Gr. Math



Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Pagina nummering
« Reactie #14 Gepost op: 26 januari 2013, 16:20:02 »
Je moet idd in die lus je rapport afsluiten.
In bijlage de oplossing. De pdf bestanden worden gegenereerd in de map waar je deze database zet.

Even ter zijde:
Ik hoop dat je van plan bent deze tabel te splitsen in een tabellen klanten, Facturen, factuurdetails,...
Door je testnamen telkens klant1 te noemen is het wel verwarrend dat ondanks je een andere klant hebt, je dezelfde naam op de factuur ziet verschijnen.
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

 


www.combell.com