Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Progress Meter
Posted on 2004-04-27
Using MSAccess 2002
I want to be able to open a form "Customers", but as it is opening I want to display a progress meter (lots of data to load). The source code for the progress meter is below, however, I do not know how to modify the code so as to function properly. Need help...
Private Sub Read_Click()
Me.Status.Caption = "Reading"
Screen.MousePointer = 11
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Counter As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("Customer
rs.MoveFirst
While Not rs.EOF
CurrentRecordID = rs!CustomerID
ProgressBarB.Width = (ProgressBarA.Width / rs.RecordCount) * rs.AbsolutePosition
Me.Repaint
rs.MoveNext
For Counter = 1 To 750000: Next
Wend
If rs.EOF Then
ProgressBarB.Width = rs.RecordCount
Me.Repaint
CurrentRecordID = ""
Me.Status.Caption = "Done"
ProgressBarB.Width = 0
Me.Repaint
End If
rs.Close
Set rs = Nothing
Set db = Nothing
Screen.MousePointer = 0
End Sub
I want to be able to open a form "Customers", but as it is opening I want to display a progress meter (lots of data to load). The source code for the progress meter is below, however, I do not know how to modify the code so as to function properly. Need help...
Private Sub Read_Click()
Me.Status.Caption = "Reading"
Screen.MousePointer = 11
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Counter As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("Customer
rs.MoveFirst
While Not rs.EOF
CurrentRecordID = rs!CustomerID
ProgressBarB.Width = (ProgressBarA.Width / rs.RecordCount) * rs.AbsolutePosition
Me.Repaint
rs.MoveNext
For Counter = 1 To 750000: Next
Wend
If rs.EOF Then
ProgressBarB.Width = rs.RecordCount
Me.Repaint
CurrentRecordID = ""
Me.Status.Caption = "Done"
ProgressBarB.Width = 0
Me.Repaint
End If
rs.Close
Set rs = Nothing
Set db = Nothing
Screen.MousePointer = 0
End Sub
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
5-
4
-
2
- +1
12 Comments
I would say, you first need to set a min and max
min would be 1
max would be recordcount
when updating progressbar,you dont change the width but the value
e.g.
progressbar.min=1
rs.MoveLast
progressbar.max= rs.Recordcount
rs.MoveFirst
then in code do this
progressbar.value = ....
min would be 1
max would be recordcount
when updating progressbar,you dont change the width but the value
e.g.
progressbar.min=1
rs.MoveLast
progressbar.max= rs.Recordcount
rs.MoveFirst
then in code do this
progressbar.value = ....
I suppose you could add a counter in it as well
e.g.
dim lCounter as long
progressbar.min=1
rs.MoveLast
progressbar.max= rs.Recordcount
rs.MoveFirst
lCounter=1
While Not rs.EOF
CurrentRecordID = rs!CustomerID
ProgressBarB.Value = lCounter
Me.Repaint
rs.MoveNext
lCounter=lCounter+1
Wend
I THINK THAT IS HOW IT SHOULD BE
e.g.
dim lCounter as long
progressbar.min=1
rs.MoveLast
progressbar.max= rs.Recordcount
rs.MoveFirst
lCounter=1
While Not rs.EOF
CurrentRecordID = rs!CustomerID
ProgressBarB.Value = lCounter
Me.Repaint
rs.MoveNext
lCounter=lCounter+1
Wend
I THINK THAT IS HOW IT SHOULD BE
Personally I use just two rectangles (one backgound and boxShow that's "moving") and this code:
dblI = 0
dblIs = Forms(strFormname).boxBack
rsI.MoveFirst
While Not rsI.EOF
dblI = dblI + 1
Forms(strFormname).boxShow
Forms(strFormname).Repaint
DoEvents
....
Wend
Clear ?
Nic;o)
dblI = 0
dblIs = Forms(strFormname).boxBack
rsI.MoveFirst
While Not rsI.EOF
dblI = dblI + 1
Forms(strFormname).boxShow
Forms(strFormname).Repaint
DoEvents
....
Wend
Clear ?
Nic;o)
So, what is the code doing? Giving an error? Hanging? Nothing at all?
First thing that caught my eye was this line:
For Counter = 1 To 750000: Next
Why do you need a counter. From what I can see this line doesn't do anything for you. In addition, are you using the Progress Bar ocx control or some other control?
First thing that caught my eye was this line:
For Counter = 1 To 750000: Next
Why do you need a counter. From what I can see this line doesn't do anything for you. In addition, are you using the Progress Bar ocx control or some other control?
Let me start ALL OVER...
The code above works just fine. But, it is triggered from a command button "Read" on a form named "Progress Meter Form". What I need to be able to do is trigger the "Progress Meter Form" from the command button that is opening the form "Customers"...
Then display the form "Customers"...
The code above works just fine. But, it is triggered from a command button "Read" on a form named "Progress Meter Form". What I need to be able to do is trigger the "Progress Meter Form" from the command button that is opening the form "Customers"...
Then display the form "Customers"...
What I did was Property: OnLoad: DoCmd.OpenForm "Progress Bar Form"
All that did was open both forms, "Progress Bar Form" and "Customers"
All that did was open both forms, "Progress Bar Form" and "Customers"
ok, in the code for customers
first line in Form_Load
Minimise the window
I think its DoCmd.Minimize
then run your code
then when finished, restore window (DoCmd.Restore I think it is)
what you could do though perhaps, if above dont work, is use the timer of the customers form to display your progress bar instead of having a seperate form
first line in Form_Load
Minimise the window
I think its DoCmd.Minimize
then run your code
then when finished, restore window (DoCmd.Restore I think it is)
what you could do though perhaps, if above dont work, is use the timer of the customers form to display your progress bar instead of having a seperate form
in the form_load you set the form's timerinterval
e.g.
Private Sub Form_Load()
Me.TimerInterval = 3000 'every 3 secs
End Sub
then in the timer func, here I am displaying a msg
Private Sub Form_Timer()
MsgBox "Hello"
End Sub
you can mod it so you can update progress bar
so when you reach end, terminate timer,progressbar and contine
e.g.
Private Sub Form_Load()
Me.TimerInterval = 3000 'every 3 secs
End Sub
then in the timer func, here I am displaying a msg
Private Sub Form_Timer()
MsgBox "Hello"
End Sub
you can mod it so you can update progress bar
so when you reach end, terminate timer,progressbar and contine
Featured Post
Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents. The steps to find the Templates folder path are …
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string.
Specify the first argument, which is the expression to be returned:
Specify the second argument, which …
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month6 days, 1 hour left to enroll
626 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.