ステータスバーに進行状況のインジケータを表示 ： Access
時間の掛かる処理は、実行中であることをユーザーに知らせる為、プログレスバーに経過を表示させることがあります。
これの代わりにステータスバーのインジケータに表示させることも可能です。
その方法です。
1）Access画面にインジケータを表示させます
SysCmd acSysCmdInitMeter, メッセージ, 最大カウント数
2）カウントを表示
SysCmd acSysCmdUpdateMeter, カウント数
3)終了処理 消去
SysCmd acSysCmdClearStatus
■ Access実行画面
ウィンドウ下の部分がステータスバーです。「実行中・・・」とある部分がインジケータです。
「実行中・・・」のようにメッセージを表示させることもできます。
■ Access VBA 実行コード
Option Compare Database
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub コマンド0_Click()
Dim i As Integer
'インジケータを表示
SysCmd acSysCmdInitMeter, "実行中・・・", 100
For i = 1 To 100
'カウントアップ
SysCmd acSysCmdUpdateMeter, i
Sleep 100
Next
'消去
SysCmd acSysCmdClearStatus
End Sub
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub コマンド0_Click()
Dim i As Integer
'インジケータを表示
SysCmd acSysCmdInitMeter, "実行中・・・", 100
For i = 1 To 100
'カウントアップ
SysCmd acSysCmdUpdateMeter, i
Sleep 100
Next
'消去
SysCmd acSysCmdClearStatus
End Sub
Home 
Tips メニューCopyright(C) FeedSoft