R
RLN
Hello.
My situation has to with keeping the user informed of what's going on while
some processing gets done.
Per the code below, I have a series of tasks in my Access app and I am using
"SysCmd acSysCmdSetStatus" to tell the user which of the steps is currently
processing. These messages are static and stay on the screen so long as the
process runs.
Is there a way to display some sort of animation (like a status bar changing
colors) that would show them that in addition to the static message sitting
on the screen that there is something actually going on "under the hood"?
I don't know if this would be more complicated but would it be easier to
display a percentage completed, with numbers changing in real time?
If you've ever done this sort of thing, I'm open to suggestions.
(I know there are 3rd party products out there that do this but I need to do
it with code as mgmt won't buy 3rd party controls right now)
Thanks.
<begin code>
strText = "Executing Part 1 of 3...please wait...."
SysCmd acSysCmdSetStatus, strText
Call Step1LoadPSData
DoEvents
strText = "Executing Part 2 of 3...please wait...."
SysCmd acSysCmdSetStatus, strText
Call Step2LoadWorkTable
DoEvents
strText = "Executing Part 3 of 3...please wait...."
Call Step3MainProcessing
SysCmd acSysCmdSetStatus, strText
DoEvents
<end code>
My situation has to with keeping the user informed of what's going on while
some processing gets done.
Per the code below, I have a series of tasks in my Access app and I am using
"SysCmd acSysCmdSetStatus" to tell the user which of the steps is currently
processing. These messages are static and stay on the screen so long as the
process runs.
Is there a way to display some sort of animation (like a status bar changing
colors) that would show them that in addition to the static message sitting
on the screen that there is something actually going on "under the hood"?
I don't know if this would be more complicated but would it be easier to
display a percentage completed, with numbers changing in real time?
If you've ever done this sort of thing, I'm open to suggestions.
(I know there are 3rd party products out there that do this but I need to do
it with code as mgmt won't buy 3rd party controls right now)
Thanks.
<begin code>
strText = "Executing Part 1 of 3...please wait...."
SysCmd acSysCmdSetStatus, strText
Call Step1LoadPSData
DoEvents
strText = "Executing Part 2 of 3...please wait...."
SysCmd acSysCmdSetStatus, strText
Call Step2LoadWorkTable
DoEvents
strText = "Executing Part 3 of 3...please wait...."
Call Step3MainProcessing
SysCmd acSysCmdSetStatus, strText
DoEvents
<end code>