#004 処理の進捗状況をインジケータ表示するには? VBA

クエリーを実行した時のように、VBAによる処理の進捗状況をAccessウィンドのステータスバーにインジケータ表示するには、「SysCmd」関数 を使用します。
    Dim iintLoop     As Integer
    Dim varRet       As Variant
    Const cintRecMax As Integer = 1000    'ここでは1000件のデータを処理するとします。

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

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

| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします


Copyright © T'sWare All rights reserved