Duane Hookom

[123]

Thank you for your help and answer:

Making serial in report:

To make easy serial on Each Group You can use the following code

Control source =1

Running sum = over group

This action will put serial for each group

Ok know



I have this code:

Control source = the following lines

=IIf([Job]="Inf" Or [Job]="Chd";"";DCount("*";"QryReport";"IDFather<=" &
[IDFather] & " AND [Job]<>'Inf' AND [Job]<>'CHD'"))



This work correctly without any problem:



But I want my report work smart: OK



I will tell you:

I want this code to be smart If the pageheader0 of this group the Property

FORCE NEW PAGE = NONE

The previous code work correct right way

The problem here:

If

FORCE NEW PAGE = Before Section



The code I want :



The previous code begin new serial for each group



I have try to solve this problem put no solution until Your answer:



Thank you

 

[Duane Hookom]

Your Subject should be an introduction to your question. My name might get
my attention but might also cause people who know me to avoid the question.
There are much smarter people here than I am.

I don't really understand your question. Could you please re-state it with a
sample of what you have and what you want? Please don't triple-space your
messages. I get tired of scrolling up and down.

 

[Douglas J. Steele]

There are much smarter people here than I am.

Yeah, but I doubt if any of them are so recently a grandfather! <g>

 

[123]

Thank you very much for your help and answer:

The code I send is control source of unbound Serial (text box) in the
report..

The report sorted and grouped by (field Group)

What I want:

Group (10)

Serial Name job

1 a dr

b inf

2 d dr

c inf

3 4 eng

Group (11)

Serial Name job

1 aa dr

bb inf

2 cc dr

dd inf

3 ee eng

You see in previous example every group take another serial:

The question is how to convert this code here to make serial like the above:

=IIf([Job]="Inf" Or [Job]="Chd";"";DCount("*";"QryReport";"IDFather<=" &
[IDFather] & " AND [Job]<>'Inf' AND [Job]<>'CHD'"))

This code do the following (I don’t want)

Group (10)

Serial Name job

1 a dr

b inf

2 d dr

c inf

3 4 eng

Group (11)

Serial Name job

4 aa dr

bb inf

5 cc dr

dd inf

6 ee eng

The serial is continue form previous group (this not I want)

 

[SA]

123:

(BTW it is impolite to direct questions in a newsgroup to a specific
individual; plus you foreclose others responding to you with ideas.)

Of course you can also do your counter with a little VBA and avoid a lot of
the headache you are seeing. Here's how.

In the General section of the report's module, dimension a single variable:

Dim intCounter as Integer

In the GroupHeader's On Print event reset the counter to 0:

intCounter = 0

In the On Print event of the detail section increment the counter and set
its value into an unbound text box:

intCounter = intCounter + 1
Me!Serial = intCounter
--
Steve Arbaugh
ACG Soft
http://ourworld.compuserve.com/homepages/attac-cg

Thank you very much for your help and answer:

The code I send is control source of unbound Serial (text box) in the
report..

The report sorted and grouped by (field Group)

What I want:

Group (10)

Serial Name job

1 a dr

b inf

2 d dr

c inf

3 4 eng

Group (11)

Serial Name job

1 aa dr

bb inf

2 cc dr

dd inf

3 ee eng

You see in previous example every group take another serial:

The question is how to convert this code here to make serial like the above:

=IIf([Job]="Inf" Or [Job]="Chd";"";DCount("*";"QryReport";"IDFather<=" &
[IDFather] & " AND [Job]<>'Inf' AND [Job]<>'CHD'"))

This code do the following (I don't want)

Group (10)

Serial Name job

1 a dr

b inf

2 d dr

c inf

3 4 eng

Group (11)

Serial Name job

4 aa dr

bb inf

5 cc dr

dd inf

6 ee eng

The serial is continue form previous group (this not I want)

 

[123]

Thank you for your help and answer:

Not this what I want…

Please read my question a gain

I want to edit this code to make serial for every group and if you look to
the code you will see condition here to make serial the code what I want to
edit is:

IIf([Job]="Inf" Or [Job]="Chd";"";DCount("*";"QryReport";"IDFather<=" &
[IDFather] & " AND [Job]<>'Inf' AND [Job]<>'CHD'"))

If job = inf or chd don’t put serial:

Please look to the example of the report in previous message