append time after selecting a date from the Calendar Control.

[chanman525]

Hey all. I have a Calendar control and 2 text boxes. The user is trying to gather information for certain days between 6:00 am of the 1st date and 6:00 am of the second.

First they click the textbox and then they select the date they want to start. This enters that date in the corresponding checkbox. They then do the same for the second.

The problem I'm having is, I want it to show 6:00:00 am right after the date in that check box, and I'm not sure how to go about it. Can anyone help?

Below is the code I have so far:


Option Compare Database
Dim datebox As TextBox


Private Sub txtenddate_Click()
Set datebox = txtenddate
ocxCalendar.Visible = True
ocxCalendar.SetFocus
If Not IsNull(datebox) Then
ocxCalendar.Value = datebox.Value
Else
ocxCalendar.Value = Date
End If

End Sub

Private Sub txtstartdate_Click()
Set datebox = txtstartdate
ocxCalendar.Visible = True
ocxCalendar.SetFocus
If Not IsNull(cboOriginator) Then
ocxCalendar.Value = datebox.Value
Else
ocxCalendar.Value = Date
End If
End Sub

Private Sub ocxCalendar_Click()
' Copy chosen date from calendar to originating combo box
datebox.Value = ocxCalendar.Value
' Return the focus to the combo box and hide the calendar and
datebox.SetFocus
' Empty the variable
Set datebox = Nothing
End Sub


Thanks for any help you can provide.

 

[PHV]

What about this ?
datebox.Value = ocxCalendar.Value + 0.25

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[abaldwin]

Try this

Private Sub ocxCalendar_Click()
' Copy chosen date from calendar to originating combo box
datebox.Value = ocxCalendar.Value & " 06:00:00"
' Return the focus to the combo box and hide the calendar and
datebox.SetFocus
' Empty the variable
Set datebox = Nothing
End Sub


Andy Baldwin

"Testing is the most overlooked programming language on the books!

 

[chanman525]

Wow, that's awesome, and easier than I thought it would be. Thanks a million.

 

[abaldwin]

Your welcome.

Andy Baldwin

"Testing is the most overlooked programming language on the books!