if time > time then ...

[nicolewh]

I have this macro:

If DateValue(SundayBegin.Value) >= DateValue(SundayEnd.Value) _
And Not SundayBegin.Value = "" _
And Not SundayEnd.Value = "" And Not SundayEnd.Value = "Continued" Then
MsgBox "The time in the Sunday Begin box must be before the Sunday End Box.", vbExclamation, "Add"
Me.txtCompName.SetFocus
Exit Sub
End If

- note: sundayend, and sundaybegin are comboboxes.
When I place 6 AM in sundaybegin combobox and 10 AM in the sundayend box I receive that message. It doesn't make any sense. Very frustrating.

Any insight would be very helpful.

Thanks!
Nicole

 

[Norie]

Nicole

I don't think 6 AM and 10 AM are being recognised correctly.

Try TimeValue instead of DateValue.

  If TimeValue(SundayBegin.Value) >= TimeValue(SundayEnd.Value) _
       And Not SundayBegin.Value = "" _
       And Not SundayEnd.Value = "" And Not SundayEnd.Value = "Continued" Then
        MsgBox "The time in the Sunday Begin box must be before the Sunday End Box.", vbExclamation, "Add"
        Exit Sub
    End If

 

[nicolewh]

THANK YOU!

Nicole