Simple progress bar

[Guest]

Hi. How can I insert a simple progress bar in my form. I have a form that
takes a lot to load, and I would like to put a progress bar so users could
see that the form is loading and the computer is not stopped.

Any idea how to do this?

Regards,
Marco

 

[Joan Wild]

Check out the Progress Meter sample at http://www.daiglenet.com/MSAccess.htm

 

[Guest]

take a look at

http://www.granite.ab.ca/access/progressbar.htm

and/or

http://groups.google.ca/group/micro...read/thread/fdca974933b42089/4e7c1de66b4dd839

Daniel

 

[Guest]

Hi Daniel.

I went to the granite site and I tried to use this code, but in witch event
do I use this code, any idea?

Dim intCurrentProgress As Integer
' This is the number of objects you expect to count which take some
' time to process. It likely won't be a constant in your environment.
Dim intTotalWidth As Integer
Const intProgressBarMax As Integer = 20000

intTotalWidth = Me.boxProgressBar.Width

For intCurrentProgress = 1 To intProgressBarMax
Me.rectProgressBar.Width = (intTotalWidth / intProgressBarMax) *
intCurrentProgress
Me.Repaint
Next intCurrentProgress

Marco

 

[Perry]

Add two labels to yr form
Label1 (progress front backcolor: some blue)
Label2 (progress backcolor: white; width according to yr design)
(position Label1 inside Label2)
whereby [rs] is an instantiated recordset object variable.

Dim iMax as integer, iCnt as integer
iCnt =1
iMax = rs.RecordCount
Do Until rs.EOF
'Do some stuff with records
Me.Label1.width = me.Label2.width * (iCnt / iMax)
me.Repaint
rs.MoveNext
Loop

Krgrds,
Perry

 

[Guest]

Hi Perry.

There's one problem. I don't use recorset connection type. I use control
source.


The code I wrote, that was on garny site, it looks good, I just don't know
where to use.

Marco

Add two labels to yr form
Label1 (progress front backcolor: some blue)
Label2 (progress backcolor: white; width according to yr design)
(position Label1 inside Label2)
whereby [rs] is an instantiated recordset object variable.

Dim iMax as integer, iCnt as integer
iCnt =1
iMax = rs.RecordCount
Do Until rs.EOF
'Do some stuff with records
Me.Label1.width = me.Label2.width * (iCnt / iMax)
me.Repaint
rs.MoveNext
Loop

Krgrds,
Perry

Hi. How can I insert a simple progress bar in my form. I have a form that
takes a lot to load, and I would like to put a progress bar so users could
see that the form is loading and the computer is not stopped.

Any idea how to do this?

Regards,
Marco

 

[Perry]

You can use it within any measurable iteration during code execution ...
Hmm, now I had a hard time putting the above line "on paper", but I think it
covers it ...


Krgrds,
Perry

Hi Perry.

There's one problem. I don't use recorset connection type. I use control
source.


The code I wrote, that was on garny site, it looks good, I just don't know
where to use.

Marco

Add two labels to yr form
Label1 (progress front backcolor: some blue)
Label2 (progress backcolor: white; width according to yr design)
(position Label1 inside Label2)
whereby [rs] is an instantiated recordset object variable.

Dim iMax as integer, iCnt as integer
iCnt =1
iMax = rs.RecordCount
Do Until rs.EOF
'Do some stuff with records
Me.Label1.width = me.Label2.width * (iCnt / iMax)
me.Repaint
rs.MoveNext
Loop

Krgrds,
Perry

Hi. How can I insert a simple progress bar in my form. I have a form
that
takes a lot to load, and I would like to put a progress bar so users
could
see that the form is loading and the computer is not stopped.

Any idea how to do this?

Regards,
Marco

 

[Guest]

Hello. Can you give me anexample??

Regards,
Marco

You can use it within any measurable iteration during code execution ...
Hmm, now I had a hard time putting the above line "on paper", but I think it
covers it ...


Krgrds,
Perry

Hi Perry.

There's one problem. I don't use recorset connection type. I use control
source.


The code I wrote, that was on garny site, it looks good, I just don't know
where to use.

Marco

Add two labels to yr form
Label1 (progress front backcolor: some blue)
Label2 (progress backcolor: white; width according to yr design)
(position Label1 inside Label2)
whereby [rs] is an instantiated recordset object variable.

Dim iMax as integer, iCnt as integer
iCnt =1
iMax = rs.RecordCount
Do Until rs.EOF
'Do some stuff with records
Me.Label1.width = me.Label2.width * (iCnt / iMax)
me.Repaint
rs.MoveNext
Loop

Krgrds,
Perry

"Marco" <[email protected]> schreef in bericht
Hi. How can I insert a simple progress bar in my form. I have a form
that
takes a lot to load, and I would like to put a progress bar so users
could
see that the form is loading and the computer is not stopped.

Any idea how to do this?

Regards,
Marco

 

[Perry]

Hello. Can you give me anexample??

Your situation:
You have a "simple" progressbar coded in some form.
You don't know how to use this.

My answers:
My initial contribution to this thread:
example with some code for a "simple" progressbar utilised in a recordset
looping/iterating scenario.

Am I missing something?

Krgrds,
Perry

Hello. Can you give me anexample??

Regards,
Marco

You can use it within any measurable iteration during code execution ...
Hmm, now I had a hard time putting the above line "on paper", but I think
it
covers it ...


Krgrds,
Perry

Hi Perry.

There's one problem. I don't use recorset connection type. I use
control
source.


The code I wrote, that was on garny site, it looks good, I just don't
know
where to use.

Marco

:

Add two labels to yr form
Label1 (progress front backcolor: some blue)
Label2 (progress backcolor: white; width according to yr design)
(position Label1 inside Label2)
whereby [rs] is an instantiated recordset object variable.

Dim iMax as integer, iCnt as integer
iCnt =1
iMax = rs.RecordCount
Do Until rs.EOF
'Do some stuff with records
Me.Label1.width = me.Label2.width * (iCnt / iMax)
me.Repaint
rs.MoveNext
Loop

Krgrds,
Perry

"Marco" <[email protected]> schreef in bericht
Hi. How can I insert a simple progress bar in my form. I have a form
that
takes a lot to load, and I would like to put a progress bar so users
could
see that the form is loading and the computer is not stopped.

Any idea how to do this?

Regards,
Marco