Obtaining row value of combo box selection

[azizrasul]

Does anyone have any code that will give me the row value of a chosen item on a combo box?

 

[MickG]

Try:-

Private Sub ComboBox1_Change()
MsgBox ComboBox1.ListIndex + 1
End Sub

 

[azizrasul]

But what if I selected a different row each time?

ComboBox1.ListIndex + 1

would give me the same value. In the example I am working on, I have 4 rows, if I select the last row I can get the value by

strFilter = frm!cboFilter.Column(2,3)

But if I selected the third row it would be

strFilter = frm!cboFilter.Column(2,2)

What I want is

strFilter = frm!cboFilter.Column(2,x)

where the VBA code tells me the value of x i.e. the chosen row.

 

[MickG]

A couple of options !!

Private Sub cboFilter_Change()
Dim Strfilter As String, Strg As String
With Me.cboFilter
    Strfilter = .Column(2, .ListIndex)
    Strg = .List(.ListIndex, 2)
End With
MsgBox Strfilter & vbLf & Strg

End Sub

 

[azizrasul]

I get Run Time error 438 - Object doesnt support this property or method on line

Strg = .List(.ListIndex, 2)

 

[MickG]

I can't replicate that. If the column line works I should use that !!!

 

[azizrasul]

OK thanks.