progress bar

[Martin]

Hello, Can anyone tell me how to insert a progress bar on
a form and initialize it, so that it seems as if it is
working. What I am trying to do is just create a dummy
progress bar for my splash screen, as a visual effect. I
inserted a bar using the ActiveX controls, I just don't
know how to initialize it.
Thanks,
Martin

 

[Allen Browne]

SysCmd() provides a way to mess with a status meter, using acSysCmdInitMeter
and acSysCmdUpdateMeter.

Alternatively, you could just use a label on a form and keep adding block
characters to it.

 

[Allen Browne]

SysCmd() provides a way to mess with a status meter, using acSysCmdInitMeter
and acSysCmdUpdateMeter.

Alternatively, you could just use a label on a form and keep adding block
characters to it.

 

[Andy Cole]

Hi Martin

Instead of using an ActiveX control use the tip from Tony Toews' site (its
towards the end of the page at the following link - very simple and works a
treat;

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

Andy

 

[Andy Cole]

Hi Martin

Instead of using an ActiveX control use the tip from Tony Toews' site (its
towards the end of the page at the following link - very simple and works a
treat;

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

Andy

 

[sam]

The following should work fine for you:
progress bar is named ocxProgressBar1
You can set the values for minimumm, maximum and increment
instead of using text boxes on the screen.


Private Sub cmdShowNewProgress_Click()
Dim intCounter As Integer
'-- Initialize the Progress controls
Me!ocxProgressBar1.Min = Me.txtminimum
Me!ocxProgressBar1.Max = Me.txtmaximum
'-- Increment the Value properties for the Progress
controls
For intCounter = Me.txtminimum To Me.txtmaximum Step
Me.txtincrement

Me!ocxProgressBar1.Object.Value = intCounter

Next intCounter

Beep
MsgBox "Progress bar complete"
End Sub

 

[sam]

The following should work fine for you:
progress bar is named ocxProgressBar1
You can set the values for minimumm, maximum and increment
instead of using text boxes on the screen.


Private Sub cmdShowNewProgress_Click()
Dim intCounter As Integer
'-- Initialize the Progress controls
Me!ocxProgressBar1.Min = Me.txtminimum
Me!ocxProgressBar1.Max = Me.txtmaximum
'-- Increment the Value properties for the Progress
controls
For intCounter = Me.txtminimum To Me.txtmaximum Step
Me.txtincrement

Me!ocxProgressBar1.Object.Value = intCounter

Next intCounter

Beep
MsgBox "Progress bar complete"
End Sub

 

[Sandra Daigle]

Hi Martin,

For several examples of different progress bars you might want to look at my
sample db on www.daiglenet.com/msaccess.htm.

 

[Sandra Daigle]

Hi Martin,

For several examples of different progress bars you might want to look at my
sample db on www.daiglenet.com/msaccess.htm.