ステータスバーに進行状況のインジケータを表示 : Access




BackHome BackTipsへ Backメニューへ

時間の掛かる処理は、実行中であることをユーザーに知らせる為、プログレスバーに経過を表示させることがあります。

これの代わりにステータスバーのインジケータに表示させることも可能です。
その方法です。

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



BackHome BackTipsへ Backメニューへ

Copyright(C) FeedSoft