Combo box to fill in data

[Guest]

I am attempting to use a combo box which allows the user to select a date for
a particular day(usually the present date) And have it fill in the same date
in the subform for each individual record(this way it only has to be done
once). The problem I am running into is when I go to the next blank record,
the combo box clears itself out, and I have to keep selecting the date for
each record. I usually fill in 15-20 records per day(one for each
individual). Any suggestions?

 

[Ken Snell [MVP]]

Put this code on the AfterUpdate event of the combo box:

Private Sub ComboBoxName_AfterUpdate()
Me.ComboBoxName.DefaultValue = """" & _
Me.ComboBoxName.Value & """"
End Sub