Display results of a 2-column ComboBox

**skysurfer** · 09-29-2010, 11:08 AM

Hi,

How do I have a 2-column ComboBox on a form display both column results after a selection has been made? I can get the first or second column to display after the selection, but not both. For example, column 1 are employee names and column are departments. After making a selection, I can only get either the name or the department to display in the ComboBox, not both.

I've seen a couple of postings on this, but no resolution. Is it because it's just not possible with a ComboBox?

Thanks,

Lawrence

**snb** · 09-29-2010, 12:51 PM

if you set the property

combobox1.columncount=2

you will see both columns, provided you didn't enter values in the property Combobox1.columnwidths.

**skysurfer** · 09-29-2010, 12:54 PM

snb,

Yes, doing so will show both columns when the ComboBox is clicked on and the box expands to show the listed items. But after you make a selection, only one value from one column (either the bound or the text value) appears in the ComboBox.

How do I get both values to appear?

Lawrence

**royUK** · 09-29-2010, 01:01 PM

Wouldn't a ListBox be better?

**snb** · 09-29-2010, 01:04 PM

As far as I know that isn't possible in VBA-comboboxes.
The way I solve this is to show the values in the other columns in textboxes (or in any other userform object).
You best consider a combobox as a selectingdevice not as an displaying device.

**skysurfer** · 09-29-2010, 01:17 PM

Hi RoyUK,

A ListBox would work...only I have a space issue. Hmmm... I'll have to seriously consider it.

Would it be possible to throw the bound AND text values into the ComboBox after the selection has been made? Say on click command? Something like this:

Please Login or Register  to view this content.

Oooops!

It sort of works, except the ComboBox now displays the bound values TWICE. Instead of displaying "John Marketing", it displays "John John".

what did I mess up?

Lawrence

**skysurfer** · 09-29-2010, 02:20 PM

Okay, got it!

Replace this line of code:

Please Login or Register  to view this content.

...with this:

Please Login or Register  to view this content.

Lawrence

**b3013100** · 11-17-2014, 01:27 PM

4 Years late but here is the solution for anyone else looking. Figured it out by trial and error. This works for me:

Dim Systems() As String
ReDim Systems(1 To Field1Name_RowCount, 1 To 2)
ComboBox1.List = Systems

Private Sub ComboBox1_Change()
With ComboBox1
.Text = .Text & " " & .Value
End With
End Sub