mouse pointer question
 

i have a multi-formed routine that gives the user specific options to get
from point A in the program to Point B. along the way the user has, via
their option selections, has added new data to my worksheet. when that
process is done the user ends up "on" the last form which provides the
options "save and exit" or "exit without save". regardless of which option
the user selects the forms graphics changes slightly and he/she is told "one
moment please" while their "command" is being processed (data being saved).
unfortunately, when they make their choice of options, the mouse pointer
stays on the selected button and does NOT take the form of an hourglass which
they are used to letting them know that something is happening. if i
physically move the mouse ponter off of the active form the hourglass appears
and they are happy. the question (finally) is is there code to move the
mouse pointer from position X (on last button clicked) to another location
off of the active form so the hourglass will show up ? this is probably very
simple for you smart folks but my lightbulb has been dimming for years so any
help will be greatly greatly appreciated !!!

mouse pointer question
 

Application.Cursor =xlWait ' this makes it an hourglass
Application.Cursor = xlDefault ' resets it
Do the first before the save code runs, then reset it after.
--
- K Dales


"lightbulb_bill" wrote:

i have a multi-formed routine that gives the user specific options to get
from point A in the program to Point B. along the way the user has, via
their option selections, has added new data to my worksheet. when that
process is done the user ends up "on" the last form which provides the
options "save and exit" or "exit without save". regardless of which option
the user selects the forms graphics changes slightly and he/she is told "one
moment please" while their "command" is being processed (data being saved).
unfortunately, when they make their choice of options, the mouse pointer
stays on the selected button and does NOT take the form of an hourglass which
they are used to letting them know that something is happening. if i
physically move the mouse ponter off of the active form the hourglass appears
and they are happy. the question (finally) is is there code to move the
mouse pointer from position X (on last button clicked) to another location
off of the active form so the hourglass will show up ? this is probably very
simple for you smart folks but my lightbulb has been dimming for years so any
help will be greatly greatly appreciated !!!

mouse pointer question
 

l_b

Something like this ? ...
'-------------------
Private Sub CommandButton1_Click()
CommandButton1.Caption = "Please Wait"
CommandButton1.MousePointer = fmMousePointerHourGlass
UserForm1.MousePointer = fmMousePointerHourGlass

'Do stuff

Me.Hide
End Sub
'-------------------

Jim Cone
San Francisco, USA


"lightbulb_bill" wrote in message
...
i have a multi-formed routine that gives the user specific options to get
from point A in the program to Point B. along the way the user has, via
their option selections, has added new data to my worksheet. when that
process is done the user ends up "on" the last form which provides the
options "save and exit" or "exit without save". regardless of which option
the user selects the forms graphics changes slightly and he/she is told "one
moment please" while their "command" is being processed (data being saved).
unfortunately, when they make their choice of options, the mouse pointer
stays on the selected button and does NOT take the form of an hourglass which
they are used to letting them know that something is happening. if i
physically move the mouse ponter off of the active form the hourglass appears
and they are happy. the question (finally) is is there code to move the
mouse pointer from position X (on last button clicked) to another location
off of the active form so the hourglass will show up ? this is probably very
simple for you smart folks but my lightbulb has been dimming for years so any
help will be greatly greatly appreciated !!!