From: accdev on
I'm generating a Word document from MS Access 2003. I do a Docmd.Hourglass =
True at the beginning of the module. There is a bit of activity before I get
to the code below and the hourglass appears, but just after the Set wrdojb
(see below) , it disappears. There can be a lot of activity until the Word
document appears on the screen and I do not like the users to wonder what is
going on when the hourglass disappears. I've tried the System.Cursor process
below, but it has no effect whatsoever.

Dim wordobj As Object
Set wrdobj = CreateObject("Word.application")
Dim intWait As Integer
For intWait = 1 To 1000
System.Cursor = wdCursorWait
Next intWait

At end of processing:

System.Cursor = wdCursorNormal