Do Until ...... Loop

[abitlikehomer]

Hi i am writing a bit of code so that the date and time of a booking can not be booked twice but i am getting an error message saying "loop without do". Any suggestions?

setflag = False
Do Until EOF(1) Or setflag = True
    If customer.bookingdate <> txtdate Then
GoTo loopend
    If txttimefrom >= customer.timefrom And txttimefrom < customer.timeto Then
    setflag = True
Else
'    'potentially ok'
    If txttimeto > customer.timeto Then
    setflag = True
    End If
End If
Exit Sub
loopend:
Loop
If setflag = True Then
MsgBox ("There is already a booking booked for this time and date. Please choose another time and/or date")
txttimefrom.SetFocus
End If

Cheers in advance, oh and hi everyone :)

[Hemant Pathak]

Hi............. ... abitlikehomer

Here u see the care fully u are open the 3 if condition and only 2 if Condtion is Closed. then Close all if condition before ending the do loop.
i think it is.

 setflag = False 
Do Until EOF(1) Or setflag = True
If customer.bookingdate <> txtdate Then
GoTo loopend
endif
If txttimefrom >= customer.timefrom And txttimefrom < customer.timeto Then
setflag = True
Else
' 'potentially ok'
If txttimeto > customer.timeto Then
setflag = True
End If
End If
Exit Sub
loopend:
Loop
If setflag = True Then
MsgBox ("There is already a booking booked for this time and date. Please choose another time and/or date")
txttimefrom.SetFocus
End If
 

[sashi]

Hi there,

kindly refer to below attached link for further reading.. take care my fren.. :)

[jenna123]

Thank you sooo much, I'm a university student and I've been driving myself crazy with the same problem, your solution was perfect. Just know that you saved me from a big headache!