Event to enter a date in a table

[wsryan]

I have a combo box “Combo4” bound to “CommitteeID” field in Table “tblAssignments”.
After a choice is made in that combo box, I would like the date in “GradYear” field in “tblAssignments” to be filled in automatically with the current “fiscal” year which is found in “tblAnnualDates”. But the date that I need entered is found in the “EventDate” field for the record with “ID” of “10” in that table (“tblAnnualDates”). Does that make any sense?

[WendellB]

Unfortunately it doesn't make enough sense to me to be able to help much. Are you storing the ID for the fiscal year in tblAssignments, or are you wanting to store the year (as an integer presumably)? Also, are you doing this on a form, or in a table?

[RetiredGeek]

WsRyan,

In the Property Sheet for the ComboBox control select the Event Tab.
In the On Change event click in the box to the right then click on the button
with the three periods and select Event Procedure.

Private Sub Combo0_Change()

  MsgBox "The ComboBox Value has Changed", vbOKOnly, "Combo Box Status:"
  '***Replace with our code to update date***

End Sub

I hope this points you in the right direction.

RG

[patt]

I woud do this in the AfterUpdate event of the combo box NOT the change event. As far as i know the reason is the change event fires for each keystroke in the combo box.

[johnhutchison]

I agree with Patt that it is the After Update event you want to use.

You could a Dlookup to find the Date you want to use.

In tblAssignments are you wanting to add a new record, or update an existing record?
If a new one what else needs to go into the record?
If an existing one, how do you know which record?

[WendellB]

It's not clear to me that he needs any code to do what he is doing. He may well be able to define the RecordSource for the combo box so it looks up the code and stores that in the table - but we need some answers to your quesitons and the ones I posed before that can be determined....