Function ProgressView() 'フォームを開く DoCmd.OpenForm "ProgressUpd", acNormal, "", "", acReadOnly, acNormal Forms![ProgressUpd].Repaint ProgressBarFunc (i): i = i + 1 'プログレスバー更新ファンクションをCall DoCmd.Close acForm, "ProgressUp…