Report

[Per Erik]

Hey! First, sorry my bad English!
I have created a results page of a report in Access 2007.
I want to make a mark AFTER the first third of the report. So if there are
33 participants, I would like it to be characterized by the eleventh. Is this
possible in a report?
Hope someone can help me with this!

 

[Duane Hookom]

Assuming you have a control named "Mark" that you want to make visible....

Add a text box to the Report Header section:
Name: txtCountAll
Control Source: =Count(*)
Add a text box to the detail section:
Name: txtRunCount
Control Source: =1
Running Sum: Over All
Visible: No
Add code to the On Format of the detail section:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.Mark.Visible = (Me.txtRunCount Mod Me.txtCountAll \ 3 = 0)
End Sub

 

[Per Erik]

I have created a results page of a report in Access 2007.

 

[Duane Hookom]

Is there still a question here?

 

[Per Erik]

Yes, I did not get it to work. So I have tried to elaborate on what I want. I
apologize for language difficulties, and appreciate that you are trying to
help me!
Per Erik

 

[Per Erik]

Like this:
NR. NAVN KLUBB VEKT
1 Jim Bekken Raufjøringen 9510 gr.
2 Thomas Ødergård Gjøvik og Toten SFK 8105 gr.
3 Kenneth Ottosen Gjøvik og Toten SFK 5440 gr.
4 Jørgen Langerud Raufjøringen 5245 gr.
5 Ove Lauten Gjerdrum 4745 gr.
****
6 Per E. Hellerud Eidsvoll JFF 4625 gr.
7 Frank Hønsen Gjerdrum SFK 4525 gr.
8 Odd Henning Hansen Gjøvik og Toten SFK 4505 gr.
9 Johnny Ulsrudstuen Gjøvik og Toten SFK 4255 gr.
10 Anders Wold Oslo Sportsfiske 3780 gr.
11 Tom Pedersen Gjøvik og Toten SFK 3325 gr.
12 Eric Olstad Toten JFF Lodd 2 3040 gr.
13 Geir Lillejordet Gjøvik og Toten SFK 2735 gr.
14 Remi A. Olsen SFK Pimpel Sør 2540 gr.
15 Paal Runden Gjøvik og Toten SFK 2495 gr.

 

[Duane Hookom]

It would help if you told us wasn't working. What are your results? If the
controls are all visible, what do you see?

My suggestion show have displayed the control named Mark every 1/3 of the
record count. I think you need to change the code to:


Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.Mark.Visible = (Me.txtRunCount = Me.txtCountAll \ 3
End Sub

 

[Per Erik]

The controls are visible in all the lines, not only in the 1/3.

 

[Duane Hookom]

Tell us how you have your report set up including the code that is run and
which section.

 

[Per Erik]

Is it possible to send the entire database, so you can see how it is made.
I'm an amateur at Access, so it could væe much "strange" that makes this not
work!

 

[Duane Hookom]

You should just tell us exactly what you have done and what your results
are.

 

[Per Erik]

I get an error message: "Multi-level GROUP BY clause is not allowed in a
subquery".

I have created everything according to your commandments, and the code in
the detail section is:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.Mark.Visible = (Me.txtRunCount = Me.txtCountAll \ 3)
End Sub

Per Erik

 

[Duane Hookom]

Sounds like a issue with the record source of your report. I expect you used
a subquery to get the NR field. That's a no-no if you intend to sort by it.

 

[Per Erik]

Yes I have used a subquery called RANK (NR), and this will be sorted to
produce the correct results.
I get the error message when I put the txtCountAll to the Report Header
section.

 

[Duane Hookom]

You need to figure out a different method for the RANK. Is there a reason
why you can't use a running sum in the report to display the rank?

If you can't, you may need to post something about the report's record
source including significant SQL views.

 

[Per Erik]

I'm using SQL RANK because I want a proper ranking.
Like this:
1. Person1 - 350 gr
* 2 Person2 - 340 gr
* 2 Person3 - 340 gr
4. Person4 - 320 gr

Those who have the same weight, should get the same space-digits. Like my
example above.

SQL statement in the query: SELECT A. GRAVITY, A. NAME, A. Club, A. CLASS,
(SELECT Count (*) FROM THE LORD AS B WHERE B. GRAVITY> GRAVITY A.) +1 AS Rank
FROM THE LORD AS A;

 

[Per Erik]

I'm using SQL RANK because I want a proper ranking.
Like this:
1. Person1 - 350 gr
* 2 Person2 - 340 gr
* 2 Person3 - 340 gr
4. Person4 - 320 gr

Those who have the same weight, should get the same space-digits. Like my
example above.

SQL statement in the query: SELECT A.VEKT, A.NAVN, A.KLUBB, A.KLASSE, (SELECT Count(*) FROM HERRER AS B WHERE B.VEKT>A.VEKT)+1 AS Rank

FROM HERRER AS A;

 

[Per Erik]

Sorry the SQL was wrong. I don´t know what happened!
The SQL statement in the query:
SELECT A.VEKT, A.NAVN, A.KLUBB, A.KLASSE, (SELECT Count(*) FROM HERRER AS B
WHERE B.VEKT>A.VEKT)+1 AS Rank
FROM HERRER AS A;

 

[Per Erik]

I don´t know what "happened" with my SQL under here, but here is the correct:

SELECT A.VEKT, A.NAVN, A.KLUBB, A.KLASSE, (SELECT Count(*) FROM HERRER AS B
WHERE B.VEKT>A.VEKT)+1 AS Rank
FROM HERRER AS A;

 

[Duane Hookom]

I believe you can do this without the subquery but using a totals query and
a self join. MVP John Spencer has posted this type of ranking query in the
past. You will get a more efficient and functional result as needed in the
report record source.