[AccessD] Report Totals

Here's one way:

Private lngCaseCount as long

Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As 
Integer)
	lngCaseCount = lngCaseCount + 1
End Sub

Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As 
Integer)
	txtCaseCountDisplay = lngCaseCount
End Sub



On 18 Jul 2003 at 15:39, Mark Boyd wrote:

> Charles -
> I've tried this, but it still returns the actual record count.
> For example, if there are 5 detail records, the counter in the header
> equals 5, even though there is only 1 case number displayed in the
> header record.
> 
> Mark
> 
> -----Original Message-----
> From: Wortz, Charles [mailto:CWortz at tea.state.tx.us] 
> Sent: Friday, July 18, 2003 3:28 PM
> To: Access Developers discussion and problem solving
> Subject: RE: [AccessD] Report Totals
> 
> Mark,
> 
> Put a counter in the group header and then display its value in the
> report footer.
> 
> 
> Charles Wortz 
> Software Development Division 
> Texas Education Agency 
> 1701 N. Congress Ave 
> Austin, TX 78701-1494 
> 512-463-9493 
> CWortz at tea.state.tx.us 
> -----Original Message-----
> From: Mark Boyd [mailto:MarkBoyd at McBeeAssociates.com] 
> Sent: Friday 2003 Jul 18 12:51
> To: AccessD at databaseadvisors.com
> Subject: [AccessD] Report Totals
> 
> I have a table with 100 non-unique Case Numbers (most are repeating),
> along with other fields.
> In a report, I put this field in the Case Number Header, and the other
> fields in the Detail section.
> How can I get a count of the case numbers that are actually displayed in
> the report?
> When I put Count([CaseNum]) in the footer, I get the total case number
> count in the table, not what is displayed.
> Any ideas?
> 
> Thanks,
> Mark Boyd
> Sr. Systems Analyst
> McBee Associates, Inc.
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com


-- 
Lexacorp Ltd
http://www.lexacorp.com.pg
Information Technology Consultancy, Software Development,System Support.