Hourglass

[diversoln]

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

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

 

[Surjer]

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