how to display a message TEMPORARILY?


I am a new user of VBA with Access and I have searched high and low to find out how to accomplish the following:

How do you display a message on the screen TEMPORARILY such that no user intervention is required?

I would like to count input records, display the counter as the records are read (without having to click "OK" each time a record is read); then have the box disappear after the last record is read.  Better yet, pause for 2 seconds then disappear.  An example is when you print a document, a box appears counting pages, then disappears.

Thanks for any help.

Nick Maddocks
Modesto, CA
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Create a form with a couple of labels on it, update the labels as you process, then close the form when you are complete...


Jay is right.  There is no built-in function in Access for a timed messagebox.  You might be able to cobble something together with VBScript (I seem to remember seeing an example) but a form would be quick and easy.

If it is something you're going to use over and over, you could create a generic solution to use over and over.

I think wesley & jay are correct, Do you want the code

The Ultimate Tool Kit for Technolgy Solution Provi

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy for valuable how-to assets including sample agreements, checklists, flowcharts, and more!

A method that I use is to is setup the counter and then while you are in the loop increment it time.

what you do is send the counter to a textbox or label as the lads said above, refresh the label after every loop.

It may look as follows

Dim Counter as integer

'setup your recordset.

 while not rs.eof
      rs!ID = txtagent
      Counter = Counter + 1
      txtCounter = Counter
   txtCounter.visible = false

Hope it helps


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Jay has got it right.
Nick_MaddocksAuthor Commented:
Thank you Aidan.  I'm on my way to solving the problem.

glad to be of help


It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.