Solved

Status bar messages

Posted on 2001-08-27
4
800 Views
Last Modified: 2008-04-02
Is there a way to stop MS-Access defaults messages, such as "Calculating...", "Run query" without hiding the status bar.

Regards,
Rene
0
Comment
Question by:rdevriend
  • 2
  • 2
4 Comments
 

Accepted Solution

by:
Gatsby earned 50 total points
ID: 6428324
Hi rdevriend

Just use the below....

-- To Set The Message -------------
Call SysCmd(acSysCmdSetStatus, "HI THERE!!")

-- To Clear The Message -----------
Call SysCmd(acSysCmdClearStatus)

Gatsby

0
 

Author Comment

by:rdevriend
ID: 6428371
Gatsby

I already tried that one, but it doesn't work in the way I want. In a complex part of my program, a lot of queries (adding, deleting, updating) are performed. This process takes about 30 seconds. Each query itself shows "Calculating...", "updating", etc which causes a lot of flashing messages in the statusbar. Now, with the SysCmd, you see "Hi there" flashing between the other messages. That's why I want to get rid of the default MS-Access messages, but SysCmd is not doing that.

Any other suggestion?

regards,
rene
0
 

Expert Comment

by:Gatsby
ID: 6428387
Hi Rene

Sorry...Didn't read your question right the first time...

This will clear the status bar for some of the default messages but I don't think it will work for what you are looking for.

Call SysCmd(acSysCmdSetStatus, "  ")

Also, when running queries, don't use the DoCmd.OpenQuery method...instead use something like....

Dim db As DAO.Database
Set db = CurrentDb
Call SysCmd(acSysCmdSetStatus, "   ")
db.Execute "UPDATE tblTest SET FieldTest = 1;"
db.Close
Set db = Nothing

This won't give you the status bar.

Gatsby
0
 

Author Comment

by:rdevriend
ID: 6428549
Gatsby,
Thanks, that was the trick, using db.Execute instaed of Docmd.OpenQuery. Here are the points.

Regards,
Rene


0

Featured Post

Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Introduction When developing Access applications, often we need to know whether an object exists.  This article presents a quick and reliable routine to determine if an object exists without that object being opened. If you wanted to inspect/ite…
Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
Familiarize people with the process of utilizing SQL Server functions from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Ac…
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.

770 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