Default date value from a Calendar

[jaanisf]

I need to add many records with the same date in my form. So I put a button next to my date text box "dat", that wakes up a calendar. That looks like this:

Calendar.Visible = True
Calendar.SetFocus

Then I put a following code:

Private Sub Calendar_Click()
Me!dat.DefaultValue = "#" & Calendar.Value & "#"
Combo18.SetFocus
Calendar.Visible = False
End Sub

Where Combo18 is the next box below date text box.

I tried also:
Me!dat.DefaultValue = Calendar.Value
and Me.dat.DefaultValue = Calendar.Value
and Me.dat.DefaultValue = "#" & Calendar.Value & "#"

That all leads to a #Name? in my date text box "dat".
Can you help me, please, with this?

 

[BoxHead]

I haven't tested, but I'd expect

dat = Calendar.Value

to work.

It really isn't a default value if a user has to do something to update it. A default value would be the value that is inserted as soon as a new record is created. You could set the default value to Now() on the property window for the textbox and then use your code to change it if necessary.

HTH

 

[jaanisf]

Then this should work:

Private Sub Calendar_Click()
dat = Calendar.Value
Me.dat.DefaultValue = "#" & Calendar.Value & "#"
Combo18.SetFocus
Calendar.Visible = False
End Sub

But it works for the current record only. When I it jumps to next new record, it shows #Name? again.

 

[jaanisf]

It shows the right value in properties and still there's a #Name? in text box.
Maybe there is another way out? For example, can I take the last records date as a default value?

 

[jaanisf]

It seems I found it. As the Caloendar allways stays on the last chosen date, all I should do is to put [Calendar].[Value] in default value field in textt box properties. Now it works.