• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 158
  • Last Modified:

how to display a message TEMPORARILY?

Hello,

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
0
Nick_Maddocks
Asked:
Nick_Maddocks
1 Solution
 
JayWmsCommented:
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
0
 
wesleystewartCommented:
Nick:

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.

W
0
 
ajsriramCommented:
I think wesley & jay are correct, Do you want the code

Sriram
0
The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

 
aidan_gillCommented:
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
      etc.....
      Counter = Counter + 1
      txtCounter = Counter
      txtCounter.refresh
      rs.movenext
loop
   txtCounter.visible = false

Hope it helps

       
0
 
IBRownCommented:
Jay has got it right.
0
 
Nick_MaddocksAuthor Commented:
Thank you Aidan.  I'm on my way to solving the problem.

Nick
0
 
aidan_gillCommented:
glad to be of help

Regards
Aidan

0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now