Как задать индекс значениям в выпадающем списке commonBox в UserForm?

Question

[Александр Вербицкий]

Я из базы access выдергиваю два столбца, "id" и "name"
Все что в "name" отображается в выпадающем списке
AddInvoice.ComboBox1.AddItem "name"

И при выборе любой позиции, в дальнейшем я могу использовать только то что было в "name", а мне нужен "id" этой записи
Как его туда внести?

Мне нужно как в HTML
<option value="id">name</option>
Выбрал name получил id записи, для дальнейшей работы с ней...

Надеюсь понятно объяснил)

Comments

[h8nor]

Не, ничего не понял. При чём здесь Excel и vb?

[Александр Вербицкий]

Дѣаволъ, VBA и EXCEL
Вот код для выпадающего списка:

Private Sub ObjectComboBox1_Enter()
    Dim ПутьКФайлу As String
    ПутьКФайлу = ActiveWorkbook.Path & "\db_beton.accdb"
    
    Dim connDB As Object
    Set connDB = CreateObject("ADODB.Connection")
    
    Dim rs As Object
    Set rs = CreateObject("ADODB.Recordset")

    // Подключаемся к базе access
    connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & ПутьКФайлу 
    connDB.Open
    
    // Получаем все столбцы "id" и "name"
    Set rs = connDB.Execute("SELECT `id`, `name` from `object`")
    

    // И выводим в выпадающем списке полученные результаты
    Do While Not rs.EOF
        AddInvoice.ObjectComboBox1.AddItem rs(1)  // В rs(1) хранятся все "name"
        rs.MoveNext
    Loop
    
    connDB.Close
    Set connDB = Nothing
End Sub

В итоге получаем список. И при выборе любого значения в списке, я получу не id этого значения, а name.
И не могу понять куда впихнуть rs(0) чтобы в дальнейшем при выборе значения использовать именно его??

[h8nor]

https://stackoverflow.com/questions/21550449/
www.cyberforum.ru/vb-net/thread1690649.html#post8912997