Access VBA ProgressBar プログレスバー表示 インジケータ更新

Function ProgressView()

    'フォームを開く
    DoCmd.OpenForm "ProgressUpd", acNormal, "", "", acReadOnly, acNormal
    Forms![ProgressUpd].Repaint

    ProgressBarFunc (i):   i = i + 1	'プログレスバー更新ファンクションをCall

    DoCmd.Close acForm, "ProgressUpd"  'Formを閉じる

End Function

'プログレスバー更新
Function ProgressBarFunc(i As Integer)

    Forms("ProgressUpd").Controls("ProgressBarObj").Value = i / 10 * 100
    DoEvents

End Function

Accessマクロ&VBAのプログラミングのツボとコツがゼッタイにわかる本

AccessVBAパーフェクトマスター(Access2013完全対応Access2010/2007対応) (Perfect Master SERIES)

［逆引き］Access VBA パワーテクニック 545 ［2013/2010/2007対応］