アクセスVBAの部屋

VBA Homeへ戻る

繰り返し処理　Do Until Loop ステートメント

解説

条件がTrueになるまでステートメントを繰り返します。

書式

Do Until 繰り返しの条件
　‘繰り返したい処理
　Loop

使用例

次の例は変数iが11になるまで続けられます。

Public Sub Sample1()
　Dim i As Integer
　i = 1
　Do Until i = 11
　i = i + 1
　Loop
　MsgBox "11になりました。"
End Sub

使用例B

次は後ろ判断構造で、繰り返し条件が後ろに記述されています。違いは判断される前に1回は実行されることです。

Public Sub Sample2()
　Dim i As Integer
　i = 1
　Do
　i = i + 1
　Loop Until i = 11
　MsgBox "11になりました。"
　End Sub

（この項終わり）