HourGlass Property

[JRA]

Help ...

OK ... I've included my code and what I'm trying to do is turn the hourglass property on after I've clicked on my label and while I'm waiting to open my query. Then I want the hourglass to go off once the query opens. I've tried a number of things, but I can't seem to get this to work -usually the hourglass stays on a nd won't turn off until I close down my database and don't save the changes. Believe it or not, I've been working on this on and off for the entire day and just can't seem to get this darn things to work. I hope someone is able to help me. Thanks a lot.




Private Sub Label77_Click()

On Error GoTo Err_AC_Printer_Serial_Click

Dim stDocName As String

stDocName = "Qry1_AC_Printer"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_AC_Printer_Serial_Numbers_Click:
Exit Sub

Err_AC_Printer_Serial_Click:
MsgBox Err.Description
Resume Exit_NB_Printer_Serial_Numbers_Click

End Sub

 

[gwinn7]

You mean something like this....

"...On Error GoTo Err_AC_Printer_Serial_Click

Dim stDocName As String

screen.mousepointer = 11 <--- Mouse Pointer to Busy

stDocName = &quot;Qry1_AC_Printer&quot;
DoCmd.OpenQuery stDocName, acNormal, acEdit

screen.mousepointer = 1 <--- Mouse Pointer to idle

Exit_AC_Printer_Serial_Numbers_Click:
Exit Sub...&quot;

Does this help?

Gary
gwinn7

 

[krymat]

Is there anything wrong with using
docmd.hourglass true/false

 

[gwinn7]

Some developers may want to port their code to Visual Basic. The 'Docmd' object will become a compile problem in VB. That is primary reason I know of. I prefer to stick as close to VB native code as possible. Otherwise, why not use Docmd.

Gary
gwinn7