"Program Running" Message

[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?

 

[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,