report with select data printed more than once

J

jsr

Folks,
I posted this following message several weeks ago and
lost the reply sent by someone on how they though this
might work. Please help.

am using access 97.
I am trying to generate a report that allows you to print
a record more than once based on the value of another
field. HOWEVER, I don't want to print all records that
way. I can't figure out what is needed to allow this. Ex-
if the value of field quantity 1 or 2 than it prints
once, if it is 3 or 4, I want to print the records twice,
if quantity is 5 or 6 , I print the record, three times-
etc.

Any ideas out there?
Thanks in advance.

jsr
 
A

Allen Browne

Go to:
groups.google.com
and choose the Advanced Search.
You can search for your thread, and the answer you received.

My website is currently down (ISP is having major problems), but when it
comes back up, you will find this article helpful:
http://allenbrowne.com/ser-39.html
Since you want only half the labels, use integer division by 2 in a query to
get the desired number of records, i.e.:
HowMany: [Quantity] \ 2
 
M

Marshall Barton

jsr said:
I posted this following message several weeks ago and
lost the reply sent by someone on how they though this
might work. Please help.

am using access 97.
I am trying to generate a report that allows you to print
a record more than once based on the value of another
field. HOWEVER, I don't want to print all records that
way. I can't figure out what is needed to allow this. Ex-
if the value of field quantity 1 or 2 than it prints
once, if it is 3 or 4, I want to print the records twice,
if quantity is 5 or 6 , I print the record, three times-
etc.

Here's my response to your question on 10/2:
---------------------------------------------------------------
You might(?) be able to add code to the detail section's
Format event procedure that causes the detail to be printed
multiple times. This is just air code so take it with
several grains of salt:

Dim lngDupCtr As Long
Sub Detail_Format( . . .
If lngDupCtr <= 0 Then
lngDupCtr = (Me.txtQuantity + 1) \ 2
Else
If lngDupCtr > 1 Then
Me.NextRecord = False
End If
lngDupCtr = lngDupCtr - 1
End If
End Sub

The reason I'm being wishy washy about it is that are some
situations where a page boundary split, CanGrow,
KeepTogether, etc. may throw the counting off.
---------------------------------------------------------------

For future reference, you can search for old posts/threads
in the Google archives at:

http://groups.google.com/advanced_group_search?hl=en&lr=&ie=UTF-8&safe=off
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top