October 11, 2008 07:31pm pdt

My Account

Top 15 Experts

Overall Top Experts

1capricorn1 1,313,129
2DatabaseMX 748,360
3LSMCons... 652,992
4boag2000 642,266
5peter57r 519,545
6jefftwilley 340,537
7harfang 336,273
8mbizup 270,001
9jimhorn 269,737
10wiswalld 188,867
11frankytee 185,705
12GRayL 162,115
13MikeToole 152,096
14stevbe 146,536
15LPurvis 121,295

	[x] Attachment Details

MS Access Progress Meter/Bar During Query

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

7.7

Zones: Microsoft Access Database, Access Architecture/Design, Access Forms

Tags: Miscosoft, Access, 2003

I know this question has been answered many times in many different forms, but I cannot seem to make my code work. In short, I want to have a status bar form displayed while I open up another form, which will in turn display the results of a query; this takes anywhere from 10 to 40 seconds (depending on what computer it's ran from). The query referenced in the opening form will only have one or two records, which are the matched records between two very large queries. Ideally, I would like to have a status bar match the time it takes to open up the query, but I'm not sure this is possible. At the very least, I would like to have a form with a moving bar, which I can either attempt to match based on the average query time or just loop over and over again. Right now I'm doing the latter using the "on timer" event to trigger the bar...I'm attempting to open up my final form (frmCompare_Results) that will display the query when the status form opens, then have frmCompare_Results close the status form (frmStatus). However, when frmCompare_Results is in the process of opening, it just locks everything up, closing frmStatus several seconds later with no action. My code is below. I am a beginner, so please construct any suggestions accordingly. Thank you in advance for the help!

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

           
           
             Private Sub Form_Timer()
Dim Counter As Long
 
DoCmd.OpenForm "frmCompare_Results"
Me.Status.Caption = "Reading"
 
Screen.MousePointer = 11
 
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
   
Set cn = CurrentProject.Connection
       
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.CursorLocation = adUseClient
.Source = "tblNumber"
.Open
 
While Not .EOF
 
ProgressBarC.Visible = True
CurrentRecordID = .Fields("Number")
        
ProgressBarC.Width = (ProgressBarA.Width / .RecordCount) * .AbsolutePosition
 
Me.Repaint
 
.MoveNext
For lCounter = 1 To 107000: Next
    Wend
End With
 
If rs.EOF Then
 
CurrentRecordID = ""
Me.Status.Caption = "Done"
      
End If
    
rs.Close
 
cn.Close
 
Set rs = Nothing
Set cn = Nothing
 
Screen.MousePointer = 0
End Sub

           
         

	#	Title
	1	progress bar styled like a "swing met…
	2	Progress Bar
	3	Progress Meter
	4	Progress Meter
	5	Progress Bar
	6	Progress meter:Opening program