run query message

[ainow]

Every time a SQL statement is ran the "run query" message is display in the
status bar, is there a way to prevent this so a useful message could be
displayed?

Thanks
Jim

 

[Daniel Pineault]

You can control the status bar and disply your messages by using a function
such as

'---------------------------------------------------------------------------------------
' Procedure : Status
' Author : CARDA Consultants Inc.
' Website : http://www.cardaconsultants.com
' Purpose : Set the application status bar text
' Copyright : The following may be altered and reused as you wish so long as
the
' copyright notice is left unchanged (including Author, Website
and
' Copyright). It may not be sold/resold or reposted on other
sites (links
' back to this site are allowed).
'
' Revision History:
' Rev Date(yyyy/mm/dd) Description
'
**************************************************************************************
' 1 2008-Nov-19 Initial Releas
'---------------------------------------------------------------------------------------
Sub Status(sStatus As String)
On Error GoTo Error_Handler
Dim vStatus As Variant

If sStatus = "" Then
vStatus = SysCmd(acSysCmdClearStatus)
Else
vStatus = SysCmd(acSysCmdSetStatus, sStatus)
End If

If Err.Number = 0 Then Exit Sub

Error_Handler:
MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf &
"Error Number: " & _
Err.Number & vbCrLf & "Error Source: Status" & vbCrLf & "Error
Description: " & _
Err.Description, vbCritical, "An Error has Occured!"
Exit Sub
End Sub
--
Hope this helps,

Daniel Pineault
http://www.cardaconsultants.com/
For Access Tips and Examples: http://www.devhut.net
Please rate this post using the vote buttons if it was helpful.

 

[ainow]

Thanks for your input, but Status() works the same as Application.Echo. The
message is displayed and then replaced with Run Query and the progress bar
when the SQL statement is executed.
Jim