Making my own Time Picker

[westfallbp]

I have 3 fields in table for this example: Appt Name, Date, (Using Date Picker), Appt Time (set to short time)



I have a form with the fields listed on the table. However I created 3 combo boxes Col1 = 1-12 for hours on clock. Col2= 5 min increments 00-55 for min. Col3= Am or PM. Combined it matches input mask for table.

Question How do I combine them..(thinking Col1+Col2+Col3) for a txt box then having the field Appt Time = to the txt box,,,,,Then due an after update when the AM or PM is selected.

I would appreciate if someone had a better idea of doing this or how I should do it. THANKS!

[Welshgasman]

Use TimeValue() ?

[westfallbp]

Use TimeValue() ?

From what I understand is that functions pulls the time from the date. I don't want to do that. I am wanting to enter my own time for an appt that I don't have to type it in. (Thats the reason for the multi combo boxes. hour, min, AM or PM.... Thanks for the help

[Welshgasman]

Perhaps look at the syntax?
https://support.microsoft.com/en-gb/...d-f3eb6d186645

[Micron]

I might use spinners with textboxes instead. If there was any logic as to when you would start (e.g. any time after Now() if the appointment is for the same day) then you could begin with Now in the textbox. If not, then likely the earliest time allowed then spin up from there to the max. For hours, the increment would be 1; for minutes, 5. Then use combo for AM/PM if you like. Then use TimeValue as was suggested, because it does not do what you apparently think.
https://www.techonthenet.com/access/.../timevalue.php

[Welshgasman]

It does do what the O/P thinks it does, but also does more.

? timevalue(now())
20:55:54 

? timevalue("8:10 PM")
20:10:00 


hr=8
mm=10
? timevalue(hr & ":" & mm & " PM")
20:10:00

[westfallbp]

I know what the function does. Perhaps I am not communicating effectively.

=[combo4] & [Combo6] & [Combo8] When I open the form it produces this result: 0515PM **All I did was combine the 3 combo results into 1 txt field. I would like to pass that to a date time field which is formated to short time which would store in that field in my table. Hopefully I clarified enough..Thanks for the help.

[June7]

Formatting does not change the stored value. Value in date/time field is stored as a double. Enter "8:15:00 AM" or "08:15:00" into date/time field and the actual stored value is 0.34375.

I don't set formatting in table and the correct format structure is displayed.

As demonstrated in post 6, concatenate values with colons and space so Access can recognize the structure as date/time (with or without TimeValue() function). Or maybe use Timeserial([combo4], [Combo6], 0), however this requires input as military time (24-hr clock) hours.

Show your code for saving this calculated result.

[Welshgasman]

Concatenate values with colons and space so Access can recognize the structure as date/time

As shown in post #6

[Micron]

perhaps, as June7 is saying,
[combo4] & ":" & [Combo6] & ":00 " & [Combo8]
Or you can leave off the seconds and Access will probably add them in anyway.

The rest of my first answer applied to this:

I would appreciate if someone had a better idea of doing this or how I should do it.

Maybe just different, not better.

[June7]

Alternatively, save to separate fields and concatenate when needed.

[Welshgasman]

Alternatively, save to separate fields and concatenate when needed.

My preference would be to do it once and for all.

[CJ_London]

What is the benefit of using a time picker? As a user it would be quicker to just type it - use an input mask

[moke123]

here's a class time picker

[jojowhite]

you can also add this code to your form:

Public Function fnCombosToTime()
Dim dte As Date
Me![Appt Time] = CDate(Nz([col1],0) & ":" & Nz([col2],0) & " " & Nz([col3],"AM"))
End Function

on design view of your Form, add this to the After Update Event (Property) of [col1] to [col3]:

=fnCombosToTime()