AccessVBA/ステータスバーに進行状況インジケータの表示 の変更点


*AccessVBA/ステータスバーに進行状況インジケータの表示 [#mf6cfc38]

 Dim i As Long
 SysCmd acSysCmdInitMeter, "処理中です", 1000000
 For i = 1 To 1000000
   SysCmd acSysCmdUpdateMeter, i
 Next i
 SysCmd acSysCmdRemoveMeter