[AccessD] How to detect if Hourglass is true

I've done this when needed:

'----------------
Private Sub butAction_Click()
On Error GoTo EH

    Static blnOpening As Boolean

    If blnOpening = True Then Exit Sub
    blnOpening = True

    '-- Code here
    
    blnOpening = False

    Exit Sub
    
EH:
    blnOpening = False

End Sub
'----------------

HTH!
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Benson, William
(GE Global Research, consultant)
Sent: Friday, February 17, 2012 1:10 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] How to detect if Hourglass is true

My new Logitech mouse has been constantly double-clicking when I mean it to
single-click. I hope I don't have to go your route!!!

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David McAfee
Sent: Thursday, February 16, 2012 2:25 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] How to detect if Hourglass is true

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
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com