Create a Timed Progress Bar in MS Access

[maniesh]

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:

Private Sub Form_Open(Cancel As Integer)
If (ProgressBar0.Value <0) then
ProgressBar0.Value = ProgressBar0.Value +10
End If
ProgressBar0.Value =100
 
End Sub

** contact details removed **
Please help me
Maniesh

[NeoPa]

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.

[ADezii]

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.
http://bytes.com/topic/access/insigh...s-meter-access

[ADezii]

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:
  

  Private Sub Form_Timer()
  Static intCounter As Integer
   
  intCounter = intCounter + 1
   
  Me![ProgressBar1].Value = (intCounter * 10)
   
  'Disable Timer at 100
  If intCounter = 10 Then Me.TimerInterval = 0
  End Sub

[maniesh]

thank you, ADezii , your code worked! My project will not be postponed any longer.

[ADezii]

@maniesh
Glad it worked out for you.