View Full Version : Hourglass


diversoln
10-21-2001, 08:44 PM
Okay - this has got to be easy but ....

I have a macro that I use to import data and manipulate it by opening several queries.

The first task in my macro is to turn on the hourglass because the import takes a little time.

When I run the macro from the Macros tab, I get the hourglass. When I run it by clicking an icon on a form I don't & my arrow cursor is still active.

What's up with this ?

Thanks http://www.access-programmers.co.uk/ubb/smile.gif


[This message has been edited by diversoln (edited 10-21-2001).]

Surjer
10-22-2001, 10:46 AM
In VB 6.0 I called access through Automation and here is how I set the mousepointer..
But I'm not sure about access itself..Dim X As Object
DBpath = "c:\DupeCheckNew\dupechecknew.mdb"


Set X = CreateObject("Access.Application.8")

With X
frmDupeCheckNew.MousePointer = 11' Sets mousepointer to Hourglass
.Visible = False
.OpenCurrentDatabase DBpath 'Opens the GPSReporttemplate file.
.DoCmd.RunMacro ("Delete All records") 'Runs Import TGO Macro.
.Quit

MsgBox ("Done...")
frmDupeCheckNew.MousePointer = 0 ' Sets Moupointer back to default
End With