Progress bar based on percentage

[Adnan]

I have implemented a Progress bar explained on this article:
http://support.microsoft.com/kb/283030.
However, this is still not what I am looking for, what I need is a Progress
bar just like this one, but based on percentage field (bound Form with a
percentage field). Say, the percentage field is 80%, have the progress bar
show as such (80% progressed).

Anyone help, tip comments is much appreciated.
Adnan

 

[Daniel Pineault]

Have you taken a look at

http://www.rogersaccesslibrary.com/OtherLibraries.asp

Specifically, Lambert Heenan's 'ProgressBar.mdb (38 KB) Access 97, 2000,
XP'. In vba you control the min,max and current values. So you can easily
set it up on a scale ranging from 0 to 100 and theredore use %.

 

[Adnan]

I see it is done with labels but this defiantly answers my question.

Thank you Daniel,
Adnan

 

[Adnan]

Thanks to a friend of mine Behar, here’s the answer of the question asked on
this post:

Assuming you inserted an ActiveX control (Insert>ActiveX>Microsoft
ProgressBar 6.0…). Double click on it, set Min 0 and Max 1.00 and then pase
the following code on the form.

‘----start of coe----
Private Sub Form_Current()
Call ChangeStatus
End Sub

Private Sub Percentage_AfterUpdate()
Call ChangeStatus
End Sub

Sub ChangeStatus()
Dim X As Single
X = Me.Percentage
If Me.Percentage > 1 Then X = 1
Me.ProgressBar0.Value = X
End Sub
‘----end of code----

Just thought I post it so the other will benefit.

Cheers,
Adnna