Do While LoopとDo Until Loopの使い方と途中で抜ける方法：Access VBA入門

● Do While Loopの使用例

変数iを+1する処理を、iが5より小さい間繰り返します。
変数iの値は、イミディエイトウィンドウに表示します。
イミディエイトウィンドウとは、変数や式の値を表示することができる機能で、デバッグに使用します。

結果iは初期値の1から、5より小さい4まで繰り返し＋1されているのが分かります。

Sub MyDoWhile()
    Dim i As Long
    
    i = 1
    Do While i < 5
        Debug.Print i
        i = i + 1
    Loop
End Sub

● Do Until Loopの使用例

上と同じ処理をUntilを使い実行します。
変数iを+1する処理を、iが5になるまで繰り返します。

結果iは初期値1から＋1され、5になった時点で終了しています。

Sub MyDoUntil()
    Dim i As Long
    
    i = 1
    Do Until i = 5
        Debug.Print i
        i = i + 1
    Loop
End Sub

以上のようにDo Loopは先に条件を判定し実行します。
なので下のように、初期値が条件を満たしている場合、処理は1回も行われません。

Sub MyDoWhile()
    Dim i As Long
    
    i = 10
    Do While i < 5
        Debug.Print i
        i = i + 1
    Loop
End Sub