Avatar billede ra1101 Nybegynder
25. april 2003 - 10:15 Der er 27 kommentarer og
1 løsning

Automatisk rutine ifbm. udskrift af rapport

Jeg har en database med 844784 poster i.
De er fordelt således at der er 2854 poster til hver af de 296 kunder, som skal have denne "prisliste" som det er.

Jeg har lavet en forespørgsel som udvælger de felter jeg skal bruge, og dernæst lavet en rapport som udskriver 1 prisliste til kunden.

Jeg har en tabel der indeholder de 296 kunder ved siden af.

Jeg kan godt lave det sådan at forespørgslen kommer og spørger mig om hvilken kunde der skal udskrives prisliste til.
MEN....det jeg gerne vil kunne er at, Access selv slår op i min kundetabel, og så udskriver 1 prislite til hver af de 296 kunder.
Prislisten skrives ud i en "PDF" fil og trykkeriet skal have 1 fil pr. prisliste - derfor dette!!!
Avatar billede mugs Novice
25. april 2003 - 10:19 #1
M.h.t "PDF" er jeg på bar bund.

Men for at skrive 1 prisliste ud til hver kunde, ville jeg umiddelbart lave en rapport der er grupperet på et kundefelt. Derefter vil jeg i gruppefoden indsætte et sideskift.

Brug evt. Guiden Rapport, der tilbyder grupperinger.
Avatar billede mugs Novice
25. april 2003 - 10:20 #2
Du kan evt. også indsætte en gruppering i rapportens designvisning ved at finde ikonet for "Gruppering og Sortering".
Avatar billede ra1101 Nybegynder
25. april 2003 - 10:24 #3
mugs> Dette HAR jeg allerede lavet, og det fungerer også, MEN det danner jo én stor fil når jeg skriver den ud, uanset og det er til "PDF" eler til alm. print. Sidenummereringen går også helt galt.

Det skulle gerne fungere sådan at Access udskriver 1 rapport af gangen!!!!
Avatar billede mugs Novice
25. april 2003 - 10:31 #4
DoCmd.OpenReport "rapportnavn", acViewNormal, "", "[Forespørgsel1]![kundenr]=""1""", acNormal
DoCmd.OpenReport "rapportnavn", acViewNormal, "", "[Forespørgsel1]![kundenr]=""2""", acNormal

O.s.v.

Under forudsætning af, at kundenr. er tekst
Avatar billede mugs Novice
25. april 2003 - 10:36 #5
Hvis kundenr er numerisk, skal det se sådan ud:

DoCmd.OpenReport "rapportnavn", acViewNormal, "", "[Forespørgsel1]![undenr]=1", acNormal
Avatar billede hcm Nybegynder
25. april 2003 - 10:43 #6
Er det så ikke bare at lave en løkke, der løber alle kunder igennem, printer til pdf en ad gangen?
Avatar billede ra1101 Nybegynder
25. april 2003 - 10:46 #7
hcm> Jo, det er præcist det jeg gerne vil, men ved ikke hvordan!!!!!
Avatar billede hcm Nybegynder
25. april 2003 - 10:58 #8
Som jeg laver det er det noget intermistisk...
Jeg ville starte med en forespørgsel som laver en tabel over unikke kundenumre. Derefter ville jeg lave via en form, en rutine noget i stil med

Dim rst As Recordset
Dim kundenummer As String

Set rst = CurrentDb.OpenRecordset("SELECT [kundenummer] FROM [kundenummertabel] ")

While Not rst.EOF
    kundenummer = rst![kundenummertabel]
    DoCmd.OpenReport "rapportnavn", acViewNormal, "", "[Forespørgsel1]![kundenr]= kundenummer", acNormal
    rst.MoveNext
Wend

Jeg kan ikke garantere for at dette virker lige umiddelbart, men noget i den retning... Du kan evt. starte procduren med at genskaber tabellen med unikke kundenumre, så du er sikker på, at den altid indeholder de rigtige.
Avatar billede hcm Nybegynder
25. april 2003 - 11:03 #9
Du skal så aktivere koden via en knap på din form. Jeg ved ikke lige hvor meget du kender til VBA osv, så beklager hvis det er for indlysende
Avatar billede ra1101 Nybegynder
25. april 2003 - 11:06 #10
hcm> Jeg kender desværre intet til VBA, så du må gerne skære det mere ud i pap, hvis du kan!!!!!
Avatar billede hcm Nybegynder
25. april 2003 - 11:14 #11
Du opretter en formular. På den laver du en knap. Så klikker du på ikonet for at komme ind i kode-modulet. På On-click for knappen indsætter du koden ovenfor. Du skal bare ha' en tabel først der hedder kundenummertabel, med et felt der hedder kundenummer. Denne tabel indeholder så alle kundenumrene.
Når så du klikker på knappen på din form/ formular, løber access alle posterne igennem og udskriver en rapport per kundenummer.
Jeg kan prøve at lave et eksempel til dig, men jeg har desværre ikke tid før mandag aften. Er det noget der haster?
Avatar billede ra1101 Nybegynder
25. april 2003 - 11:18 #12
hcm> Tusind tak, for den meget udførlige forklaring. Jeg tror jeg udfra dette prøver mig lidt frem, og er fortrøstningsfuld.
Nej, det haster ikke meget, så vi kan jo lige se tiden an på mandag, om jeg har fundet ud af det. Endnu engang tak!!!
Avatar billede mugs Novice
25. april 2003 - 11:31 #13
ra1101 > hvad er din e-mail?
Avatar billede hcm Nybegynder
25. april 2003 - 11:32 #14
Jamen selv tak da. God fornøjelse. Hvis du får problemer, er jeg som sagt tilbage mandag.
Glem bare det med en ny tabel, du har selvfølgelig dine stamdata i en tabel allerede... Du kan evt at sætte en betingelse ind i din rapport, der gør at der ikke bliver udskrevet nogen liste, hvis der ikke er poster.
Avatar billede ra1101 Nybegynder
25. april 2003 - 11:33 #15
mugs> rean@hillers.dk
Avatar billede mugs Novice
27. april 2003 - 11:52 #16
Eksempler på løkker tilsendt, bl.a. en løkke der gennemløber alle poster i tabellen, og udskriver en rapport for hver unik post.
Avatar billede ra1101 Nybegynder
28. april 2003 - 07:52 #17
mugs> Jeg vil blot lige sige tak for dine fremsendte eksempler. Jeg er først lige mødt på arbejde igen, så jeg har ikke kigget på dem endnu, men regner med at få tid i løbet af dagen.
Avatar billede hcm Nybegynder
30. april 2003 - 09:48 #18
Mugs > Kan du sende en kopi til mig også, jeg skal faktisk lave noget meget tilsvarende, så kunne jeg måske få lidt inspiration fra dig også. Du kan sende til hcm@ofir.dk.
Avatar billede hcm Nybegynder
02. maj 2003 - 09:46 #19
ra1101 > Har du fået det til at virke??
Avatar billede mugs Novice
02. maj 2003 - 14:12 #20
hcm > Har du?
Avatar billede hcm Nybegynder
05. maj 2003 - 16:05 #21
Ja, mit fungerer fint. Tak for basen. Jeg havde dog fået mit til at fungere før jeg kunne åbne din. Ingen XP, og jeg sad hos en kunde...
Avatar billede hcm Nybegynder
09. maj 2003 - 11:55 #22
Lukketid??
Avatar billede mugs Novice
27. maj 2003 - 17:44 #23
ra1101 > Nu er det på tide at spørgsmålet lukkes. Er dit problem blevet løst?
Avatar billede hcm Nybegynder
10. juni 2003 - 13:15 #24
Er vi ikke ved at være over sidste salgsdato her??
Avatar billede ra1101 Nybegynder
10. juni 2003 - 14:15 #25
Jo, sidste salgsdato er vist nok overskredet lidt vel rigeligt, det må i sgu undskylde, men jeg har været hængt op med andre opgaver.

Det er dog ved at være tid, da jeg skal være færdig inden 1/7!!!!!!

Ville i kunne acceptere en uges tid endnu?????
Avatar billede mugs Novice
10. juni 2003 - 16:49 #26
Jeg forlænger gerne holdbarheden.
Avatar billede hcm Nybegynder
16. juni 2003 - 14:25 #27
Ingen ballade fra mig :-) Der er bare (for) mange, der aldrig får lukket.
Avatar billede ra1101 Nybegynder
17. august 2004 - 07:36 #28
Undskyld jeg ikke har fået lukket spørgsmålet før nu!!!!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester