"Program Running" Message

M

Matt

I have an Access form with code attached to a "run" botton. The program takes
awhile to finish so I want a message such as "Program Running, Stand By" to
be displayed untill the program is complete. How do I do it?
 
G

George Nicholson

Dim varSysCmdRef As Variant

varSysCmdRef = SysCmd(acSysCmdSetStatus, "Processing, Please Wait....")
.... when done
varSysCmdRef = SysCmd(acSysCmdSetStatus, " ")

You don't do anything with varSysCmdRef. SysCmd() requires an assignment to
a Variant variable.

And, for reinforcement, there is always:
DoCmd.Hourglass True
DoCmd.Hourglass False

HTH,
 
Top