Solved

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

Posted on 2009-04-01
2
556 Views
Last Modified: 2013-11-28
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

0
Comment
Question by:kgadams
2 Comments
 
LVL 46

Accepted Solution

by:
tbsgadi earned 150 total points
ID: 24046960
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
 
LVL 75

Assisted Solution

by:DatabaseMX (Joe Anderson - Access MVP)
DatabaseMX (Joe Anderson - Access MVP) earned 100 total points
ID: 24046984
Check this out - no DLL's to register:

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

mx
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Experts-Exchange is a great place to come for help with solutions for your database issues, and many problems are resolved within minutes of being posted.  Others take a little more time and effort and often providing a sample database is very helpf…
Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

757 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now