Mousepointer problems

[jdj]

Hi,

I have a function that takes a while to run so I would
like to change the mousepointer to the hourglass and then
back again. However with the code I am currently using
the mousepointer does not change. Here is the code.

On Error GoTo ErrorHandler
Screen.MousePointer = 11
DoCmd.OpenForm "frmEmployeePerformance", acNormal
DoEvents
Forms!frmEmployeePerformance.LoadEmployees
(lbxHours.SelectedItem.Text)
Screen.MousePointer = 0
Exit Sub
ErrorHandler:
MsgBox Error$

Thanks for the help.

Jason

 

[Gary Miller]

Jason,

Change your Pointer lines to use the Hourglass method...

DoCmd.Hourglass True 'Hourglass is now on.
DoCmd.Hourglass False 'Off

Make sure and put the Off one in your Error Handler or it
may stay on until you reboot if there is a problem <grin>.

Gary Miller