Variabel antal af Labels

Du kan altid lave et from x=1 to x=me.antkopi loop!~)

Dim i As Integer
Dim AntKopi As Integer
If IsNull([Antal]) = -1 Then
MsgBox "Du har ikke indtastet antal eksemplarer."
Exit Sub
End If
AntKopi = [Antal]
If Antalex <= 1 Then
MsgBox "Du har ikke indtastet antal eksemplarer."
Exit Sub
End If
For i = 1 To AntKopi
DoCmd.OpenReport "Rapport2", acNormal, "", ""
Next i

Hvis du har en tabel, hvor der er rapportnavn og antkopi, så kan du lave en kombiboks på disse 2 variable. Så skjuler du antkopi ved at sætte bredden på kolonne 2 til 0. Så kan du have et skjult felt, som hedder antal og et som hedder navn. Så bliver koden:

Private sub NavnKombiboks_afterupdate()
me.navn=me.navnkombiboks.column(0)
me.antal=me.navnkombiboks.column(1)
end sub

Så laver du en print knap, som siger:

Private sub PrintKnap_click()
dim x
for x=1 to me.antal
docmd.openreport me.navn, acnormal
next x
end sub

spq:  hvor laver jeg den henne ?
Jeg gætter på at jeg skal have noget VisBas startet op ?


Mugs: Jeg skal ikke indtaste antallet af kopier.
Men for at den For-Next løkke skal virke, så skal jeg jo ha ´plukket' værdien af cellen [AntKopi] og det kan jeg ikke.

Har prøvet Me.AntKopi og Me.AntKopi.Value og får ikke andet end en RuntimeError 2465 ;o(

Du skal have en formular i programmet, hvor du har tænkt dig at skrive ud fra.

spq:
Min tabel indeholder flg. variabler:
AntKopi, rapport,pris1,pris2,moms,diverse

rapport & diverse er begge notater, mens AntKopi er integer, og de 3 sidste er currency

Alle cellerne bliver brugt i selve rapporten på nær AntKopi som skal bruges til og definere hvor mange kopier der skal være af selve rapporten.

Ok, indsæt en komboboks i den tabel du ønsker at skrive ud fra...

Under egenskaber for boksen vælger du feltet rækkekilde og trykker på de 3 prikker ved siden af feltet.

Hændelsesproceduren på knappen er en standard som jeg ikke har fiflet meget ved.

Private Sub Kommandoknap16_Click()
On Error GoTo Err_Kommandoknap16_Click

; For i = 1 to Me.AntKopi
    DoCmd.OpenReport "Rapport", acPreview
; Next i

Exit_Kommandoknap16_Click:
    Exit Sub

Err_Kommandoknap16_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap16_Click
   
End Sub

Ja, det skal jo så ikke være acPreview, men acNormal

For i = 1 to Me.AntKopi
    DoCmd.OpenReport "Rapport", acNormal
Next i

Men virker det?~)

grunden til jeg bruger AcPreviev er for ikke og skrive ud mens jeg tester!
Lidt meget spild af papir!  ;o)

Prøv:

Dim i
For i = 1 to Me.AntKopi
msgbox me.rapport
    'DoCmd.OpenReport "Rapport", acPreview
Next i

~ Method or Data member not found ~  ;o(

Denne metode er den som jeg selv har forsøgt(og et par stykker som ligner), men alle desværre uden anden resultat end Compile error og det som er værre!  ;o/

Den stopper ved Me.AntKopi hver gang.. [IRRITATION ON]

Den vil også kun virke hvis du står i posten!~)

Dvs. at den formular du står i, har tabellen som record source.

øhh, står i posten ?
(Undskyld, men jeg er autodefekt til det her)

Nåee, formularen har ingen records i sig, det er en ren menu med ca. 15 knapper  ;o)

Ok, så er det eks. komboknappen eller et inputfelt..

eller er det en knap for hver rapport?~)

Jeg har én knap som der skal udskrive 15 forskellige rapporter, baseret på 15 rows i tidligere nævnt tabel. (Kan dog variere lidt op og ned, men det er jo ligegyldigt i denne sammenhæng)

Ved siden af knappen indsætter du en komboboks..

Nu satte jeg min menu form op med kilde tilselve tabellen, og nu finder den Me.AntKopi fint, men der kommer ikke noget print ud.

Hvis du skrev:

For i = 1 to Me.AntKopi
    DoCmd.OpenReport me.rapport, acNormal
Next i

så ville der komme noget, men det vil altid være den første post...

Du kunne sådan set bare indsætte tekstfeltet Rapport og så bruge navigationsknapperne til at vælge!~)

igen husk:

Dim i

HA HA HA, nu skriver den alle 15 rapporter ud 5 gange. (Første rapport har AntKopi=5)

Ok, hvad har du løst til at gøre!~)

Så tager vi den derfra..

Kunne man lave noget i denne stil ?

For Row=1 to EndOfRecord
  Rec = NextRow
  For i = 1 to Rec.AntKopi
    DoCmd.OpenReport me.rapport, acNormal
  Next i
Next Row

Bad English, I know!  men du forstår sikkert hvad jeg mener ??

Jeg tror lige vi skal slå koldt vand i blodet....

Jeg mener stadig at en komboboks, som forklaret i 13/10-2006 13:07:46 er den bedste løsning!~)

Ha Ha:

(Undskyld, men jeg er autodefekt til det her)

Den bemærkning alene er 200 point værd.

Men med en kombobox, så skal jeg (og andre) sidde og skifte mellem de 15 rapporter, og klikke på PRINT for hver indlæg ??  right ?

Ja, vil du bare have hele molevitten ud på en gang?~)

ja, uden dikkedarer, men hver rapport skal ud i forskellige mængder fra dag til dag, ellers havde jeg bare hardcodet det største antal, og så stået og frasorteret en masse print (Lidt som jeg gør i dag)  ;o)

Jeg leger lidt med en lille ting, men det vil ikke rigtig virke!

Dim i
Dim rs As Recordset
Set rs = db.OpenRecordset("Rapporter", dbOpenDynaset) 'Snapshot)
If Not rs.EOF Then
    rs.MoveFirst
    Do
      For i = 1 To Me.AntKopi
        DoCmd.OpenReport "Rapport", acNormal
    ;  MsgBox "test", vbInformation
      Next i
      rs.MoveNext
    Loop Until rs.EOF
End If

Dim i as integer
Dim r as DAO.Recordset
Set r = me.recordset
Do Until r.EOF

For i = 1 to Me.AntKopi
    DoCmd.OpenReport me.rapport, acNormal
Next i

r.Movenext
Loop

Dette kræver selvfølgelig at du stadig har tabellen sat på som kilde til formularen..

Type Mismatch (Jeg kører kun Access 2000)
Den kunne ikke godtage Dim r as DAO.Recordset
så jeg ændrede den til Dim r as Recordset

Ved ikke hvor meget det betyder..

Men nu sker der da andet end Compile Error!  ;oD

Du mangler nok en reference til DAO

I VisualBasic gå i værktøjer, referencer og vælg Microsoft DAO 3.6 Objekt Library eller det, som kommer nærmest...

DAO var ikke slået til, det er den nu, og DAO linien er rettet i koden, og programmet restartet..

Nu gik den helt grasat!

Først skrev den alle rapporterne ud 5 gange, derefter lavede 3 kopier af dem alle, og så resatte jeg printeren!  ;o)

SPQ: Jeg tror nok du har hjulpet mig en del videre, nu gider jeg ikke mere i dag, nu begynder koden og drille for meget til at jeg kan tage den seriøst!  ;o/

Mange tak for hjælpen..

Mvh, Michael.

Altså hvis jeg laver en tabel, med 2 felter, nemlig rapport og antkopi, og bruger tabellen til Record Source på formularen. Herefter en printknap med koden:

Private Sub UdskriftsKnap_Click()
Dim r As DAO.Recordset
Set r = Me.Recordset
Do Until r.EOF
Dim i As Integer
For i = 1 To Me.AntKopi
MsgBox Me.Rapport
Next i
r.MoveNext
Loop
End Sub

Så virker det altså!~)

Held og lykke, go' weekend....

Ja den har jeg også lige prøvet, men jeg tror at det er fordi selve rapporten linker til samme tabel, og den så skriver alle felterne ud.

men måske man bare skal lege lidt med

DoCmd.OpenReport me.rapport, acNormal,,ID 

for låse den fast til kun en enkelt record!


Mange tak for hjælpen..