ProgressBar help needed

Hi Guys,

I need to show a progressbar while the following sub is being executed:

The progressbar will be on another form and it should show while the sub is being executed and once the sub has executed, it must dissappear.

I tried doing it but the progressbar wasn't showing any progress. I've deleted what I tried.

Could someone please modify the following code to include the progressbar.:thumb:

Code:

---

Private Sub cboSite_Click()

On Error GoTo errh

cmdPrintSiteInfo.Enabled = False
SiteNum = cboSite.ItemData(cboSite.ListIndex)

Call LoadSite(SiteNum)
LoadConsumable (SiteNum)
Call LoadSiteInfo("({Command.SiteId} = " & SiteNum & ")")

cboNotes.Enabled = True

Call PopulateNoteCombos(SiteNum)


'Unload Form3
NewRecNote = False
NewNote = False
cmdPrintSiteInfo.Enabled = True

Exit Sub
   
errh:
    errmsg "The following Exception occured : " & ERR.Description & ",  " & ERR.Source & "", "Exception occured in frmItemManager.cboSite_Click()"


End Sub

---

You have a Loop call in there without any Do Until call.

Quote:

---

Originally Posted by RobDog888

You have a Loop call in there without any Do Until call.

---

sorry, forgot to remove that. that was the remains of the code I tried. Will remove it now.:afrog:

Ok, so between the two cmdPrintSiteInfo.Enabled lines is what your processing and would like a progressbar to show?

yes, that's right

Then its not going to be possible to get an accurate representation as some functions will take longer then others.

Try...

Code:

---

cmdPrintSiteInfo.Enabled = False
Progressbar1.Min = 0
Progressbar1.Max = 60
Progressbar1.Value = 0
SiteNum = cboSite.ItemData(cboSite.ListIndex)
Progressbar1.Value = 10
Call LoadSite(SiteNum)
Progressbar1.Value = 20
LoadConsumable (SiteNum)
Progressbar1.Value = 30
Call LoadSiteInfo("({Command.SiteId} = " & SiteNum & ")")

Progressbar1.Value = 40
cboNotes.Enabled = True

Progressbar1.Value = 50
Call PopulateNoteCombos(SiteNum)

'Unload Form3
Progressbar1.Value = 60
NewRecNote = False
NewNote = False
cmdPrintSiteInfo.Enabled = True

---