Er zijn 3 reacties in dit onderwerp

[visserkevis]

Ik heb in access een database (met bestellingen) gemaakt.
Via onderstaande code tracht ik ervoor te zorgen dat per bestelling een juist aantal etiketten wordt geprint.
Het aantal prints komt uit de query (KeukenWarmKoudPatat) zelf.
Probleem is dat enkel de éérste record bepaald hoeveel prints er moeten komen, terwijl ik dit voor elke record opnieuw wil doen.
Ik hoop dat ik het duidelijk genoeg maak. 'k ben dan ook een beginner.

Visual Basic Code:

 'Keukenbon afdrukken als dat geselecteerd is met het keuzerondje
If chkKeuken = True Then
'Alleen afdrukken als er Keukenproducten bij zijn.
If DCount("*", "KeukenWarmKoudPatat") = 0 Then
MsgBox "Er staan geen Keuken bereidingen op deze bon", vbInformation
Else
'Bepalen hoeveel etiketten er moeten worden afgedrukt i.f.v aantal bestelde,
'en aantal op schotel
Dim IntAantal As Integer
Dim IntHoeveelheid As Integer
Dim SngPrints As Single
Dim IntAfronding As Integer
Dim bytkeuze As Byte

IntAantal = DLookup("[Aantal op schotel]", "KeukenWarmKoudPatat")
IntHoeveelheid = DLookup("[Hoeveelheid]", "KeukenWarmKoudPatat")
SngPrints = (IntHoeveelheid / IntAantal)
'Naar boven afronden
IntAfronding = -Int(-[SngPrints])

If IntAfronding > 5 Then
bytkeuze = MsgBox("Er gaan " & IntAfronding & " labels geprint worden! Verder gaan?", vbYesNo)

If bytkeuze = vbNo Then GoTo weggaan
End If

DoCmd.OpenReport "KeukenWarmKoudAardappel", acPreview
DoCmd.PrintOut acPages, , , , IntAfronding
DoCmd.Close acReport, "KeukenWarmKoudAardappel"
End If

[Damic]

Aantal kleine opmerkingen
* gebruik de vb tags bij code
* heb ook de code een beetje aangepast, ik vermoed dat deze code in een sub staat, dus kan het korter

Visual Basic Code:

 'Keukenbon afdrukken als dat geselecteerd is met het keuzerondje
If chkKeuken = false then exit sub 'waarom door heel de sub of functie gaan als je hier eigenlijk al terug wilt

'Alleen afdrukken als er Keukenproducten bij zijn.
If DCount("*", "KeukenWarmKoudPatat") = 0 Then
MsgBox "Er staan geen Keuken bereidingen op deze bon", vbInformation
exit sub 'zelfde niet heel de sub doorlopen als je er toch al uit wilt
end if

'Bepalen hoeveel etiketten er moeten worden afgedrukt i.f.v aantal bestelde,
'en aantal op schotel
Dim IntAantal As Integer
Dim IntHoeveelheid As Integer
Dim SngPrints As Single
Dim IntAfronding As Integer

IntAantal = DLookup("[Aantal op schotel]", "KeukenWarmKoudPatat")
IntHoeveelheid = DLookup("[Hoeveelheid]", "KeukenWarmKoudPatat")
SngPrints = (IntHoeveelheid / IntAantal)
'Naar boven afronden
IntAfronding = -Int(-[SngPrints])

If IntAfronding > 5 then
'je zou deze 2 nog kunnen combineren maar weet niet of acces al andalso ondersteund
if MsgBox("Er gaan " & IntAfronding & " labels geprint worden! Verder gaan?", vbYesNo) =vbno then exit sub
end if

DoCmd.OpenReport "KeukenWarmKoudAardappel", acPreview
DoCmd.PrintOut acPages, , , , IntAfronding
DoCmd.Close acReport, "KeukenWarmKoudAardappel"

Mijn vraag: wat is DoCmd?

[visserkevis]

DoCmd is een object to run Microsoft Office Access actions from Visual Basic

[Damic]

Ha dat is interessant ( https://docs.microso....docmd.printout )

Maar als je meerdere records wilt afrinten zul je een do loop of while moeten doen om door je hele ganste record set te lopen