Choose Date/Time in Form Without Typing It (Access 2000 and Win XP Pro)

[huntnyc]

I am working with my first database using Access 2000. I have a form and subform. The form is based on a table called Sermons where I fill in the title of a sermon and other related information. The subform is based on a Table called SermonsPreached that shows the dates and locations where this lesson was preached. The view allows me to see the multiple records in tabular form which is what I want.

Problem - I want to be able to use the DateTimePicker or some other contorl to choose the general date format that includes time as well as date without having to type anything into the DatePreached field of my subform. However, the DateTimePicker with checkbox enabled will not work on a continuous form view but only I believe a singl form view of subform. This is not what I want because I want to be able to see at a glance multiple instances of when a title has been presented. How can I set up my DatePreached field in a subform showing multiple records so I can just doubleclick the filed and then select the Date/Time from a control whether it is the DateTimePicker or not. If I can get theis right, I can begin entering my date. Your help as always most appreciated.

Gary Hunt

[huntnyc]

Hans,

Thanks so much again. I understand the concept of what the end result would be but it will be just a matter of trying to run through the steps you gave to see if I can construct such a workable solution as this. I will faithfully follow these steps and give it a go. I thank you again for your help.

Gary

[HansV]

Create a separate form with a Calendar or DateTimePicker control on it, as well as two command buttons: OK and Cancel. Let's call this form frmPickDate.

In the OnDoubleClick event of the date text box (txtDate in this example) on the continuous form, open frmPickDate and pass the current value in the OpenArgs argument:

DoCmd.OpenForm FormName:="frmPickDate", WindowMode:=acDialog, OpenArgs:=txtDate.Text

In the OnLoad event of frmPickDate, set the value of the calendar or date/time picker control (ctlCalendar in this example):

If Nz(OpenArgs) = "" Then
ctlCalendar.Value = Date
Else
ctlCalendar.Value = OpenArgs
End If

In the OnClick event of the OK button, set the selected date and close the form (in the OnClick event of the Cancel button, just close the form):

Forms!frmMainForm!frmSubForm!txtDate = ctlCalendar.Value
DoCmd.Close acForm, Me.Name

All form and control names should be replaced by their actual names.