No.2ベストアンサー
- 回答日時:
マクロではどうするのかは不明ですが、モジュールでは、DoEvents 関数を使ってオペレーティング システムに制御を渡す事が可能です。
長らくAccessを使ってないので、あってるか自信が無いのですが・・・
DoCmd.OpenForm "処理中メッセージ"
Forms("処理中メッセージ").text.Value = "処理1実行中"
DoCmd.RepaintObject acForm, "処理中メッセージ"
DoEvents
処理1・・・
Forms("処理中メッセージ").text.Value = "処理2実行中"
DoCmd.RepaintObject acForm, "処理中メッセージ"
DoEvents
処理2・・・
・
・
DoCmd.Close acForm, "処理中メッセージ"
DoCmd.OpenForm "処理終了メッセージ"
な感じかな?
実際には、フォームへのテキスト代入からDoEventsをサブにして、テキストも複数用意して、履歴を見えるようにして・・・
Forms("処理中メッセージ").text4.Value = Forms("処理中メッセージ").text3.Value
Forms("処理中メッセージ").text3.Value = Forms("処理中メッセージ").text2.Value
Forms("処理中メッセージ").text2.Value = Forms("処理中メッセージ").text1.Value
Forms("処理中メッセージ").text1.Value = "処理1実行中"
DoCmd.RepaintObject acForm, "処理中メッセージ"
DoEvents
で、テキストはフォントを段々と小さくしていくと、流れてるように見えるかも・・・
うまくいきました!
PepaintObjectとDoEventsで再描画が掛かるのですね。
大変役に立ちました、ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) CSVファイルがカンマ区切りにならない。対処法を教えていただきたいです。 仕事でSMS一斉送信ができ 2 2022/07/01 21:24
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Ruby pandasでsqlite3にテーブル作成・追加・読み出しでindexの取り扱い方教えてください 5 2023/03/08 09:57
- Excel(エクセル) [Excel2016] 相関表等の自動作成 2 2022/08/01 20:34
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- PHP htmlで複数の個数入力欄を表示させるには 1 2022/09/20 03:11
- その他(開発・運用・管理) おんどとりWebStorage APIから温度情報を取得し表示したい 2 2023/08/03 09:53
- Excel(エクセル) CSVファイルでVBAを動かす方法 3 2023/04/04 10:22
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
クエリの進行状況を知りたい。
Access(アクセス)
-
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
アクセス 壊れた? 「ファイルが見つかりません」
Access(アクセス)
-
-
4
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
5
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
6
Access サブフォームでの選択行の取得
その他(データベース)
-
7
Accessでテーブル名やクエリ名一覧の抜き出し
Access(アクセス)
-
8
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
9
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
10
ACCESSでのプログレスバー表示について
Access(アクセス)
-
11
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
12
新規レコード行を非表示にしたい
Access(アクセス)
-
13
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
14
Excel VBAからAccessマクロを実行したい
Visual Basic(VBA)
-
15
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
16
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
17
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
18
Access2003 クエリで、空の列は作れますか?
Access(アクセス)
-
19
「RunSQL」と「Execute」の違い
Access(アクセス)
-
20
エクセルVBA 「On Error GoTo 0」について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カーソル0件の時にエラーを発生...
-
処理件数を非表示にしたい
-
データ型でFloatとreal の計算...
-
NVLとDECODEのスピード差
-
RDBとVSAMの比較
-
ACCESSで一括処理する方法
-
アナライズ
-
動的SQLの処理件数
-
カーソル宣言をIFで分けられま...
-
SQLの副問い合わせ IN演算子とE...
-
テーブルの項目が異なるテーブ...
-
SELECT と INSERT の速度
-
Accessで処理経過を表示したい...
-
SQL plus で改行
-
(x 行処理されました)を表示さ...
-
カーソルを使って、最終行レコ...
-
インサート処理のスピード
-
差し込み後、元データを変更し...
-
外部参照してるキーを主キーに...
-
エクセルVBAコードで教えて下さ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カーソル0件の時にエラーを発生...
-
処理件数を非表示にしたい
-
データ型でFloatとreal の計算...
-
カーソルを使って、最終行レコ...
-
ストアドプロシージャ_カーソル...
-
NVLとDECODEのスピード差
-
Accessで処理経過を表示したい...
-
SELECT と INSERT の速度
-
カーソル宣言をIFで分けられま...
-
ACCESSで一括処理する方法
-
SQL plus で改行
-
RDBとVSAMの比較
-
テーブルの項目が異なるテーブ...
-
クエリの実行時間の目安
-
300万件のデータの処理について
-
(x 行処理されました)を表示さ...
-
PL/SQL で continue ?
-
SQL-LOADERの逆のもの
-
わり算の結果が整数でも小数点...
-
カーソルがコミットするとクロ...
おすすめ情報