[AccessD] How to detect if Hourglass is true

I found it.

If Screen.MousePointer <> 11 Then

Screen.MousePointer = 1 'Standard Cursor
Screen.MousePointer = 3 ' I Beam
Screen.MousePointer = 7 'Double Arrow Vertical
Screen.MousePointer = 9 'Double Arrow Horizontal
Screen.MousePointer = 11 'Hour Glass


On Thu, Feb 16, 2012 at 11:24 AM, David McAfee <davidmcafee at gmail.com>wrote:

> If have a new user that loves to double/triple click buttons.
>
> One procedure takes a few seconds to run.
>
> I set the focus to the previous text box and display an hourglass as such:
>
> Me.txtSN.SetFocus
> DoCmd.Hourglass True
>     'Do a bunch of stuff here
> DoCmd.Hourglass False
>
>
> I'd like to wrap an IF statement around it such as:
>
> If Hourglass =False
>   Me.txtSN.SetFocus
>   DoCmd.Hourglass True
>     'Do a bunch of stuff here
>   DoCmd.Hourglass False
> End if
>
> Does anyone know of the correct call?
>
> I guess I can set a hidden field to 1 and check that if needed, but I'd
> like to see if I can detect the hourglass first.
>
> I've also thought of sending signal out the USB port that will active a
> solenoid that would
> send a fly swatter towards the users face, slapping them, but I might get
> in trouble for that one.
>
> Any thoughts?
>
> Thanks much,
> David
>