![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセルなら、
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(ワード)
-
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
-
4
アクセス・テーブルの改行についてです。
Access(アクセス)
-
5
Access フォーム「使用可能」を「いいえ」にすると・・
その他(データベース)
-
6
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
7
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
8
ラベルとテキストボックスのグループ化を解除したい
Access(アクセス)
-
9
Access の VBA 実行中に他の操作をさせたくない
Visual Basic(VBA)
-
10
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
11
アクセスで、フォームのステータスバーを消したい。
Access(アクセス)
-
12
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
13
Accessでレコードが更新された時に発生するイベント。
その他(データベース)
-
14
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
15
クエリの進行状況を知りたい。
Access(アクセス)
-
16
Accessのフィールド名に半角括弧を使ってしまった
Visual Basic(VBA)
-
17
アクセスの右下のバーの名前
Access(アクセス)
-
18
ACCESSにて
Access(アクセス)
-
19
accessでSQL文を使ってcsvファイルをインポートする方法
Visual Basic(VBA)
-
20
ACCESS DCOUNTの抽出条件について
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELのVBAでLenB関数について
-
CString型 全角半角を意識せず...
-
アクセス ステータスバーの文...
-
TextFieldParserの固定長桁数を...
-
VBScriptで半角カナと半角英数...
-
「シフトJIS X 0213」形式の文...
-
一番右のスペース以降の文字列...
-
エクセルで13,410円を数値の134...
-
機種依存文字と特殊文字について
-
【C#】textBoxの指定行のデータ...
-
Access 2010で実行時エラー3061
-
【VB】コンボボックスにデータ...
-
VBA 変数名に変数を使用したい。
-
VBScriptでCSVファイルを読み出...
-
ADODBでの行番号の取得、もしく...
-
配列の中の最大値とそのインデ...
-
VB6.0の「vbFromUnicode」はVB....
-
MSFlexGrid 行選択状態
-
複数SQL発行について
-
DataGridの中身をDataSetにテー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル名の一部削除について
-
EXCELのVBAでLenB関数について
-
CString型 全角半角を意識せず...
-
TextFieldParserの固定長桁数を...
-
文字列から、null値を除去する方法
-
一番右のスペース以降の文字列...
-
StrConvでUnicodeに変換出来な...
-
エクセルで13,410円を数値の134...
-
機種依存文字と特殊文字について
-
アクセス ステータスバーの文...
-
VB6.0 文字列のファイル書...
-
VB6のテキストボックスに入力し...
-
「シフトJIS X 0213」形式の文...
-
ワードのVBAで
-
VB.NET ListBox内の前方一致で...
-
【Excel VBA】セル内テキストの...
-
HEX
-
8進数文字、16進数文字とは
-
VBからID3タグをいじる方法
-
WSTRINGとは?
おすすめ情報