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언어 계열에서 사용하는 구문입니다.

 

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