select item in listbox that matches selected item in combo box

[RC]

I have a form where the user enters the Model info. The user picks
the Model from either a combobox or listbox which both are filled from
the Models table. If the Model type isn't in the boxes, then the user
can click a button and add a new Model to the Models table. When the
user clicks the "Add new Model" button, a pop-up Form opens the user
types in the new Model name into a text box and a new record is added
to the Models table and the pop-up form closes and returns to the form
that is was opened from. After returning to the Model info form the
combo box has the newly added model selected, this is what I want.
How can I make the listbox also display the newly added model? My
code below is from the pop-up form.

Private Sub AddToModelsList FormAddButton_C lick()
Dim strNewModel As String
strNewModel = Me.AddToModelsF ormNewModelName TextBox.Value
DoCmd.GoToRecor d , , acNewRec
Forms!ItemInfor mationForm!Mode lLookupComboBox .Value = strNewModel

'The line above highlights the newly added model and moves it to the
top of the combobox
'The line below does NOT do the same to the ListBox

Forms!ItemInfor mationForm!Mode lListBox.Value = strNewModel

[Darryl Kerkeslager]

Assuming that the Models table is the underlying recordset for the original
form, the pop-up form, the combo box, and the list box, you just need to
requery the listbox. You are sure that the Model has been added to the
table, right? Then just use:

Forms!ItemInfor mationForm!Mode lListBox.requer y

or, after you close the (modal) pop-up form :

Me.ModelListBox .requery
Darryl Kerkeslager


"RC" <rc*********@ya hoo.com> wrote in message
news:3c******** *************** ***@posting.goo gle.com...

I have a form where the user enters the Model info. The user picks
the Model from either a combobox or listbox which both are filled from
the Models table. If the Model type isn't in the boxes, then the user
can click a button and add a new Model to the Models table. When the
user clicks the "Add new Model" button, a pop-up Form opens the user
types in the new Model name into a text box and a new record is added
to the Models table and the pop-up form closes and returns to the form
that is was opened from. After returning to the Model info form the
combo box has the newly added model selected, this is what I want.
How can I make the listbox also display the newly added model? My
code below is from the pop-up form.

[Pieter Linden]

Requery the listbox

me.lbx.Requery

[RC]

Just in case anyone else has a similar problem HIGHLIGHTING items in
comboboxes and listboxes through code. I finally got it to work using
this code:

Forms!ItemInfor mationForm!Manu facturerListBox .SetFocus
Forms!ItemInfor mationForm!Manu facturerListBox = strNewManufactu rer
Forms!ItemInfor mationForm!Manu facturerListBox .Requery
Forms!ItemInfor mationForm!Manu facturerLookupC omboBox.SetFocu s
Forms!ItemInfor mationForm!Manu facturerLookupC omboBox.Value =
strNewManufactu rer

Plus the combobox needed to be bound to column 1 and the listbox
needed to be bound to column 2

rc*********@yah oo.com (RC) wrote in message news:<3c******* *************** ****@posting.go ogle.com>...

I have a form where the user enters the Model info. The user picks
the Model from either a combobox or listbox which both are filled from
the Models table. If the Model type isn't in the boxes, then the user
can click a button and add a new Model to the Models table. When the
user clicks the "Add new Model" button, a pop-up Form opens the user
types in the new Model name into a text box and a new record is added
to the Models table and the pop-up form closes and returns to the form
that is was opened from. After returning to the Model info form the
combo box has the newly added model selected, this is what I want.
How can I make the listbox also display the newly added model? My
code below is from the pop-up form.

Private Sub AddToModelsList FormAddButton_C lick()
Dim strNewModel As String
strNewModel = Me.AddToModelsF ormNewModelName TextBox.Value
DoCmd.GoToRecor d , , acNewRec
Forms!ItemInfor mationForm!Mode lLookupComboBox .Value = strNewModel

'The line above highlights the newly added model and moves it to the
top of the combobox
'The line below does NOT do the same to the ListBox

Forms!ItemInfor mationForm!Mode lListBox.Value = strNewModel