Re: turn hourglass off

From: RobFMS (Rob_at__DropThis_fmsinc.com)
Date: 03/10/04 

Date: Wed, 10 Mar 2004 11:00:34 -0500

Emily

If you are opening a query for the user to perform edits, then it is not
necessary to use the hourglass. It is recommended to use the hourglass when
you have an action query, such as when you are executing a delete query or
an update query. 

-- 
Rob
FMS Professional Solutions Group
http://www.fmsinc.com/consulting
Software Tools for .NET, SQL Server, Visual Basic & Access
http://www.fmsinc.com
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
"Emily V" <anonymous@discussions.microsoft.com> wrote in message
news:C8078B10-4747-42C6-BA28-828B25439DC1@microsoft.com...
> 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

Relevant Pages

  • Re: Passing an argument from a query to a Macro
    ... The first thing to note is that the RunQuery procedure relates to which is a *select* query. ... Private Sub Reminder_Letter_Command_Click ... Dim SendTo As String ... MsgBox "This is stDocName Value " & stDocName ...
    (microsoft.public.access.macros)
  • Re: delet query password
    ... You then only run a temporary query, and have no permanent one in the ... Private Sub Run_Query_Click ... Dim Message, Title, Default, MyValue, stDocName ...
    (microsoft.public.access.queries)
  • Re: Help with code
    ... It looks from the code that you are actually running a query and that it is ... I would just add a check to the biginning of the Sub ... Dim stDocName As String ... inserting and where? ...
    (microsoft.public.access.formscoding)
  • Re: Help with code
    ... It looks from the code that you are actually running a query and that it ... I would just add a check to the biginning of the Sub ... Dim stDocName As String ... inserting and where? ...
    (microsoft.public.access.formscoding)
  • filter on command
    ... Private Sub Command68_Click ... Dim stDocName As String ... stDocName = "FORM QUERY" ...
    (microsoft.public.access.formscoding)