473,320 Members | 1,859 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,320 software developers and data experts.

Editing Status Bar Text

MindBender77
234 100+
Hello All,
I have a simple problem that I can seem to figure out. I want to remove the "Run Query" text from my status bar and replace it with something more custom. However, the code I've been using just flashes my custom text and reverts back to "Run Query". After the query completes my second custom message is displayed.

This is the code I'm using:
Expand|Select|Wrap|Line Numbers
  1. Dim strStatus as String
  2. Dim varStatus as Variant
  3.  
  4. strStatus = "Custom Text Here....."
  5. varStatus = SysCmd(acSysCmdSetStatus, strStatus)
  6. DoCmd.RunMacro ("Update Department Tables")
  7. strStatus = "Custom Text Here Too..."
  8. varStatus = SysCmd(acSysCmdSetStatus, strStatus)
  9.  
Thanks in Advance,
Bender
Feb 14 '08 #1
6 6018
puppydogbuddy
1,923 Expert 1GB
Hello All,
I have a simple problem that I can seem to figure out. I want to remove the "Run Query" text from my status bar and replace it with something more custom. However, the code I've been using just flashes my custom text and reverts back to "Run Query". After the query completes my second custom message is displayed.

This is the code I'm using:
Expand|Select|Wrap|Line Numbers
  1. Dim strStatus as String
  2. Dim varStatus as Variant
  3.  
  4. strStatus = "Custom Text Here....."
  5. varStatus = SysCmd(acSysCmdSetStatus, strStatus)
  6. DoCmd.RunMacro ("Update Department Tables")
  7. strStatus = "Custom Text Here Too..."
  8. varStatus = SysCmd(acSysCmdSetStatus, strStatus)
  9.  
Thanks in Advance,
Bender
See this link:

http://www.thescripts.com/forum/thread208393.html
Feb 14 '08 #2
MindBender77
234 100+
See this link:

http://www.thescripts.com/forum/thread208393.html
I tried the function described in this thread, however, the "Run Query" text and progress bar are still displayed. Does it matter that the query is based off an ODBC database? The code used in my first post works my other Access apps, just not this one.

Any thoughts?

Bender
Feb 14 '08 #3
puppydogbuddy
1,923 Expert 1GB
I tried the function described in this thread, however, the "Run Query" text and progress bar are still displayed. Does it matter that the query is based off an ODBC database? The code used in my first post works my other Access apps, just not this one.

Any thoughts?

Bender
It looks like your code is missing your eqivalent to the following line from the link I gave you.

If S = " " Then
Call SysCmd(acSysCmdRemoveMeter)
.

When you ran the function from the link I gave you, did you run it with the revisions that were made? Below is the revised code.
Expand|Select|Wrap|Line Numbers
  1. Public Function SysMs(S As String)
  2. On Error GoTo er
  3.  
  4.  
  5. S = S & " "
  6. If S = " " Then
  7. Call SysCmd(acSysCmdRemoveMeter)
  8. Else
  9. SysCmd acSysCmdSetStatus, S
  10. End If
  11. xt:
  12. Exit Function
  13. er:
  14. Resume xt
  15. End Function
Feb 15 '08 #4
MindBender77
234 100+
When you ran the function from the link I gave you, did you run it with the revisions that were made? Below is the revised code.
Expand|Select|Wrap|Line Numbers
  1. Public Function SysMs(S As String)
  2. On Error GoTo er
  3. S = S & " "
  4. If S = " " Then
  5. Call SysCmd(acSysCmdRemoveMeter)
  6. Else
  7. SysCmd acSysCmdSetStatus, S
  8. End If
  9. xt:
  10. Exit Function
  11. er:
  12. Resume xt
  13. End Function
Without sounding like a total novice using VBA, I have two questions. First, what is S = S & " " doing exactly. The second, at what point do I call this function? Example:
Expand|Select|Wrap|Line Numbers
  1. Call SysMs
  2. DoCmd.OpenQuery("Some Query Here")
  3.  
Thanks Again for all the assistance,
Bender
Feb 15 '08 #5
MindBender77
234 100+
I got the function to work but, it produces the same result when executed. It flashes the custom message in the status bar. It then changes to "Run Query" and finally after the query is ran, it changes back to the custom message.

A thought comes to mind, is it possible that the "Run Query" message can not be avoided?

Bender
Feb 15 '08 #6
puppydogbuddy
1,923 Expert 1GB
I got the function to work but, it produces the same result when executed. It flashes the custom message in the status bar. It then changes to "Run Query" and finally after the query is ran, it changes back to the custom message.

A thought comes to mind, is it possible that the "Run Query" message can not be avoided?

Bender
I am not aware of any reason why the Run Query message can't be avoided. Here are links that have examples with different takes on the function that might be worth looking into.

http://www.thescripts.com/forum/thread592016.html

http://www.vbforums.com/showthread.php?t=402073
Feb 16 '08 #7

Sign in to post your reply or Sign up for a free account.

Similar topics

4
by: Dan Weeb | last post by:
Hi All, I have struggled through this far with help from many of you so thanks. I am stuck again. I am really new to this so don't be harsh :-) There are a few problems. You can run the script...
4
by: webhigh | last post by:
I¹m not sure if this a PHP question or an MySQL question but here it goes. I have a repeat region of a table called userid What I¹m trying to accomplish is being able to edit the record and...
0
by: Victor Engmark | last post by:
I am quite new to XForms, but I need to do a feasibility study to see whether a system I'm supposed to make can be done without any scripting or programming language (to make it simple and not need...
2
by: Charles Mendell | last post by:
1. When I go to http://www.w3schools.com/js/default.asp and choose: 2. JS HTML DOM and then choose: 3. the Window object and then choose: 4. Write some text in the windows status bar ( a link)...
2
by: NewBob | last post by:
Since Access automatically highlights all of the text in a text control (I use it to hold data from a memo field) when the control is activated, I've added the following code to put the cursor at...
6
by: Ada | last post by:
i have a little bit of issue getting the status bar to work properly. this is what happens now. when the program loaded, the status is "READY..." the code is inside the FORM LOAD. i also...
0
by: Mike P | last post by:
I am trying to edit a gridview while using paging, but whenever I try to edit a row on a page other than page 1, I get an error. Here is my gridview and my code : <asp:GridView ID="GridView1"...
2
by: Chris Paxton | last post by:
I have a fairly basic VB.NET application that I converted from VS2003 to VS2005 and now it crashed the VS2005 IDE pretty regularly while trying to use the form designer. I've removed any 3rd...
9
by: tshad | last post by:
I have a Windows App that is doing some work and then writing a "Now Processing..." line to the status line of the window as well as the Textbox on the form. But the problem is that the work is...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome former...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.