Status Bar Text at the application level 1

[mike777]

Hello.
Suppose you have a procedure that loops around say, 1000 times. You want to update the user as to the progress of the procedure via the Status Bar. Is there a way to update the status bar via VBA code, like at the end of a loop in a procedure.
Thank you.
-Mike Kemp

 

[RoyVidar]

Hi!

You should be able do that using the SysCmd method, try running something like this (put in some breakpoints/msgboxes... to see what's happening;-)):

[tt]dim varReturn as variant
dim strMsg as string
conMax=1000
dim lngCounter as long
strMsg = "Updating something"
varReturn=syscmd(acSysCmdSetStatus, strMsg)
varReturn=syscmd(acSysCmdInitMeter, strMsg, conMax)
for lcounter=1 to conMax
varReturn=syscmd(acSysCmdUpdateMeter, lcounter)
next lcounter
varReturn=syscmd(acSysCmdClearStatus)[/tt]

- typed not tested...

Roy-Vidar

 

[mike777]

Roy-Vidar,
Many thanks.
Works perfectly.
-Mike