Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1508 / 9994

←次へ　｜　前へ→


	【11778】進行状況インジケータについて

Masato/S - 10/9/23(木) 20:57 -


	引用なし

	パスワード

　連続処理を実行するとき、どこまで進んでいるかを把握するため、進行状況インジケータをつかいたくて、以下のコードを見つかり、実際動いてみました。
特に問題ありませんが、"ただいま処理中", cintRecMaxは、点滅状態になっている
ため、表示内容はわからない。
点滅させない方法は、あるのでしょうか？
ご伝授ください。

-------------------------------------------------------------------------
Dim iintLoop As Integer
　　Dim varRet As Variant
　　Const cintRecMax As Integer = 1000　　'ここでは1000件のデータを処理するとします。

　　'進行状況インジケータを初期化します。
　　varRet = SysCmd(acSysCmdInitMeter, "ただいま処理中", cintRecMax)

　　'実際の処理ループです。
　　For iintLoop = 1 To cintRecMax
　　　'
　　　'ここで１件についての処理を行います。
　　　'
　　　'進行状況インジケータをカウントアップした値に更新します。
　　　varRet = SysCmd(acSysCmdUpdateMeter, iintLoop)
　　Next iintLoop
　
　　'進行状況インジケータを消去します。
　　varRet = SysCmd(acSysCmdRemoveMeter)
--------------------------------------------------------------------------

899 hits

▼

【11778】進行状況インジケータについて Masato/S 10/9/23(木) 20:57