HourGlass Property Again ...

[JRA]

Hello again ...

Thanks everybody for all your help, but for some reason the 'Screen.MousePointer = 11' and the 'Screen.MousePointer = 1' statements do not seem to do anything at all. I've also tried the' DoCmd.Hourglass True' and the' DoCmd.Hourglass False' statement in the same places as shown im the attached code and it doesn't do anything either. Do you think it has something to do with the item being clicked on being a label? And does anyone have any other suggestions on how I could get this thing to work.

Thanks again for everything Everybody. You all have been a great help!!!

James.


Private Sub Label77_Click()

On Error GoTo Err_AC_Printer_Serial_Click

Dim stDocName As String

Screen.MousePointer = 11

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

Screen.MousePointer = 1

Exit_AC_Printer_Serial_Click:
Exit Sub

Err_AC_Printer_Serial_Click:
MsgBox Err.Description
Resume Exit_AC_Printer_Serial_Click

End Sub

 

[tlbroadbent]

JRA,

I for one would appreciate it if you would continue the same problem in one thread rather than creating a new thread with each post about the problem. Terry
------------------------------------
Blessed is the man who, having nothing to say, abstains from giving us worthy evidence of the fact. -George Eliot

 

[krymat]

You're right the hourglass method doesn't work when called from a label.

Does the object you're clicking have to be a label?