Progress Bar

[John]

Hello to everybody,
on the following link is very well explained how to build a progress bar.
http://msdn.microsoft.com/library/d.../en-us/dnacbk02/html/ODC_CookbookChapter9.asp
However my knowledge of VBA is close to null and even if I followed the
instructions but I am not fully able to intregate the sample in a database,
like:
- click on a button, see the progress bar (in progress) while I am printing
a report.

Thanks for your help.
Kind regards
John B

 

[Michel Walsh]

Hi,


The progress bar on the status bar? The idea would be to have an integer
that will be incremented by one each time the detail print section of the
report get executed.

Open a new standard module:

===========
Option Compare Database
Option Explicit

Public Sub SetLimit(HowManyRecord As Long)
SysCmd acSysCmdInitMeter, "Printing...", HowManyRecord
End Sub
==========


In your report, have something like:

=================
Option Compare Database
Option Explicit
Dim coco As Long
----------------------------
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
coco = coco + 1
SysCmd acSysCmdUpdateMeter, coco
End Sub
-----------------------------
Private Sub Report_Close()
SysCmd acSysCmdClearStatus
End Sub
----------------------------
Private Sub Report_Open(Cancel As Integer)
coco = 0
End Sub
==================


Then, before printing your report, call

SetLimit numberOfRecordsToBePrinted

then, print the report.

Hoping it may help,
Vanderghast, Access MVP