Control not reflecting the selected format

[George]

I have an unbounded control "Schedule Arrival" on my form. The row source type is Table/Query and the row source is a table field "StaffStartTime" with datatype Date/Time medium time.

This field contain the following values "8:00 AM" and "11:00 AM".



When a button on the form is press for the value in the control to be displayed, irrespective of which value is selected in the control it always show 12:00 AM.

This means it is not recognizing the entries.

Is there any way around this problem?

[John_G]

Is the unbound control a combo box? If so, what is the format of the combo box rows?

What is the code in the On Click event of the button on the form?

The error suggests either the code is not correct, or there is no time data in the table field. How was the table field populated?

[George]

Yes the control is a combo box with format medium Time.

You are heading in the right direction, because I actually misrepresented my problem. My problem has nothing to do with the control but rather to do with code having a problem. Here is the area of the code that is relevant:

If Now() > DateAdd("n", 15, DateValue(Me.Schedule_Arrival) + DateValue(Date)) Then ' Problem statement is on this line

MsgBox "I am Late"
rs.Fields("Punctuality") = "Late"
Else
rs.Fields("Punctuality") = "Early"
MsgBox "I am Late"
End If

I have discern that there is a problem with my adding up time.

What I really want is to add 8:00 AM to DateValue(Date), ie. add time to date.

Hope this explanation is better.

But now on reflection I have the solution: If Now() > DateAdd("n", 15, DateValue(Me.Schedule_Arrival)) Then

I tried this and it's working just leaving out the date part.


Thanks anyway