Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
45 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【13213】処理中の表示ができないか？ みちのく一人旅 17/10/31(火) 10:39 質問[未読]
【13214】Re:処理中の表示ができないか？ 亀マスター 17/10/31(火) 18:28 回答[未読]
【13215】Re:処理中の表示ができないか？ みちのく一人旅 17/11/1(水) 1:30 お礼[未読]
【13213】処理中の表示ができないか？
質問  みちのく一人旅  - 17/10/31(火) 10:39 -
引用なし
パスワード
   ＡＣＣＥＳＳ　ＶＢＡ初心者です。

ＶＢＡで処理をさせたとき、画面上に何も表示されないので処理しているかどうか不安です。
それで、処理を開始したら「処理中」というメッセージを表示させたいのですが、できますか？
処理が終了したときに、MSGBOXに表示させるのではなく処理中に出したいのですが。
【13214】Re:処理中の表示ができないか？
回答  亀マスター  - 17/10/31(火) 18:28 -
引用なし
パスワード
   「処理中」と書いたフォームを用意して、それを呼び出すことで実現できます。

まず、「処理中」というテキストラベルだけ配置し、ポップアップ設定を
「はい」にしたフォーム（フォームやテキストのサイズは適当にして下さい）
を用意します。

そして、以下のような流れで呼び出せばいいでしょう。

Sub test()

DoCmd.OpenForm "処理中フォーム名"
Forms("処理中フォーム名").Repaint

'ここに実際の処理を入れる

DoCmd.Close acForm, "処理中フォーム名"

End Sub

Forms("処理中フォーム名").Repaintは、これを入れておかないと
「処理中」というテキストラベルが表示されないためです。
【13215】Re:処理中の表示ができないか？
お礼  みちのく一人旅 E-MAIL  - 17/11/1(水) 1:30 -
引用なし
パスワード
   亀マスター さん

無事解決いたしました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
45 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080726
(SS)C-BOARD v3.8 is Free