Of the many posts I found, Marshal Barton's seemed to offer the most promise. However, I can't get it to work no matter where I've tried. I.e., OnClick, OnOpen, etc
Any suggestions?Code:DoCmd.Hourglass True Me.Repaint DoEvents
Of the many posts I found, Marshal Barton's seemed to offer the most promise. However, I can't get it to work no matter where I've tried. I.e., OnClick, OnOpen, etc
Any suggestions?Code:DoCmd.Hourglass True Me.Repaint DoEvents
You say it doesn't work but have you checked that the code fires/runs.
In the On Click event of a button, for example, it should change the cursor to the hourglass.
Does that not happen for you?
If this helped, please click the star at the bottom left of this posting and add to my reputation . Many thanks.
Bob Fitzpatrick
As I said, if I try it in the OnOpen event or one of the OnClick events it does not work.
You do know that the hourglass is now just a revolving circle?
Please use # icon on toolbar when posting code snippets.
Cross Posting: https://www.excelguru.ca/content.php?184
Debugging Access: https://www.youtube.com/results?sear...bug+access+vba
Have checked that the code does actually fire/run.
If this helped, please click the star at the bottom left of this posting and add to my reputation . Many thanks.
Bob Fitzpatrick
Nope. Anyway to get the revolving circle to appear alongside the pointer?
In my application, it would really be better to change the pointer itself. Case in point is when one turns on the hourglass which is followed by the dropdown of the combo box. As soon as the revolving circle is hovered over one of the combo choices, the revolving ceases. With that, it's no longer intuitively obvious to the user that the app is waiting.
Really?
I just tried the code below and just got the stupid circle you see when waiting for webpages to load etc?
Comment out the True and nothing is shown, with True running, I get that blue circle.Code:Private Sub Command38_Click() Dim i As Integer DoCmd.Hourglass True For i = 1 To 100 Debug.Print "count is " & i DoEvents Next DoCmd.Hourglass False End Sub
Win10 Pro 21H2 with Access 2007
Please use # icon on toolbar when posting code snippets.
Cross Posting: https://www.excelguru.ca/content.php?184
Debugging Access: https://www.youtube.com/results?sear...bug+access+vba
Mouse pointer is a Windows setting. If you want something other than what your current options are, I believe you'll have to use an API.
FWIW, that simple code works for me on a form open, but I do get the circle, seeing as how that's the option (and the options are influenced by the Windows schemes).
The more we hear silence, the more we begin to think about our value in this universe.
Paraphrase of Professor Brian Cox.
I thought as much. I have much "bigger fish to fry" today, so now knowing about the revolving circle versus hourglass, "I'll close out the OP and move on.
Please use # icon on toolbar when posting code snippets.
Cross Posting: https://www.excelguru.ca/content.php?184
Debugging Access: https://www.youtube.com/results?sear...bug+access+vba