can't get hourglass to work

[karen scheu via AccessMonster.com]

I know this topic has been discussed, but I can not find a reply to the
problem where the hourglass does not start when expected to. Is there a
system setting that may be overriding this command. The hourglass does not
show up before the following queries are run. It looks to the user like
nothing is happening.

Here is my code:

DoCmd.Hourglass True
Me.RecordSource = "Select * FROM qrpt201Summary " _
& "WHERE " & Me.OpenArgs
Me!cboDivision.RowSource = "Select DISTINCT div_code, div_name FROM
qrpt201Summary WHERE " & Me.OpenArgs
Me!cboCustomer.RowSource = "Select DISTINCT [firstofsdan8],
[firstofabalph] FROM qrpt201Summary WHERE " & Me.OpenArgs & " Order By
[firstofabalph]"
DoCmd.Hourglass False

Thanks.

 

[Dirk Goldgar]

I know this topic has been discussed, but I can not find a reply to
the problem where the hourglass does not start when expected to. Is
there a system setting that may be overriding this command. The
hourglass does not show up before the following queries are run. It
looks to the user like nothing is happening.

Here is my code:

DoCmd.Hourglass True
Me.RecordSource = "Select * FROM qrpt201Summary " _
& "WHERE " & Me.OpenArgs
Me!cboDivision.RowSource = "Select DISTINCT div_code, div_name
FROM qrpt201Summary WHERE " & Me.OpenArgs
Me!cboCustomer.RowSource = "Select DISTINCT [firstofsdan8],
[firstofabalph] FROM qrpt201Summary WHERE " & Me.OpenArgs & " Order By
[firstofabalph]"
DoCmd.Hourglass False

Thanks.

I'm not sure this will be sufficient, but try inserting the statement

DoEvents

after setting the hourglass and before assigning the recordsource and
rowsources

 

[Guest]

Try Refreshing the form with me.refresh after you assign recordsource and
between assigning rowsources.

 

[Dirk Goldgar]

Try Refreshing the form with me.refresh after you assign recordsource
and between assigning rowsources.

There would be no benefit to that. Assigning to the form's RecordSource
property forces the form to be requeried anyway.