エクセルなら、
Sub Sample01()
Application.StatusBar = True
Application.StatusBar = "あああ"
End Sub
で、左下に文字を表示させられますが、
同じコードをアクセスで実行すると、「StatusBar 」の部分が、コンパイルエラーになります。
なので、
Sub Sample02()
DoCmd.StatusBar = True
DoCmd.StatusBar = "あああ"
End Sub
として見ましたが、結果は同じでした。
No.1ベストアンサー
- 回答日時:
Accessの場合は、SysCmdを使用します。
Public Sub Sample03
SysCmd acSysCmdSetStatus, "あああ"
'または以下の書き方でも可
'Application.SysCmd acSysCmdSetStatus, "あああ"
'Call SysCmd(acSysCmdSetStatus, "あああ")
'Call Application.SysCmd(acSysCmdSetStatus, "あああ")
End Sub
なお、文字列を消す場合は、「""」(空文字)は指定できないので、
代わりに「" "」(半角スペース)などを指定します。
いくつもの方法を教えていただきありがとうございました。
おっしゃる通りから文字を指定したらエラーになりました。
戻し方も教えてくれてありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】リボン、行列、数式・ステータスバを非表示に 4 2022/12/12 07:32
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Visual Basic(VBA) 指定文字以外のカウント 4 2023/05/03 14:37
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Excel(エクセル) 列の最終行に新たに入力されたらその値を自動参照 1 2023/01/21 09:59
- Visual Basic(VBA) リストボックス セルの値を取得する 1 2022/05/21 20:47
- Visual Basic(VBA) 標準モジュール Public mOnTime As Date Sub sample() '実行プロシ 1 2023/02/22 15:44
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Accessで進行状況インジケーターの表示だけ止めたい
Word(ワード)
-
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
-
4
アクセスで、フォームのステータスバーを消したい。
Access(アクセス)
-
5
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
6
Access終了時にマクロまたはVBAの実行したい
その他(Microsoft Office)
-
7
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
8
Accessで文字列の長さによって、フィールドの幅を自動で合わせる方法
Excel(エクセル)
-
9
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
10
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
11
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
12
データベースの最適化をマクロでしたい
その他(データベース)
-
13
クエリで出来た表にチェックボックスを追加する
その他(Microsoft Office)
-
14
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
15
ラベルとテキストボックスのグループ化を解除したい
Access(アクセス)
-
16
Access の VBA 実行中に他の操作をさせたくない
Visual Basic(VBA)
-
17
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
18
起動時のフォームの大きさ?
Access(アクセス)
-
19
Access レポートの文字間を設定したい
PowerPoint(パワーポイント)
-
20
Accessの画面更新を一時的に停止する方法。
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
TextFieldParserの固定長桁数を...
-
CString型 全角半角を意識せず...
-
エクセルで13,410円を数値の134...
-
【Excel VBA】セル内テキストの...
-
EXCELのVBAでLenB関数について
-
VBからID3タグをいじる方法
-
VB6のテキストボックスに入力し...
-
文字列から、null値を除去する方法
-
HEX
-
ファイル名の一部削除について
-
ASPからSQLserverのデータを更...
-
WORD VBA プログラム修正をお願...
-
VBA 変数名に変数を使用したい。
-
VB6.0の「vbFromUnicode」はVB....
-
accessでフィールド追加のあと...
-
コンボボックスのインデックス...
-
Accessのフィールド名に半角括...
-
エクセルでXY座標に並べられた...
-
【VB】コンボボックスにデータ...
-
【VB.NET】Excelの最終行までの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELのVBAでLenB関数について
-
ファイル名の一部削除について
-
StrConvでUnicodeに変換出来な...
-
一番右のスペース以降の文字列...
-
CString型 全角半角を意識せず...
-
TextFieldParserの固定長桁数を...
-
文字列から、null値を除去する方法
-
機種依存文字と特殊文字について
-
エクセルで13,410円を数値の134...
-
アクセス ステータスバーの文...
-
VB6のテキストボックスに入力し...
-
マルチバイト混在の文字列整形
-
VBからID3タグをいじる方法
-
「シフトJIS X 0213」形式の文...
-
【Excel VBA】セル内テキストの...
-
HEX
-
ASC関数
-
VBScriptで半角カナと半角英数...
-
C言語とWin32APIで全角かなの...
-
vb2008 MIDB関数
おすすめ情報