Deactivate Hourglass in a form

[StefanSch]

Hello,

I have a form in which users should add numbers.

After every entry into the text boxes, MS Access performs some calculations on query level. As the calculation may last some 1 or two seconds, MS Access shows the hourglass automatically after every entry.

How can I achieve that MS Access does not show the hourglass for this specific situation? (DoCmd.Hourglass False does not work since MS Access shows the hourglass automatically).

Thanks.

Stefan

 

[Vassago]

Try this,

docmd.hourglass (0)

This should work, I did it with an installer database I created and the mouse pointer stays as an arrow during the installation instead of the hourglass.

Hope that helps.

 

[StefanSch]

Thank you.

I'll give this a try.

regards, Stefan

 

[StefanSch]

Hi

Unfortuantely,

this is not deactivating the hourglass. It still a apears for about a a second.

any ideas?

regards, Stefan

 

[Vassago]

Can you post a sample of the database and what you are doing to make the hourglass appear. The above code should work.

It worked for me for many different situations.

The only thing I can think of that would cause it to not work is if Access isn't causing the hourglass, but maybe the PC itself because of some internal work.

Vassago

 

[StefanSch]

Hello

Here is the code that makes the hourglass currently disappear.

_________________________________

Private Sub Field1_AfterUpdate()
On Error Resume Next
Update:
docmd.hourglass (0)
Me.Recalc
If (Parent("Difference")) < 0 Then
Beep
Dim Message, Title, Default, Answer
Message = "Die Eingabe von" & vbLf & _
vbLf & " -- " & [Field1] & " --" & vbLf & _
vbLf & "ist zu hoch!" & vbLf & _
vbLf & "Bitte geben Sie eine kleinere Zahl ein." & vbLf & _
vbLf & "(Vorschlag: " & ([Field1] - 1) & ")" & vbLf & _
vbLf
Title = "Achtung"
Default = [Field1] - 1
Answer = InputBox(Message, Title, Default)
[Field1] = Answer
GoTo Update:
End If
SendKeys (Chr$(vbKeyTab))
End Sub

_______________________________

I hope this will help you.

The hourglass disappears for about 1 - 2 seconds.

Tanks, Stefan

 

[sambo]

Maybe try using DoEvents

docmd.hourglass (0)
DoEvents

 

[StefanSch]

I tried now

docmd.hourglass (0)
DoEvents

No difference. The hourglass still appears.

I really thank you all for your great help !!!

regards, Stefan