Delay of Hourglass

[Henry Stockbridge]

Hi,

I am running the following code and the visibility of the Hourglass
appears late, instead of immediately. Any ideas of how I can remedy
this?

=============

Private Sub lblUpdateMDList _Click()

Docmd.Hourglass True

Dim dbs As DAO.Database
Dim sSQL As String

Set dbs = CurrentDb()

' 1) Delete and append records
sSQL = "DROP TABLE tblRepLookUp"
dbs.Execute sSQL
sSQL = "SELECT qryMDHospRep.ho sCustomerID, "
sSQL = sSQL & "qryMDHospRep.p hyPhysicianID, "
sSQL = sSQL & "qryMDHospRep.S alesRepID, qryMDHospRep."
sSQL = sSQL & "SalesRepFirstN ame, qryMDHospRep."
sSQL = sSQL & "SalesRepLastNa me, qryMDHospRep.Sa lesRep, "
sSQL = sSQL & "qryMDHospRep.S alesRepType, qryMDHospRep."
sSQL = sSQL & "RegionRepI D, qryMDHospRep."
sSQL = sSQL & "RegionManagerF irstName, qryMDHospRep."
sSQL = sSQL & "RegionManagerL astName, qryMDHospRep."
sSQL = sSQL & "RegionMana ger INTO tblRepLookUp "
sSQL = sSQL & "FROM qryMDHospRep;"

dbs.Execute sSQL

Docmd.Hourglass False

MsgBox "Physician List Complete", vbInformation + vbOKOnly, "Process
Complete"
Set dbs = Nothing

End Sub

=============== =====

Thanks in advance,

Henry

[tommaso.gastaldi]

hi Henry ,

in the .Net languages I have seen often the following schema:

Application.DoE vents()
Cursor.Current = Cursors.WaitCur sor

' ... intensive task here ...

Cursor.Current = Cursors.Default
Application.DoE vents()

can you do something similar in the language you are you using ? Le me
know...

-t

Henry Stockbridge ha scritto:

Hi,

I am running the following code and the visibility of the Hourglass
appears late, instead of immediately. Any ideas of how I can remedy
this?

=============

Private Sub lblUpdateMDList _Click()

Docmd.Hourglass True

Dim dbs As DAO.Database
Dim sSQL As String

Set dbs = CurrentDb()

' 1) Delete and append records
sSQL = "DROP TABLE tblRepLookUp"
dbs.Execute sSQL
sSQL = "SELECT qryMDHospRep.ho sCustomerID, "
sSQL = sSQL & "qryMDHospRep.p hyPhysicianID, "
sSQL = sSQL & "qryMDHospRep.S alesRepID, qryMDHospRep."
sSQL = sSQL & "SalesRepFirstN ame, qryMDHospRep."
sSQL = sSQL & "SalesRepLastNa me, qryMDHospRep.Sa lesRep, "
sSQL = sSQL & "qryMDHospRep.S alesRepType, qryMDHospRep."
sSQL = sSQL & "RegionRepI D, qryMDHospRep."
sSQL = sSQL & "RegionManagerF irstName, qryMDHospRep."
sSQL = sSQL & "RegionManagerL astName, qryMDHospRep."
sSQL = sSQL & "RegionMana ger INTO tblRepLookUp "
sSQL = sSQL & "FROM qryMDHospRep;"

dbs.Execute sSQL

Docmd.Hourglass False

MsgBox "Physician List Complete", vbInformation + vbOKOnly, "Process
Complete"
Set dbs = Nothing

End Sub

=============== =====

Thanks in advance,

Henry

[Bob Quintal]

to************* *@uniroma1.it wrote in
news:11******** **************@ g10g2000cwb.goo glegroups.com:

hi Henry ,

in the .Net languages I have seen often the following schema:

Application.DoE vents()
Cursor.Current = Cursors.WaitCur sor

' ... intensive task here ...

Cursor.Current = Cursors.Default
Application.DoE vents()

can you do something similar in the language you are you using
? Le me know...

-t
Doevents is all one needs in VBA.

Docmd.Hourglass True
DoEvents

Dim dbs As DAO.Database
Dim sSQL As String

Set dbs = CurrentDb()

Q

Henry Stockbridge ha scritto:

Hi,

I am running the following code and the visibility of the
Hourglass appears late, instead of immediately. Any ideas of
how I can remedy this?

=============

Private Sub lblUpdateMDList _Click()

Docmd.Hourglass True

Dim dbs As DAO.Database
Dim sSQL As String

Set dbs = CurrentDb()

' 1) Delete and append records
sSQL = "DROP TABLE tblRepLookUp"
dbs.Execute sSQL
sSQL = "SELECT qryMDHospRep.ho sCustomerID, "
sSQL = sSQL & "qryMDHospRep.p hyPhysicianID, "
sSQL = sSQL & "qryMDHospRep.S alesRepID, qryMDHospRep."
sSQL = sSQL & "SalesRepFirstN ame, qryMDHospRep."
sSQL = sSQL & "SalesRepLastNa me, qryMDHospRep.Sa lesRep, "
sSQL = sSQL & "qryMDHospRep.S alesRepType, qryMDHospRep."
sSQL = sSQL & "RegionRepI D, qryMDHospRep."
sSQL = sSQL & "RegionManagerF irstName, qryMDHospRep."
sSQL = sSQL & "RegionManagerL astName, qryMDHospRep."
sSQL = sSQL & "RegionMana ger INTO tblRepLookUp "
sSQL = sSQL & "FROM qryMDHospRep;"

dbs.Execute sSQL

Docmd.Hourglass False

MsgBox "Physician List Complete", vbInformation +
vbOKOnly, "Process
Complete"
Set dbs = Nothing

End Sub

=============== =====

Thanks in advance,

Henry

--
Bob Quintal

PA is y I've altered my email address.

[tommaso.gastaldi]

Interesting.

It's also remarkable to note how in the .net context it is crucial the
position of the doevents w.r.t. the cursor setting (and this, according
Bob's suggestion, should be different from VBA):

"Note If you call Application.DoE vents before resetting the Current
property back to the Cursors.Default cursor, the application will
resume listening for mouse events and will resume displaying the
appropriate Cursor for each control in the application."

see:
http://msdn.microsoft.com/library/de...ClassTopic.asp

Bob Quintal ha scritto:

to************* *@uniroma1.it wrote in
news:11******** **************@ g10g2000cwb.goo glegroups.com:

hi Henry ,

in the .Net languages I have seen often the following schema:

Application.DoE vents()
Cursor.Current = Cursors.WaitCur sor

' ... intensive task here ...

Cursor.Current = Cursors.Default
Application.DoE vents()

can you do something similar in the language you are you using
? Le me know...

-t

Doevents is all one needs in VBA.

Docmd.Hourglass True
DoEvents

Dim dbs As DAO.Database
Dim sSQL As String

Set dbs = CurrentDb()

Q

Henry Stockbridge ha scritto:

Hi,

I am running the following code and the visibility of the
Hourglass appears late, instead of immediately. Any ideas of
how I can remedy this?

=============

Private Sub lblUpdateMDList _Click()

Docmd.Hourglass True

Dim dbs As DAO.Database
Dim sSQL As String

Set dbs = CurrentDb()

' 1) Delete and append records
sSQL = "DROP TABLE tblRepLookUp"
dbs.Execute sSQL
sSQL = "SELECT qryMDHospRep.ho sCustomerID, "
sSQL = sSQL & "qryMDHospRep.p hyPhysicianID, "
sSQL = sSQL & "qryMDHospRep.S alesRepID, qryMDHospRep."
sSQL = sSQL & "SalesRepFirstN ame, qryMDHospRep."
sSQL = sSQL & "SalesRepLastNa me, qryMDHospRep.Sa lesRep, "
sSQL = sSQL & "qryMDHospRep.S alesRepType, qryMDHospRep."
sSQL = sSQL & "RegionRepI D, qryMDHospRep."
sSQL = sSQL & "RegionManagerF irstName, qryMDHospRep."
sSQL = sSQL & "RegionManagerL astName, qryMDHospRep."
sSQL = sSQL & "RegionMana ger INTO tblRepLookUp "
sSQL = sSQL & "FROM qryMDHospRep;"

dbs.Execute sSQL

Docmd.Hourglass False

MsgBox "Physician List Complete", vbInformation +
vbOKOnly, "Process
Complete"
Set dbs = Nothing

End Sub

=============== =====

Thanks in advance,

Henry

--
Bob Quintal

PA is y I've altered my email address.

[Henry Stockbridge]

Thanks for the help. - Henry

[Henry Stockbridge]

Thanks for the help. - Henry

[Henry Stockbridge]

Well, I almost had it....

I can trigger the hourglass, but then it disappears, the system looks
like it is idle for 30 seconds or so, and then the Message Box appears.
I would expect something more immediate. Any ideas or solutions?
'============== =============== =======
Private Sub lblUpdateMDList _Click()
On Error GoTo PROC_ERR
Dim dbs As DAO.Database
Dim sSql As String
Set dbs = CurrentDb()

DoCmd.Hourglass True
DoEvents

' 1) Delete and append records
sSql = "DROP TABLE tblRepLookUp"
dbs.Execute sSql
sSql = "SELECT qryMDHospRep.ho sCustomerID, "
sSql = sSql & "qryMDHospRep.p hyPhysicianID, "
sSql = sSql & "qryMDHospRep.S alesRepID, qryMDHospRep."
sSql = sSql & "SalesRepFirstN ame, qryMDHospRep."
sSql = sSql & "SalesRepLastNa me, qryMDHospRep.Sa lesRep, "
sSql = sSql & "qryMDHospRep.S alesRepType, qryMDHospRep."
sSql = sSql & "RegionRepI D, qryMDHospRep."
sSql = sSql & "RegionManagerF irstName, qryMDHospRep."
sSql = sSql & "RegionManagerL astName, qryMDHospRep."
sSql = sSql & "RegionMana ger INTO tblRepLookUp "
sSql = sSql & "FROM qryMDHospRep;"
dbs.Execute sSql

DoCmd.Hourglass False
MsgBox "Physician List Complete", vbInformation + vbOKOnly, "Process
Complete"

Set dbs = Nothing

Exit Sub

PROC_ERR:
MsgBox "The following error occured: " & Error$
Resume Next
End Sub
'============== ============

Thanks in advance,

Henry

[Lyle Fairfield]

I never use DoCmd Hourglass being entirely satisfied 99.94% of the time
with the Access GUI straight from the box.
I see you've pasted this problem more than once so I'll chip in with my
!!!GUESS!!! which is that Access turns the Hourglass off automatically
after

sSql = "DROP TABLE tblRepLookUp"
dbs.Execute sSql

and that you might !!!TRY!!! moving
DoCmd.Hourglass True
DoEvents

to the line immediately following those.

In passing, I suppose you have considered that most accomplished
developers would not drop and create the tblRepLookUp but simply refer
directly to the query that you are using to populate it. One can assume
that the query executes slowly, as you are using the Hourglass; perhaps
this requires attention?

In addition, I recall in the olden days when Access and hardware were
much slower but I was quicker, I set the Status Bar on when running a
slow query; this gave an automatic progress bar at the bottom of the
screen tracking query execution progress.