Help with populating date in form...

[bishop0071]

I have a subform. I want to create an unbound date box in my main form that when I pick a date it will automatically fill it in for the date column in my subform when I enter in new data. I just don't want to have to manually put in the dates each time I fill out the subform because it will all be the same dates.



Thank you

[June7]

Alternative and perhaps easier approach is to set the DefaultValue property of the control in subform. In the control BeforeUpdate event VBA procedure:

Me.controlname.DefaultValue = Me.controlname

[bishop0071]

Now if I change the date in unbound box in main form it should not change the dates already set in the subform correct?

Thanks

[Missinglinq]

I'd use the AfterUpdate event of the Control holding your Date to set the DefaultValue for the Field, but the syntax June7 gave isn't quite correct. From that time forward, until you either manually change the Date or close your Form, the Date will be entered automatically in each New Record.

Private Sub DateControlName_AfterUpdate()
   Me.DateControlName.DefaultValue = """" & Me.DateControlName.Value & """"
End Sub

This same code is valid for Text, Number and Date Datatypes. Never tried it on a Yes/No Field!

Linq ;0)>

[bishop0071]

So it would go in like:

Me.txtNPDate.DefaultValue = """" & Me.txtNPDate.Value & """"

This would help for another field too

[June7]

Good catch linq, syntax with apostrophe instead of twin quote marks also works:

Me.DateControlName.DefaultValue = "'" & Me.DateControlName.Value & "'"

[bishop0071]

I put that code into the afterupdate of the subform and nothing happens

[June7]

Code goes in TEXTBOX event.

Either event seems to do the job.

[bishop0071]

I am sorry but I am doing something wrong. Still not working. I placed the code in the TEXTBOX Date in the subform and still does not work. To be clear, I have a New Program Date box in the main form and a Date box in the subform. I put in the code: Me.txtNPDate.DefaultValue = """" & Me.txtNPDate.Value & """" in the Date box in the subform and nothing happens.

[June7]

Our suggestion does not involve a textbox on the main form. It is not necessary. Open form, enter date in new record, code will set DefaultValue property of textbox. The code goes in the event of textbox on the subform.

Me.subformtextboxname.DefaultValue = "'" & Me.subformtextboxname & "'"

[bishop0071]

That worked!!!! Thank you so much for your help!!!