?
Solved

Access 2003:  Report - Group Totals - a diff. approach - getting error

Posted on 2011-03-23
12
Medium Priority
?
339 Views
Last Modified: 2012-05-11
Hi EE,

Can group fields on the report be affected with vba logic?

I tried to total the credits during detail process by accumulating to a public variable.
If total > 0, print the student's academic standing field
If total = 0, print 'IN PROGRESS"


In the group's print event  and even the format event tried this, and am getting an error:

Private Sub GroupFooter1_Print(Cancel As Integer, PrintCount As Integer)

Debug.Print pg_lngTotCredits

If pg_lngTotCredits = 0 Then
   Me.txtTermStanding = "IN PROGRESS"
End If

pg_lngTotCredits = 0


End Sub


tx for your ideas and advice, sandra
0
Comment
Question by:mytfein
  • 9
  • 3
12 Comments
 
LVL 58

Accepted Solution

by:
Jim Dettman (Microsoft MVP/ EE MVE) earned 2000 total points
ID: 35201987
Sandra,

<<Can group fields on the report be affected with vba logic?>>

  Anything that alters controls should be in the OnFormat event.  Also, when totalling yourself, you need to protect the calculations like this:

  If FormatCount = 1 then
     ' Do Totalling.
  End If

  Often, the print engine will retreat up the page to re-format it.  Detail and other sections OnFormat event may get fired multiple times before they are printed.  Ditto for OnPrint, which is PrintCount.

 And this is code, but you need to pull in the field:

Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)


If FormatCount = 1 then
Debug.Print pg_lngTotCredits
If pg_lngTotCredits = 0 Then
   Me.txtTermStanding = "IN PROGRESS"
Else
   Me.txtTermStanding = <some other control which is hidden with the field data required>
End If

pg_lngTotCredits = 0
End if


End Sub

  txtTermStanding should be an un-bound field.    

HTH,
JimD.
0
 

Author Comment

by:mytfein
ID: 35202013
Hi Jim,

tx for writing...

now i understand my error, i was trying to change a bound field

ok, let me get back to you ...  tx, s
0
 

Author Comment

by:mytfein
ID: 35202462
Hi Jim,

i understand your ideas

however, when i go to subreport2  to add a hidden text field to the group footer
and then hit save,  Access aborts....

uploaded mdb below   ... is it possible for you to add your ideas please, i'm curious if you also get
an aborted situation or out of memory msg

tx, s
db2.zip
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 58
ID: 35202722

 No problem adding a text control to the footer here.

JimD.
0
 

Author Comment

by:mytfein
ID: 35208426
tx for checking Jim..... s
0
 

Author Comment

by:mytfein
ID: 35208759
Hi Jim,

it works now... tx... so much....ss
2011-03-25-rpt.GIF
0
 

Author Comment

by:mytfein
ID: 35208863
Hi Jim,

Just wondering if you would know why, if in the above example
   there are 3 groups,
   
   yet the group format event got triggered 5 times
         
   i'm wondering if access first prints out the detail
       and afterwards superimposes the group logic

 (  i come from a diff. era as a cobol pgmr where first we process the detail records, and when
          there was a change in key, we executed group footer/control break logic)

    the end result looks great, just wondering about the 2 extra breaks....

    if you have any thoughts, pls advise, tx, s
0
 
LVL 58
ID: 35208893
Sandra,

<<Just wondering if you would know why, if in the above example
   there are 3 groups,
   
   yet the group format event got triggered 5 times
>>

  It's what I was refering to above in my first comment.  Based on properties, like Keep together, the report engine may need to retreat up the page and reformat it again.  This can happen several times in the course of trying to figure out the page layout honoring (if it can) all the properties that have been set.

  This can happen for the detail as well as any of the grouping levels.  That's why both OnFormat and OnPrint events have counts (FormatCount and PrintCount).

JimD.
0
 

Author Comment

by:mytfein
ID: 35209074
Thx Jim,

a) i understand what you said earlier and above...
i guess i was not so clear in my question....

     when the group even got triggered 5 times,  the If formatCount =1  logic was true 5 times,
as well too.

    so if the formatCount is equal to 1 5 times, when is formatCount = to another value

b) this report is a subreport that acts as column2
the preview screen above prints that way too

the curious thing, is that when i run the entire parent report that has a subreport1 to act as column1

on the col2 report,  the 3rd grouping is sometimes not showing the horizontal line that i put in
the footer column when IT PRINTS, but the line shows in print preview....

i never noticed that before.... so i commented out the group footer logic, but the 3rd line separator
is still not showing

this should probably be a new post....  just venting... to see if you have any opinions on this matter,
tx, s
0
 

Author Comment

by:mytfein
ID: 35209155
Hi Jim,

i even deleted col2's subreport, copies col1's subreport, and it still does not print the right side
3rd goup's separator line......

it would take a little time for me to create test data out of this real student and then i could upload
the mdb....

tx, s
0
 

Author Comment

by:mytfein
ID: 35209177
Hi Jim,

i see the problem in this test mdb
    i would think that the last group would end with a separator line that i drew in the footer
          but is not showing for the last group


i will open a new post....
and write back with the link, tx, s
db2.zip
0
 

Author Comment

by:mytfein
ID: 35209527
Hi Jim,

you don't have to spend time on the line issue....

an EE expert just explained it to me here....

http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_26909493.html

tx again, s
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Instead of error trapping or hard-coding for non-updateable fields when using QODBC, let VBA automatically disable them when forms open. This way, users can view but not change the data. Part 1 explained how to use schema tables to do this. Part 2 h…
Microsoft Access has a limit of 255 columns in a single table; SQL Server allows tables with over 255 columns, but reading that data is not necessarily simple.  The final solution for this task involved creating a custom text parser and then reading…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…
Suggested Courses

807 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question