turn hourglass off

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Emily V (anonymous_at_discussions.microsoft.com)
Date: 03/10/04 

Date: Wed, 10 Mar 2004 06:31:08 -0800

Ok, now that I have the hourglass ON - it won't turn off!
I included the DoCmd.Hourglass False in the code...

Here's the full code.

Private Sub runUpdateQuery_Click()

On Error GoTo Err_runUpdateQuery_Click

    Dim stDocName As String

    stDocName = "qryUpdateLandCSZ"
    DoCmd.SetWarnings False
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    DoCmd.SetWarnings True
    RetValue = MsgBox("Thank You", vbExclamation)
    DoCmd.Hourglass True

Exit_runUpdateQuery_Click:
    DoCmd.Hourglass False
    Exit Sub

Err_runUpdateQuery_Click:
    MsgBox Err.Description
    DoCmd.Hourglass False
    Resume Exit_runUpdateQuery_Click
    
End Sub

Quantcast