While 나가는 법

while문을 빠져나가는 것은 여러가지 방법이 있습니다.

먼저.. Do While문으로 고치면 Exit Do라는 구문을 활용할 수 있습니다.

------------------------------------

Do While exetime <> Data2.Recordset.Fields("시간")
    If Data1.Recordset.EOF <> True Then
        Exit Do
    End If
    Data2.Recordset.MoveNext
Loop

------------------------------------

두번째로 권장할 만한 방법은 아니지만 GoTo 구문을 사용할 수 있습니다.

------------------------------------

While exetime <> Data2.Recordset.Fields("시간")
    If Data1.Recordset.EOF <> True Then
        GoTo lbl1
    End If
    Data2.Recordset.MoveNext
Wend
lbl1:
------------------------------------

세번째 방법은 While 조건에 빠져나갈 조건을 같이 명시하는 방법이 있습니다.

------------------------------------

Dim bFlag As Boolean
bFlag = True
While exetime <> Data2.Recordset.Fields("시간") And bFlag = True
    If Data1.Recordset.EOF <> True Then
        bFlag = False
    End If
    Data2.Recordset.MoveNext
Wend

------------------------------------

참고로 break나 continue 등은 C언어 계열에서 사용하는 구문입니다.

도움 되시길 바라며 즐거운 하루 되세요.