Times on a form

L

Lindsey M

Hi,

I have a form where you enter the room name and date and times required and
then when you press OK, a query will run to check if the room has already
been booked out for that date/time etc.

Now this is all working fine, but I'm doing some error trapping because if
the User enters say 10.30am Start Time and a 9.30am End Time, it still books
this in. What I need to do is enter in some code that says, if the end time
is before the start time then an msg box appears with the error msg.

Any ideas on this would be greatly apreciated.

Cheers
Lindsey
 
K

Ken Snell [MVP]

Use the BeforeUpdate event of both textboxes to do this validation:

Private Sub TextStart_BeforeUpdate(Cancel As Integer)
If Me.TextStart.Value > Me.TextEnd.Value Then
Cancel = True
MsgBox "Start time cannot be later than end time."
Me.TextStart.Undo
End If
End Sub

Private Sub TextEnd_BeforeUpdate(Cancel As Integer)
If Me.TextStart.Value > Me.TextEnd.Value Then
Cancel = True
MsgBox "Start time cannot be later than end time."
Me.TextEnd.Undo
End If
End Sub
 
Top