Rocky Smolin at Beach Access Software
rockysmolin at bchacc.com
Thu Jun 19 20:58:25 CDT 2008
Legacy code. I don't want to mess with it if I can avoid it. It runs fast
enough - some things just take 1-5 minutes. Actually, at this point it's
taking less than a minute but when it gets distributed it's hard to know how
much data and in what form a user will have. Could conceivably run a few
minutes.
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 Darryl Collins
Sent: Thursday, June 19, 2008 5:28 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Timer Event
I think it has already been implied, but is there any way you can speed up
the calculation itself you you don't need a progress bar at all?
I would imagine that you may have already considered this, but hey, just in
case....
regards
Darryl.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Rocky Smolin at
Beach Access Software
Sent: Friday, 20 June 2008 8:35 AM
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
This email and any attachments may contain privileged and confidential
information and are intended for the named addressee only. If you have
received this e-mail in error, please notify the sender and delete this
e-mail immediately. Any confidentiality, privilege or copyright is not
waived or lost because this e-mail has been sent to you in error. It is your
responsibility to check this e-mail and any attachments for viruses. No
warranty is made that this material is free from computer virus or any other
defect or error. Any loss/damage incurred by using this material is not the
sender's responsibility. The sender's entire liability will be limited to
resupplying the material.
--
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