[AccessD] How to detect if Hourglass is true

How about turning on KeyPreview, trapping any keystroke in the KeyDown event
and turning it off after your code finishes?

Rocky
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David McAfee
Sent: Thursday, February 16, 2012 11:42 AM
To: Access Developers discussion and problem solving;
ACCESS-L at peach.ease.lsoft.com
Subject: Re: [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
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com