SysCmd

[windandwaves]

Hi Folk

I have the following nifty little function that I can call to put messages
on the status bar. However, I don't know how to clear it and show the
normal messages (e.g. in a control on a form Statusbartxt)

Public Function SysMs(S As String)
On Error GoTo er
'-
Dim V As Variant
'-
S = S & " "
If S = " " Then
''clear all - this is what I do not know...
Else
V = SysCmd(acSysCmdSetStatus, S)
End If
xt:
Exit Function
er:
Resume xt
End Function

TIA

nicolaas

[Chuck Grimsby]

Call SysCmd(acSysCmdRemoveMeter)

By the way, rather then using
V = SysCmd(acSysCmdSetStatus, S)

Try:

Call SysCmd(acSysCmdSetStatus, S)

If you're not going to do anything with the V variable, there's not a
good done in calling and using it. (No harm either, but.... What's
the point of having it?)

[Br]

Chuck Grimsby <c.*******@worldnet.att.net> wrote:

Call SysCmd(acSysCmdRemoveMeter)

By the way, rather then using
V = SysCmd(acSysCmdSetStatus, S)

Try:

Call SysCmd(acSysCmdSetStatus, S)

If you're not going to do anything with the V variable, there's not a
good done in calling and using it. (No harm either, but.... What's
the point of having it?)

or

SysCmd acSysCmdSetStatus, S

?

:)
--
regards,

Bradley

A Christian Response
http://www.pastornet.net.au/response

[windandwaves]

Br@dley wrote:

Chuck Grimsby <c.*******@worldnet.att.net> wrote:

Call SysCmd(acSysCmdRemoveMeter)

By the way, rather then using
V = SysCmd(acSysCmdSetStatus, S)

Try:

Call SysCmd(acSysCmdSetStatus, S)

If you're not going to do anything with the V variable, there's not a
good done in calling and using it. (No harm either, but.... What's
the point of having it?)

or

SysCmd acSysCmdSetStatus, S

all of that worked rather well. thank you.