アクセス ステータスバーの文字を表示させたい

質問

エクセルなら、
Sub Sample01()
Application.StatusBar = True
Application.StatusBar = "あああ"
End Sub
で、左下に文字を表示させられますが、
同じコードをアクセスで実行すると、「StatusBar 」の部分が、コンパイルエラーになります。

なので、
Sub Sample02()
DoCmd.StatusBar = True
DoCmd.StatusBar = "あああ"
End Sub
として見ましたが、結果は同じでした。

回答No.1

DexMachina · ベストアンサー

Accessの場合は、SysCmdを使用します。

Public Sub Sample03
　　SysCmd acSysCmdSetStatus, "あああ"
　　'または以下の書き方でも可
　　'Application.SysCmd acSysCmdSetStatus, "あああ"
　　'Call SysCmd(acSysCmdSetStatus, "あああ")
　　'Call Application.SysCmd(acSysCmdSetStatus, "あああ")
End Sub

なお、文字列を消す場合は、「""」(空文字)は指定できないので、
代わりに「" "」(半角スペース)などを指定します。

お礼

いくつもの方法を教えていただきありがとうございました。

おっしゃる通りから文字を指定したらエラーになりました。
戻し方も教えてくれてありがとうございます。