[AccessD] How to detect if Hourglass is true

I just disable the button until the routine has run to completion.

Lambert 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kovacs, Bruce
Sent: Friday, February 17, 2012 9:38 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] How to detect if Hourglass is true


I use a message box just before my Exit Routine to stop multiple hits.


    MsgBox ("Done Printing !!!") 'Used to stop multiple hits on Print command button


Bruce Kovacs


-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Thursday, February 16, 2012 03:10 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [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

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


This e-mail and any attachments contain URS Corporation confidential information that may be proprietary or privileged. If you receive this message in error or are not the intended recipient, you should not retain, distribute, disclose or use any of this information and you should destroy the e-mail and any attachments or copies.

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