[AccessD] Timer Event

Lots of software puts up progress bar that purports to show percentage
complete information, but of course we all have seen examples where it's
clearly only a very rough estimate: I like to talk about "Microsoft Minutes"
when looking at the famous file copy progress indicator.

The main thing is to give the user *some* indicator that things are moving
along. So using SysCmd is not such a bad idea. You just use an arbitrary
count of the "total number of steps", say 20.

So you initialize the meter: 

SysCmd acSysCmdInitMeter, "Running a huge calculation", 20

Then in various places (20 of them) in your lengthy calculation process, as
it moves from one step to the next increment a counter and call SysCmd to
move the progress meter.

n = n + 1
SysCmd acSysCmdUpdateMeter, n

And at the end reset the meter

SysCmd acSysCmdClearStatus

HTH

Lambert 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin at
Beach Access Software
Sent: Thursday, June 19, 2008 6:35 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Timer Event

"'-- Somehow get the count of total iterations"

That's going to be the trick.  The Visio flowchart  covers 12 pages.  Lots
of loops.  


Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com
www.bchacc.com
 
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Thursday, June 19, 2008 2:45 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Timer Event

Rocky,

Access has a built in progress bar that I use frequently.  The bar shows up
as a green line in the left side of the status bar, which is at the bottom
of the screen.  It's simple and reliable and your customers have seen it or
something like it before so no explanation will be needed.


Step 1:
	Dim stgTitle as string
	Dim varReturn as variant
	Dim intCount as integer

	stgTitle = "Progress Bar Title"
	'-- Somehow get the count of total iterations
	intCount = rst.recordcount (for example)

Step 2:
	'-- Initiate the progress bar - no green bars will be displayed yet
    	varReturn = SysCmd(acSysCmdInitMeter, stgTitle, intCount)

Step 3:
	intCount = 0
	Do While X < Y
		'-- Calculations here
		intCount = intCount + 1
		'-- Add proportional length to the progress bar 
		varReturn = SysCmd(acSysUpdateMeter, intCount)
	Loop

Step 4:
	'-- Remove the Progress Bar
	varReturn = SysCmd(acSysCmdClearStatus)


Hope this works!
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin at
Beach Access Software
Sent: Thursday, June 19, 2008 11:24 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Timer Event





 Dear List:
 
The client would like a progress box to display during a lengthy calculation
- can take up to a minute and I told him that some kind of indication should
appear on the form so the user knows something is happening.
 
I implemented one solution which is OK.  I have a sub which adds a period to
a text box on the calling form.  And so I can lace calls to that routine
throughout the calculations.  Problem is that it doesn't produce these
periods in equal time intervals.
 
So what he really wants now is a progress indicator that would change every
1/4 second or so, and when it got to its maximum length would start over
again.  Not a difficult thing to do. 
 
I thought I could use the timer event on the form that calls the
calculation, but the calculation is in a Public module and so, while it is
running, the timer event doesn't trigger. 
 
Is there a way around this or another approach?
	
MTIA

Rocky Smolin

Beach Access Software

858-259-4334

www.e-z-mrp.com <http://www.e-z-mrp.com/> 

www.bchacc.com <http://www.bchacc.com/> 

 

 

 
--
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

No virus found in this incoming message.
Checked by AVG. 
Version: 8.0.100 / Virus Database: 270.4.0/1509 - Release Date: 19/6/2008
08:00

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com