Link to home
Start Free TrialLog in
Avatar of kgadams
kgadamsFlag for United States of America

asked on

Change MS Access VB Code from Hourglass to animation, GIF or AVI

I have an Access 2003 database that executes code on a button click.
I would like to know if I can embed an AVI or other moving picture to indicate a file export during my VB Code execution rather than my current (very nifty) Hourglass option.  Please no mocking, I dont code for a living.
DoCmd.Hourglass True
    TheFac = DLookup("[Facility]", "Fac")
    TheDate = DLookup("[TheDate]", "Fac")
    TheFile = "G:\Billing\Billing-" & TheFac & TheDate & ".xls"
    DoCmd.OutputTo acQuery, "MonthlyBillingExport", "MicrosoftExcelBiff8(*.xls)", "G:\Billing\Billing-" & TheFac & "_" & TheDate & ".xls", False, "", 0
    DoCmd.Hourglass False
    TheMessage = "Report has been exported to  " & TheFile
    Beep
    MsgBox TheMessage, vbInformation, "Report Complete"

Open in new window

ASKER CERTIFIED SOLUTION
Avatar of tbsgadi
tbsgadi
Flag of Israel image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
SOLUTION
Avatar of DatabaseMX (Joe Anderson - Former Microsoft Access MVP)
DatabaseMX (Joe Anderson - Former Microsoft Access MVP)
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial