Setting Hour Glass on Click Event (1 Viewer)

[marnieg]

I have a form that performs a procedure on the click event. I want to set the properties of the mouse to an hour glass so that user knows the process is running.

Is this possible and what is the code for this action.

Thank you,
Marnie

 

[boblarson]

A couple of different ways:

DoCmd.Hourglass True
DoCmd.Hourglass False

or

Screen.MousePointer = 11
Screen.MousePointer = 1

 

[marnieg]

Thank you. I knew it was something easy, but forgot about the DoCmd properties.

 

[James Pye]

Hi marnieg,

I am also looking to implement DoCmd.Hourglass, as I have 10 queries that I am executing in one go. I have included .SetWarnings to hide the warning messages when the queries are running.

Is there a specific place where you would put DoCmd.Hourglass False - as I have read threads on other websites that if this is incorrect the hourglass will not disappear?

 

[vbaInet]

... - as I have read threads on other websites that if this is incorrect the hourglass will not disappear?

If you don't set it to false then it wouldn't disappear. What you want to do is also put it on the error handler so that if an error occurs you set it to false.

 

[James Pye]

Thanks for the info. The error handling part of the code is:

Err_cmd_Update_Click:
MsgBox Err.Description
Resume Exit_cmd_Update_Click

I presume I would just add it before Resume Exit but does it matter if it is before or after the MsgBox?

 

[vbaInet]

It's up to you. If you want to appear before or after the msgbox. Either way is fine.