Pass a value from a combo box to a list

[MattBeas]

Hi!
I want to be able to pass value(s) from a combo box to a list box in order to create a list of items. Is this possible? Does anyone have a solution to this?
Any help would be greatly appreciated.
Thanks

 

[Imhoteb]

Hi,

Try this
Put this code in the click event of your combobox

Private Sub Combo1_Click()
List1.AddItem Combo1.Text
End Sub

Hope this helps
Good luck

 

[BoxHead]

MattBeas,

The following works in '97.

Private Sub Combo9_Change()
Dim strList As String
If List7.RowSource = "" Then
strList = Combo9
Else
strList = List7.RowSource & "; " & Combo9
End If
List7.RowSource = strList
End Sub

List7 is unbound with its RowSource Type set to 'Value List'.

Consider a button to reset it as well.

List7.RowSource = "".

HTH



John

Use what you have,
Learn what you can,
Create what you need.

 

[MattBeas]

Hi,
I have tried the suggestions given but they don't seem to work. Does anyone have any other solutions??
Any help would be greatly appreciated.
Thanks

 

[Imhoteb]

hi MattBeas,

I want to know if you are coding in visul basic6.0 ar if you are working in Access.

 

[PaulF]

guess it depends on the Row Source Type for the ListBox, if it is a Value List then this will work.
Where cbo1 is the ComboBox and lst1 is the ListBox, and this example passes 2 columns to the ListBox

Private Sub cbo1_AfterUpdate()
If lst1.RowSource = "" Then
lst1.RowSource = cbo1.Column(0) & " " & cbo1.Column(1)
Else
lst1.RowSource = lst1.RowSource & ";" & cbo1.Column(0) & " " & cbo1.Column(1)
End If
lst1.Requery
End Sub

If the Row Source Type is Table/Query, then you have to Append the Data from the ComboBox to the Table that is used for the Query and/or ListBox.

PaulF