limit records on a report page (1 Viewer)

antonyx

Arsenal Supporter

Local time

Today, 18:15

Joined

Jan 7, 2005

Messages

556

• Jan 11, 2007

• #1

i have searched a few posts and havent found the solution..

basically i want to get rid of the circled record here..

http://www.londonheathrowcars.com/thispic.jpg

so based on the size i have set.. it prints 9 records per page.. i want it to print 8 per page.. how can i do this??

 

R

Rickster57

Registered User.

Local time

Today, 10:15

Joined

Nov 7, 2005

Messages

431

• Jan 11, 2007

• #2

records

See if this helps:

http://www.experts-exchange.com/Databases/MS_Access/Q_21824417.html

 

antonyx

Arsenal Supporter

Local time

Today, 18:15

Joined

Jan 7, 2005

Messages

556

• Jan 11, 2007

• #3

oh dear, i dont have a premium account and i am unable to view the solution.

 

R

Rickster57

Registered User.

Local time

Today, 10:15

Joined

Nov 7, 2005

Messages

431

• Jan 11, 2007

• #4

records

I went back to that link on got the same thing you did. I will do from my pea brain memory

Place a textbox called textboxcounter in the detail section of your report. set it's control source=1. Set the running sum to Over Group.

In the On Format section in the Detail of your report put the following code:

if [textboxcounter] mod 8=0 then
me.detail.forcenewpage=2
else
me.detail.forcenewpage=0
end if

 

antonyx

Arsenal Supporter

Local time

Today, 18:15

Joined

Jan 7, 2005

Messages

556

• Jan 11, 2007

• #5

Code:Copy to clipboard

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If [textboxcounter] Mod 8 = 0 Then
Me.Detail.ForceNewPage = 2
Else
Me.Detail.ForceNewPage = 0
End If
End Sub

my textbox is in the detail section of the report.. it has..
a name of textboxcounter
a control source of =1
Running Sum of Over Group

i get this error

2427
You entered an expression that has no value

on this line..

Code:Copy to clipboard

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
[b]If [textboxcounter] Mod 8 = 0 Then[/b]
Me.Detail.ForceNewPage = 2
Else
Me.Detail.ForceNewPage = 0
End If
End Sub

 

antonyx

Arsenal Supporter

Local time

Today, 18:15

Joined

Jan 7, 2005

Messages

556

• Jan 11, 2007

• #6

ok wait one minute.. i didnt have any records displayin thats why the error came up.. one minute

 

antonyx

Arsenal Supporter

Local time

Today, 18:15

Joined

Jan 7, 2005

Messages

556

• Jan 11, 2007

• #7

i got it working.. cheers man
good memory