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

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

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

No.1 ベストアンサー 回答者： DexMachina 回答日時： 2012/12/16 23:40

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

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


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

この回答へのお礼

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

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

お礼日時：2012/12/17 23:16