Re: ProgressBar help needed
You have a Loop call in there without any Do Until call.
Re: ProgressBar help needed
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:
Re: ProgressBar help needed
Ok, so between the two cmdPrintSiteInfo.Enabled lines is what your processing and would like a progressbar to show?
Re: ProgressBar help needed
Re: ProgressBar help needed
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