How to keep a default value in a combo box when entering records.

[KingOf206]

I have created a very basic form for Data entry.

I have a combo box in which I have the users names for data entry. Ideally I would like them to select their name using the combo box, and then fill out the remaining fields, then once they click the "save Button" and go to a new record, it will keep their username (which will be in the "Entered by" combo box) as the default when going to a new record.

I have searched this online and have found a few SQL codes but none of them seem to work.

Is there a simple way I can get the combo box "entered By" to stay as the default as the user is entering in new records?

If I need to post any other pics or other information please let me know.

[June7]

SQL is not what you need. This requires a VBA solution. You want to carry forward the EnteredBy value to another record - one way is code in the combobox AfterUpdate event to set its DefaultValue property. How does user move to a new record? Is there code in the SAVE button doing that?

[KingOf206]

The user moves to the NExt record by clicking on the green "SAVE" button. RIght now there is no code in the save button. THe save button only saves the record and moves on to a new record. Someone gave me some code before which was this:

Private Sub Combo16_AfterUpdate()
Me.Combo16.DefaultValue = Me.Combo16


End Sub


in the AfterUpdate i changed to "event procedures" then I tossed the code (above) in there. It still does not work.

What else can I try?

[June7]

That code should do it. What does 'does not work' mean - error message, wrong results, nothing happens?

The combobox will not populate with the default value until record is initiated by data input to some other control.

[KingOf206]

nothing happens. I enter in a record, and then when I click save it goes to the next record but i still have to use the drop down combo box to select my user name again.

[June7]

I edited my earlier post. Perhaps you missed the additional comment about entering data into another control.

[KingOf206]

I am not sure what you mean by "entering data into another control" can you please clarify this?

[June7]

A default value is not triggered until record is initiated. Record is initiated when data is entered (typed or otherwise selected by user) in a field or control. So enter some other data into another control (maybe the Tray_number) and see what happens in the EnteredBy combobox.

[KingOf206]

oh yeah... My testing has included that aspect. That is why I am confused at why it doesn't work. When testing this form out i do enter data in all fields that you see about in my attached pic of the form. But still it doesnt work.

Here are more screen shots to show what I am doing:

Here is a pic of design view. I have the "entered by combo box selected" and then on the afterupdate i change to "event procedures" then I click the "..."


Once i click the "..."
it takes me where I can put the code in which is here (this shows me where I am using the code):




You told me that the code I have should work. But its not. Nothing happens at all, I still have to choose the "entered by" field every time, its not saving the last one I used as a default.

What in the world am I getting wrong? I know i am missing something....

[June7]

What is the data type of TrayEnteredBy - number or text? If it is text:

Me.Combo16.DefaultValue = "'" & Me.Combo16 & "'"

This works for me.

[KingOf206]

Holy Crap. That was it! That was Friggin it! LOL Thank you. You just saved a ton of keystrokes! Thanks June7

[June7]

I had expected TrayEnteredBy to be number type for a user ID, not text, so did not think of that immediately.