PRA: DoCmd.Hourglass Ineffective When Navigating Records

The information in this article applies to:

• Microsoft Access versions 2.0, 7.0, 97

1. Open the sample database Northwind.mdb (or NWIND.MDB in version 2.0).
2. Open the Categories form in Design view and add the following code to the OnCurrent property:

   In Microsoft Access 7.0 and 97:

         Private Sub Form_Current()
            Dim i As Integer
            DoCmd.Hourglass True
            For i = 1 To 1000
               Debug.Print "Iteration " & i
            Next i
            DoCmd.Hourglass False
         End Sub
   

   In Microsoft Access 2.0:

         Sub Form_Current()
            Dim i As Integer
            DoCmd Hourglass True
            For i = 1 To 1000
               Debug.Print "Iteration " & i
            Next i
            DoCmd Hourglass False
         End Sub
   

3. View the form in Form view. Note the hourglass as the form opens.
4. On the Edit menu (or Record menu in version 2.0), point to Go To, and then Next. Note that the hourglass appears as the record changes.
5. Click the record navigation button at the bottom of the form to go to the next record. Note that the hourglass does not appear during processing of the Debug.Print statements.