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

kgadamsAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
tbsgadiConnect With a Mentor Commented:
Hi kgadams,

You can use the gif89 activex
File here:
http://www.vbforums.com/showthread.php?t=79007
Explanation here:
http://www.tek-tips.com/faqs.cfm?fid=108


Good Luck!

Gary
0
 
DatabaseMX (Joe Anderson - Microsoft Access MVP)Connect With a Mentor Database ArchitectCommented:
Check this out - no DLL's to register:

http://www.lebans.com/animatedgifplayer.htm

mx
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.