Use of HourGlass!

[Bob Vance]

When I click on this Control it cab take 20-30 seconds for the dropdown list
to appear is there any way I can turn the cursor into an HourGlass to show
it is still trying to open my records
Private Sub cmdFinishHorse_Click()
Me.cbHorseFinished.Requery
Me.cbHorseFinished.SetFocus
Me.cbHorseFinished.Dropdown
End Sub

 

[Bob Vance]

I suppose this will do it?
Does it look right to you?
Regards Bob
Private Sub cmdFinishHorse_Click()
DoCmd.Hourglass True
Me.cbHorseFinished.Requery
Me.cbHorseFinished.SetFocus
Me.cbHorseFinished.Dropdown
DoCmd.Hourglass False
End Sub

 

[Douglas J. Steele]

The syntax is correct.

Do it do what you want it to?

 

[Jeff Boyce]

Bob

Another way to approach this is to ask why it takes 20-30 seconds for the
dropdown list to appear...

What is the query or SQL that combobox is based on?

How many items are in the list that drops down?

Where is the query/SQL pulling the data from?

Regards

Jeff Boyce
Microsoft Office/Access MVP

 

[Tom Wickerath]

Hi Bob,

I agree with Jeff Boyce....rather than use code to provide eye candy, I
would try to solve the problem.
Have you installed Service Pack 1 for Office 2007? Perhaps this hotfix
might help:

Description of the Access 2007 hotfix package (Access.msp): August 26, 2008
http://support.microsoft.com/kb/956054

The third bullet in the Introduction section includes:
"After you upgrade Access 2003 to Access 2007, operations on existing forms
have slow performance."

So, it's worth a shot to see if this hotfix might help. Access MVP Allen
Browne maintains an up-to-date listing of all hotfixes for Access 2007. This
is how I quickly located the above hotfix. Allan's page is found here:
http://allenbrowne.com/Access2007.html


Tom Wickerath
Microsoft Access MVP
http://www.accessmvp.com/TWickerath/
__________________________________________


When I click on this Control it cab take 20-30 seconds for the dropdown list
to appear is there any way I can turn the cursor into an HourGlass to show
it is still trying to open my records
Private Sub cmdFinishHorse_Click()
Me.cbHorseFinished.Requery
Me.cbHorseFinished.SetFocus
Me.cbHorseFinished.Dropdown
End Sub