![](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(アクセス)
-
-
4
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
5
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
6
Access の VBA 実行中に他の操作をさせたくない
Visual Basic(VBA)
-
7
クエリの進行状況を知りたい。
Access(アクセス)
-
8
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
9
アクセスで、フォームのステータスバーを消したい。
Access(アクセス)
-
10
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
11
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
12
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
13
Accessでレコードが更新された時に発生するイベント。
その他(データベース)
-
14
ACCESSにて
Access(アクセス)
-
15
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
16
アクセスの右下のバーの名前
Access(アクセス)
-
17
accessでSQL文を使ってcsvファイルをインポートする方法
Visual Basic(VBA)
-
18
ACCESS DCOUNTの抽出条件について
Access(アクセス)
-
19
Access フォーム「使用可能」を「いいえ」にすると・・
その他(データベース)
-
20
Access 複数フォームを開き、画面の最上面にしたいフォームをコント
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイル名の一部削除について
-
EXCELのVBAでLenB関数について
-
CString型 全角半角を意識せず...
-
StrConvでUnicodeに変換出来な...
-
「シフトJIS X 0213」形式の文...
-
TextFieldParserの固定長桁数を...
-
C言語とWin32APIで全角かなの...
-
WSTRINGとは?
-
機種依存文字と特殊文字について
-
文字列から、null値を除去する方法
-
全角文字と半角文字を判別して...
-
.htmlの前のファイル名が8文字...
-
VBA 変数名に変数を使用したい。
-
vba フィルター 複数条件 3つ以...
-
C#でbyte配列から画像を表示さ...
-
Redim とEraseの違いは?
-
VBAでアクセスDBからデータの取...
-
『列名 '担当者CD' があいま...
-
Web画面のTableから数字を取得...
-
コンボボックスのインデックス...
マンスリーランキングこのカテゴリの人気マンスリー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とは?
おすすめ情報