By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
425,635 Members | 911 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 425,635 IT Pros & Developers. It's quick & easy.

Create a Timed Progress Bar in MS Access

P: 6
I want to complete a project and I want to place a timed progress bar on my splash screen, I want to find out a method of timing my progress bar to update every 10 seconds.

here's what I got so far:
Expand|Select|Wrap|Line Numbers
  1. Private Sub Form_Open(Cancel As Integer)
  2. If (ProgressBar0.Value <0) then
  3. ProgressBar0.Value = ProgressBar0.Value +10
  4. End If
  5. ProgressBar0.Value =100
  7. End Sub
** contact details removed **
Please help me
Feb 17 '09 #1
Share this Question
Share on Google+
5 Replies

Expert Mod 15k+
P: 31,409
I moved your thread into the Answers section (It was posted in Insights).

I suspect that you need to look at the Timer facility for this, but your existing code means nothing as far as I can see.

You will need to post a clearer question before you can expect much help.

PS. I noticed you'd reposted so caught the problem. Not a good idea but we appreciate the thought. I've deleted the other one so there is now only this one to worry about.
Feb 17 '09 #2

Expert 5K+
P: 8,619
You can take a look at this to get some idea of how to use the Status Bar of Access to indicate relative progress of an operation.
Feb 17 '09 #3

Expert 5K+
P: 8,619
Here is another example using the Microsoft Progress Bar ActiveX Control, but as NeoPa has previously stated, you must expand on your original question. These samples are only to provide you with basic ideas on how to visually indicate progress on some type of operation:
  • Insert the Microsoft Progress Bar on your Form.
  • Change the Name of the Progress Bar Control to ProgressBar1.
  • Manually set the Max Property of this Control to 100.
  • Set the Form's TimerInterval Property to 10000 (10 seconds).
  • Place the following code in the Form's Timer Event:
    Expand|Select|Wrap|Line Numbers
    1. Private Sub Form_Timer()
    2. Static intCounter As Integer
    4. intCounter = intCounter + 1
    6. Me![ProgressBar1].Value = (intCounter * 10)
    8. 'Disable Timer at 100
    9. If intCounter = 10 Then Me.TimerInterval = 0
    10. End Sub
Feb 17 '09 #4

P: 6
thank you, ADezii , your code worked! My project will not be postponed any longer.
Mar 19 '09 #5

Expert 5K+
P: 8,619
Glad it worked out for you.
Mar 19 '09 #6

Post your reply

Sign in to post your reply or Sign up for a free account.