マイクロソフトアクセスで広がる世界

アクセスのTIPS集

Do...While ステートメント

概要

処理結果が指定値になるまで記述した処理を続けます
(書式)
Do {While : Utill} 条件式
実行する処理
Loop

作成例

フォーム「テストフォーム2」上のコマンドボタン「判断テスト」のクリック時イベントに 次のプロシージャを作成して実行。 下図のように0〜9までメッセージが順に表示され終了します。
(プロシージャ)
Private Sub cmd_判断_Click()
Dim cnt As Integer

cnt = 0

Do While cnt < 10
MsgBox cnt
cnt = cnt + 1
Loop

End Sub
下図のように0〜10までメッセージが順に表示され終了します。