Set calendar to update field with todays date 1

[jjdoro]

I have a date picker calendar that is on a command button and is used to select a date for an Access text box form field that sits next to it. It works fine except that I would like to have it open and update that field to todays date. I tried setting the default value of the field to = Date() but it only opens with the last date that was set on that field. Below is the code for the module of the calendar date picker.
Also on the command button I have the on click event set to =OpenCalendar("zSetReportCriteria","Report Start",10.59,7). zSetReportCriteria is the name of the form and Report Start is the name of the field that gets updated. Any ideas


Option Compare Database

Dim ctrl As Control
Dim frm As Form
Const centimeter = 567

Function OpenCalendar(strForm As String, strCtrl As String, intLeft, intTop)
Set frm = Forms(strForm)
Set ctrl = frm(strCtrl)
frm("msCal&quot.Visible = True
frm("msCal&quot.Left = intLeft * centimeter
frm("msCal&quot.Top = intTop * centimeter
frm("msCal&quot.Value = Date
End Function

Function CloseCalendar()
frm(ctrl.Name).SetFocus
frm("msCal&quot.Visible = False
End Function

Sub SetDate()
frm(ctrl.Name).Value = frm("msCal&quot.Value
frm(ctrl.Name).SetFocus
frm("msCal&quot.Visible = False
End Sub

 

[judgehopkins]

When you created the textobx, you must have made a mistake.

Where did you try to set the default value?

To make your control show today's date, go to the design view of the control you want to set for today's date.

(Let's call that control--a text box--txtTodaysDate.)

Click into the control (i.e., the text box named TodaysDate).

Right click and get the control's properties. On the format tab of the properties window, click format and choose the format you want (e.g., short date). Under the data tab, pick the correct control source. (The source will be a date field you have put into a table.)

If you want to get fancy on a short date under the format tab, go to the input mask and type in 99/99/00;0.





Judge Hopkins

http://www.psc.state.mo.us/adjudication.asp

There are only two rules for success: (1) Never tell everything you know.

 

[judgehopkins]

One more thing, the default value for the control should be set to Date() in the table where the field for the date is.

Judge Hopkins

http://www.psc.state.mo.us/adjudication.asp

There are only two rules for success: (1) Never tell everything you know.

 

[jjdoro]

Thank you Judge you have been most helpful.