I created a VB Application in Excel. I have a combo box called ExistingScript_cbo which is populated with names from an Oracle database. Because it takes a few seconds to actually connect and drop down with the list, I have been told by users that they think their screen freezes. I am trying to code that when the user clicks on the combo box arrow, an hour glass will appear until the request is satisfied.
The following code isn't really doing anything for me although it compiles fine:

Private Sub existingScript_cbo_Click()

    If IsNull(ExistingScript_cbo.Value)= False Then
        ExistingScript_cbo.MousePointer = fmMousePointerHourGlass
    Else
        ExistingScript_cbo.MousePointer = fmMousePointerDefault
    End If

End Sub

I also need to make sure it goes back to the arrow once the drop down list comes up. Any ideas?


Thanks,
TechGirl

TechGirl,

try using It makes more sense than tying the cursor just to the dropdown, because Excel isn't going to be doing anything else while it's off populating the list for you.

HTH

Chris


There are two secrets to success in this world:
1. Never tell everything you know

Thanks chrislepingwell.
I had tried that before but that alone keeps the hourglass up the entire time and even selects names from the list with the hour glass. I need it to go back to the arrow once the drop down box is populated. I tried using the following code but still not doing very good:

    Application.Cursor = xlWait
    Application.Wait Now + TimeValue("0:00:03")
    Application.Cursor = xlDefault

It never changes to the hourglass but waits 3 seconds..
Any ideas?


Thanks,
TechGirl

OK, I think you need to re-organise your code a little.

First off, create a subroutine to populate the dropdown. In this routine use Then add a call to that routine from the dropdown's Click event. This should ensure that the hourglass is only shown for the duration of the populating event.

Beautiful..

That works great.. Thanks a lot!
Don't know what I was thinking..

:)



Thanks,
TechGirl