After Update Macro on Form

[dmd]

On my form is a combo box where I search for people by their last name. When I update the form with a new record, I have to close the form out in order for that new record to show up when I type it in. I want it to just show up without having to close and re-open the form. Can anyone help? Screen shots attached

[June7]

Have to requery the combobox.

VBA:

Me.comboboxName.Requery

[dmd]

Thanks but where do I put that? I have code in another field called Department and when I click on the field I search on (Go to Employee), and enter code there, it overwrites the code I have for the Department field even though I change it at the top from Combo59 to Combo35 (which is the Go to Employee combo box). Screen shots are attached to show what I'm trying to explain.

[June7]

Try that code in the combobox GotFocus event procedure.

It really helps analyzing code if you give controls meaningful names, like cbxDept, cbxEmp.

Why are there comboboxes for both Department and Dept #?

Advise not to use spaces and special characters/punctuation (underscore is exception) in naming convention.

[dmd]

There are comboboxes for Department and Dept # because the person who will use it wants to be able to just type in a few letters of the department name, have it populate, then populate the Dept # (which is working).

But I just can't seem to get this to work. I am trying to learn more every day but sometimes........

I'm attaching the DB so you can see

[June7]

Not seeing code I suggested. Did you try?

[dmd]

yes, i had tried but it was messing up the other fields that have code in for their purposes so i took it out and sent you the db so you could better understand where i have code and how it's working.

[June7]

What do you mean by 'messing up' - errors message, wrong results, nothing happens? I followed my own suggestion and not getting any issues. However, I forgot that need to commit the new record to table for it show in the combobox list. So try the form OnCurrent event instead.

Private Sub Form_Current()
Me.Combo35.Requery
End Sub

[dmd]

That worked, thank you!