[AccessD] determine count of records displayed in continuous form

Interesting.  Thanks!

John W. Colby
www.ColbyConsulting.com


Heenan, Lambert wrote:
> I approach this from the other end: I *define* how many rows will be displayed by using this little routine....
> 
> Sub SetFormRows(f As Form, nRows As Integer)
> Dim nFormFinalHeight As Long
> Dim nSectionHeight As Long
>     On Error Resume Next
>     nSectionHeight = f.Section(acHeader).Height
>     If Err.Number <> 0 Then
>         nSectionHeight = 0
>         Err.Clear
>     End If
>     nFormFinalHeight = nFormFinalHeight + nSectionHeight
> 
>     nSectionHeight = (f.Section(acDetail).Height * nRows)
>     If Err.Number <> 0 Then
>         nSectionHeight = 0
>         Err.Clear
>     End If
>     nFormFinalHeight = nFormFinalHeight + nSectionHeight
> 
>     nSectionHeight = f.Section(acFooter).Height
>     If Err.Number <> 0 Then
>         nSectionHeight = 0
>         Err.Clear
>     End If
>     nFormFinalHeight = nFormFinalHeight + nSectionHeight
> 
>     f.InsideHeight = nFormFinalHeight
>     On Error GoTo 0    ' turn normal error trapping back on
> End Sub
> 
> And I call the routine in the form's Load event...
> 	
> 	SetFormRows Me, 10
> 
> 
> Lambert
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
> Sent: Thursday, August 20, 2009 12:52 PM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] determine count of records displayed in continuous form
> 
> Is there a way to determine the count of records displayed in a continuous form.  By this I mean the number of records actually showing, not the count in the recordset behind the form.
> 
> I don't believe I have ever seen a way to do this but I thought I'd ask.
> 
> --
> John W. Colby
> www.ColbyConsulting.com
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>